mirror of https://github.com/logseq/logseq
fix: block levels with wrong order when importing to db
parent
855fe82067
commit
d1a576165d
|
@ -546,11 +546,18 @@
|
||||||
|
|
||||||
(> cur-level level) ; child
|
(> cur-level level) ; child
|
||||||
(let [parent (if uuid [:block/uuid uuid] (:page/id last-parent))
|
(let [parent (if uuid [:block/uuid uuid] (:page/id last-parent))
|
||||||
block (assoc block
|
_ (prn {:cur-level cur-level
|
||||||
|
:level level})
|
||||||
|
block (cond->
|
||||||
|
(assoc block
|
||||||
:block/parent parent
|
:block/parent parent
|
||||||
:block/left parent
|
:block/left parent)
|
||||||
;; Fix wrong input levels
|
;; fix block levels with wrong order
|
||||||
:block/level (inc level))
|
;; For example:
|
||||||
|
;; - a
|
||||||
|
;; - b
|
||||||
|
(> (- cur-level level) 1)
|
||||||
|
(assoc :block/level (inc level)))
|
||||||
parents' (conj parents block)
|
parents' (conj parents block)
|
||||||
result' (conj result block)]
|
result' (conj result block)]
|
||||||
[others parents' result'])
|
[others parents' result'])
|
||||||
|
|
Loading…
Reference in New Issue