clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-03 18:36:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

refactor(outliner): blocks->vec-tree

Browse Source
This commit is contained in:
defclass
2021-03-25 16:25:07 +08:00
parent 14836c932c
commit d88542f412
4 changed files with 119 additions and 294 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
src/main/frontend/handler/block.cljs
View File

@@ -11,7 +11,9 @@
[medley.core :as medley]
[frontend.format.block :as block]))
(defn blocks->vec-tree [col]
(defn blocks->vec-tree
"Deprecated: use blocks->vec-tree-by-parent instead."
[col]
(let [col (map (fn [h] (cond->
h
(not (:block/dummy? h))
@@ -60,6 +62,56 @@
other-children)]
(recur others children))))))))
(defn- get-all-refs
[block]
(let [refs (if-let [refs (seq (:block/refs-with-children block))]
refs
(concat
(:block/refs block)
(:block/tags block)))]
(distinct refs)))
(defn prepare-blocks
"Preparing blocks: reverse, update some keys"
[blocks]
(loop [[f & r] blocks
new (list)]
(if (nil? f)
new
(let [f (cond-> f
(not (:block/dummy? f))
(dissoc f :block/meta))]
(recur r (cons f new))))))
(defn blocks->vec-tree-by-parent
[col]
(let [blocks (prepare-blocks col)]
(loop [[f & r] blocks
tree (list)
parent? false]
(if (nil? f)
tree
(let [{:block/keys [parent left]} f
f (assoc f :block/refs-with-children
(->> (get-all-refs f) (remove nil?)))]
(cond
parent?
(let [refs-with-children (->> (mapcat get-all-refs (cons f tree))
(remove nil?)
distinct)
new-ks {:block/children tree
:block/refs-with-children refs-with-children}
f (-> (merge f new-ks) (list))]
(if (not= parent left)
(recur r f false)
(recur r f true)))
(not= parent left)
(recur r (conj tree f) false)
(= parent left) ; first child of parent
(recur r (conj tree f) true)))))))
;; recursively with children content for tree
(defn get-block-content-rec
([block]