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

fix: batch set block property for missing refs

Browse Source
This commit is contained in:
Tienson Qin
2023-11-22 15:27:03 +08:00
parent 961dde4c90
commit 85a0f32e05
1 changed files with 11 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/main/frontend/fs/watcher_handler.cljs
View File

@@ -29,14 +29,17 @@
"For every referred block in the content, fix their block ids in files if missing."
[content]
(when (string? content)
(doseq [block-id (block-ref/get-all-block-ref-ids content)]
(when-let [block (try
(model/get-block-by-uuid block-id)
(catch :default _e
nil))]
(let [id-property (:id (:block/properties block))]
(when-not (= (str id-property) (str block-id))
(editor-property/set-block-property! block-id "id" block-id)))))))
(let [missing-blocks (->> (block-ref/get-all-block-ref-ids content)
(distinct)
(keep model/get-block-by-uuid)
(filter (fn [block]
(not= (str (:id (:block/properties block)))
(str (:block/uuid block))))))]
(when (seq missing-blocks)
(editor-property/batch-set-block-property!
(mapv
(fn [b] [(:block/uuid b) :id (str (:block/uuid b))])
missing-blocks))))))
(defn- handle-add-and-change!
[repo path content db-content mtime backup?]
@@ -256,4 +259,3 @@
:clear? true}]))))
(p/catch (fn [error]
(js/console.dir error))))))))