clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-06-01 19:01:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

Move cut-paste? logic to paste handler

Browse Source
This commit is contained in:
Tienson Qin
2023-05-22 16:00:17 +08:00
parent b096d8de8c
commit 07b0aaf0ad
2 changed files with 18 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1959,15 +1959,6 @@
(let [ids (set (map :db/id blocks))]
(some? (some #(ids (:db/id (:block/parent %))) blocks))))
(defn- get-revert-cut-tx
[blocks]
(let [{:keys [retracted-block-ids revert-tx]} (get-in @state/state [:editor/last-replace-ref-content-tx (state/get-current-repo)])
recent-cut-block-ids (->> retracted-block-ids (map second) (set))]
(state/set-state! [:editor/last-replace-ref-content-tx (state/get-current-repo)] nil)
(when (and (= (set (map :block/uuid blocks)) recent-cut-block-ids)
(seq revert-tx))
revert-tx)))
(defn paste-blocks
"Given a vec of blocks, insert them into the target page.
keep-uuid?: if true, keep the uuid provided in the block structure."
@@ -1975,7 +1966,9 @@
exclude-properties
target-block
sibling?
keep-uuid?]
keep-uuid?
cut-paste?
revert-cut-txs]
:or {exclude-properties []}}]
(let [editing-block (when-let [editing-block (state/get-edit-block)]
(some-> (db/pull [:block/uuid (:block/uuid editing-block)])
@@ -1990,9 +1983,6 @@
empty-target? (string/blank? (:block/content target-block))
paste-nested-blocks? (nested-blocks blocks)
target-block-has-children? (db/has-children? (:block/uuid target-block))
revert-cut-txs (get-revert-cut-tx blocks)
cut-paste? (seq revert-cut-txs)
keep-uuid? (if cut-paste? true keep-uuid?)
replace-empty-target? (if (and paste-nested-blocks? empty-target? target-block-has-children?)
false
true)