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

fix: paste-block-tree-after-target when target-block is page-block

Browse Source
This commit is contained in:
rcmerci
2021-06-09 19:02:46 +08:00
committed by Tienson Qin
parent 235e1496df
commit fa03b7dae1
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -2088,11 +2088,18 @@
(defn paste-block-tree-after-target
[target-block-id sibling? tree format]
(let [vec-tree (tree->vec-tree tree)
block-tree (vec-tree->vec-block-tree vec-tree format)]
block-tree (vec-tree->vec-block-tree vec-tree format)
target-block (db/pull target-block-id)
page-block (if (:block/name target-block) target-block
(db/entity (:db/id (:block/page (db/pull target-block-id)))))
;; sibling? = false, when target-block is a page-block
sibling? (if (= target-block-id (:db/id page-block))
false
sibling?)]
(paste-block-vec-tree-at-target
block-tree [] nil
#(get-block-tree-insert-pos-after-target target-block-id sibling?)
(db/entity (:db/id (:block/page (db/pull target-block-id)))))))
page-block)))
(defn template-on-chosen-handler
[_input id _q format _edit-block _edit-content]