fix(api): insert as first child when current node is first child

This commit is contained in:
charlie
2021-12-14 13:56:52 +08:00
committed by Tienson Qin
parent 8d61fbec57
commit 8d8c5624ac

View File

@@ -707,8 +707,13 @@
(assoc :block/uuid (or custom-uuid (db/new-block-id))))
[block-m sibling?] (cond
before?
(let [block (db/pull (:db/id (:block/left block)))
sibling? (if (:block/name block) false sibling?)]
(let [first-child? (->> [:block/parent :block/left]
(map #(:db/id (get block %)))
(apply =))
block (db/pull (:db/id (:block/left block)))
sibling? (if (or first-child? ;; insert as first child
(:block/name block))
false sibling?)]
[block sibling?])
sibling?