clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-02 09:56:31 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: rename related properties when renaming the page

Browse Source
This commit is contained in:
Tienson Qin
2022-07-05 05:04:13 +08:00
parent 49acb54178
commit 5d7925115d
4 changed files with 18 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/main/frontend/handler/page.cljs
View File

@@ -240,13 +240,21 @@
(util/replace-ignore-case (str " " old-tag " ") (str " " new-tag " "))
(util/replace-ignore-case (str " " old-tag "$") (str " " new-tag)))))
(defn- replace-property-ref!
[content old-name new-name]
(let [new-name (keyword (string/replace (string/lower-case new-name) #"\s+" "_"))
old-property (str old-name "::")
new-property (str (name new-name) "::")]
(util/replace-ignore-case content old-property new-property)))
(defn- replace-old-page!
"Unsanitized names"
[content old-name new-name]
(when (and (string? content) (string? old-name) (string? new-name))
(-> content
(replace-page-ref! old-name new-name)
(replace-tag-ref! old-name new-name))))
(replace-tag-ref! old-name new-name)
(replace-property-ref! old-name new-name))))
(defn- walk-replace-old-page!
"Unsanitized names"
@@ -265,6 +273,9 @@
new-name
(replace-old-page! f old-name new-name))
(and (keyword f) (= (name f) old-name))
(keyword (string/replace (string/lower-case new-name) #"\s+" "_"))
:else
f))
form))