fix: add debug helper to check left id conflicts

This commit is contained in:
Tienson Qin
2021-07-23 23:30:19 +08:00
parent 7de92478b5
commit 9e35c0c6bd
3 changed files with 71 additions and 22 deletions

View File

@@ -650,9 +650,12 @@
(cond
(some #(= (:block/level-spaces %) (:block/level-spaces block)) parents) ; outdent
(let [parents' (vec (filter (fn [p] (<= (:block/level-spaces p) level-spaces)) parents))
blocks (cons (assoc (first blocks) :block/level (dec level))
left (last parents')
blocks (cons (assoc (first blocks)
:block/level (dec level)
:block/left [:block/uuid (:block/uuid left)])
(rest blocks))]
[blocks parents' (last parents') result])
[blocks parents' left result])
:else
(let [[f r] (split-with (fn [p] (<= (:block/level-spaces p) level-spaces)) parents)