fix: block levels with wrong order when importing to db

pull/1735/head
Tienson Qin 2021-05-06 00:54:47 +08:00
parent 855fe82067
commit d1a576165d
1 changed files with 12 additions and 5 deletions

View File

@ -546,11 +546,18 @@
(> cur-level level) ; child
(let [parent (if uuid [:block/uuid uuid] (:page/id last-parent))
block (assoc block
:block/parent parent
:block/left parent
;; Fix wrong input levels
:block/level (inc level))
_ (prn {:cur-level cur-level
:level level})
block (cond->
(assoc block
:block/parent parent
:block/left parent)
;; fix block levels with wrong order
;; For example:
;; - a
;; - b
(> (- cur-level level) 1)
(assoc :block/level (inc level)))
parents' (conj parents block)
result' (conj result block)]
[others parents' result'])