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

refactor: delete-blocks

Browse Source
This commit is contained in:
Tienson Qin
2021-04-06 20:08:50 +08:00
parent 3320081880
commit ef88f78fb8
2 changed files with 57 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
src/main/frontend/handler/editor.cljs
View File

@@ -737,23 +737,27 @@
:tail-len tail-len})))))))))
(state/set-editor-op! nil))))
;; Must be siblings?
(defn- get-end-block-parent
[end-block blocks]
(if-let [parent (let [id (:db/id (:block/parent end-block))]
(some (fn [block] (when (= (:db/id block) id) block)) blocks))]
(recur parent blocks)
end-block))
(defn delete-blocks!
[repo block-uuids]
(when (seq block-uuids)
(let [lookup-refs (map (fn [id] [:block/uuid id]) block-uuids)
blocks (db/pull-many repo '[*] lookup-refs)
parent (:block/parent (first blocks))
top-level-blocks (filter #(= parent (:block/parent %)) blocks)]
(if (= 1 (count top-level-blocks))
(delete-block-aux! (first blocks) false)
(let [start-node (outliner-core/block (first top-level-blocks))
end-node (outliner-core/block (last top-level-blocks))]
(outliner-core/delete-nodes start-node end-node lookup-refs)
(let [opts {:key :block/change
:data blocks}]
(db/refresh repo opts))
(repo-handler/push-if-auto-enabled! repo))))))
blocks (db/pull-many repo '[*] lookup-refs)]
(let [start-node (outliner-core/block (first blocks))
end-block (last blocks)
end-block-parent (get-end-block-parent end-block blocks)
end-node (outliner-core/block end-block-parent)]
(outliner-core/delete-nodes start-node end-node lookup-refs)
(let [opts {:key :block/change
:data blocks}]
(db/refresh repo opts))
(repo-handler/push-if-auto-enabled! repo)))))
(defn remove-block-property!
[block-id key]