clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-04 02:46:45 +00:00
Code Issues Packages Projects Releases Wiki Activity

chore: merge latest changes to filters

Browse Source
This commit is contained in:
Tienson Qin
2021-03-04 21:41:21 +08:00
parent 5ceb7b43b1 7d3f5b2941
commit 74b42aa5a7
159 changed files with 11205 additions and 5141 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -15,7 +15,14 @@
(dissoc h :block/meta))) col)
parent? (fn [item children]
(and (seq children)
(every? #(< (:block/level item) (:block/level %)) children)))]
(every? #(< (:block/level item) (:block/level %)) children)))
get-all-refs (fn [block]
(let [refs (if-let [refs (seq (:block/refs-with-children block))]
refs
(concat
(:block/ref-pages block)
(:block/tags block)))]
(distinct refs)))]
(loop [col (reverse col)
children (list)]
(if (empty? col)
@@ -23,7 +30,9 @@
(let [[item & others] col
cur-level (:block/level item)
bottom-level (:block/level (first children))
pre-block? (:block/pre-block? item)]
pre-block? (:block/pre-block? item)
item (assoc item :block/refs-with-children (->> (get-all-refs item)
(remove nil?)))]
(cond
(empty? children)
(recur others (list item))
@@ -38,9 +47,13 @@
(let [[children other-children] (split-with (fn [h]
(> (:block/level h) cur-level))
children)
refs-with-children (->> (mapcat get-all-refs (cons item children))
(remove nil?)
distinct)
children (cons
(assoc item :block/children children)
(assoc item
:block/children children
:block/refs-with-children refs-with-children)
other-children)]
(recur others children))))))))