Lazy loading journals and queries

This commit is contained in:
Tienson Qin
2022-05-10 16:06:53 +08:00
parent d1c6d4ce88
commit 8c2e07275b
5 changed files with 38 additions and 29 deletions

View File

@@ -453,11 +453,12 @@
(declare save-current-block!)
(defn outliner-insert-block!
[config current-block new-block {:keys [sibling? keep-uuid? replace-empty-target?]}]
(let [ref-top-block? (and (:ref? config)
(not (:ref-child? config)))
(let [ref-query-top-block? (and (:ref? config)
(:custom-query? config)
(not (:ref-or-query? config)))
has-children? (db/has-children? (:block/uuid current-block))
sibling? (cond
ref-top-block?
ref-query-top-block?
false
(boolean? sibling?)
@@ -3477,7 +3478,7 @@
[block config]
(or
(and
(:ref? config)
(or (:ref? config) (:custom-query? config))
(>= (inc (:block/level block))
(state/get-ref-open-blocks-level))
;; has children