fix: case-sensitive page rename

This commit is contained in:
Tienson Qin
2023-07-15 11:17:00 +08:00
parent f76f2ac95d
commit 1832bdf2e8

View File

@@ -699,10 +699,17 @@
new-name
(not (string/blank? new-name))
name-changed?)
(if (and (not= old-page-name new-page-name)
(db/entity [:block/name new-page-name]))
(cond
(= old-page-name new-page-name) ; case changed
(db/transact! [{:db/id (:db/id page-e)
:block/original-name new-name}])
(and (not= old-page-name new-page-name)
(db/entity [:block/name new-page-name])) ; merge page
(when (string/blank? new-name)
(notification/show! "Merging pages is not supported yet." :info))
:else ; rename
(create! new-page-name
{:rename? true
:uuid (:block/uuid page-e)