greatbody
/
logseq
mirror of https://github.com/logseq/logseq
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fix: create sibling block instead of child block for tagged block

pull/10438/head
Tienson Qin 2023-09-13 20:22:55 +08:00
parent 412447a70a
commit b3eb7b6a43
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -453,12 +453,15 @@
[fst-block-text snd-block-text] (compute-fst-snd-block-text value selection-start selection-end)
insert-above? (and (string/blank? fst-block-text) (not (string/blank? snd-block-text)))
block' (or (db/pull [:block/uuid block-id]) block)
original-block (:original-block config)
block'' (or
(when-let [b (:original-block config)]
(cond
insert-above? b
(:block/collapsed? block') b
:else block'))
(when original-block
(let [e (db/entity (:db/id block'))]
(if (and (some? (first (:block/_parent e)))
(not (:block/collapsed? e)))
;; object has children and not collapsed
block'
original-block)))
block')
insert-fn (cond
block-self?
@ -473,7 +476,10 @@
{:ok-handler
(fn insert-new-block!-ok-handler [last-block]
(clear-when-saved!)
(edit-block! last-block 0 id))}))))
(edit-block! last-block 0 id)
(if original-block
(edit-block! last-block 0 (:block/uuid last-block))
(edit-block! last-block 0 id)))}))))
(state/set-editor-op! nil)))
(defn api-insert-new-block!