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

fix: tags and query

Browse Source
This commit is contained in:
Tienson Qin
2021-03-01 12:31:30 +08:00
parent 5c727688f9
commit 099cf9dbe9
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/main/frontend/format/block.cljs
View File

@@ -313,18 +313,18 @@
[path-refs (conj parents block)])
(< level-diff 0) ; new parent
(let [parents (take-while (fn [p] (< (:block/level p) cur-level)) parents)
(let [parents (vec (take-while (fn [p] (< (:block/level p) cur-level)) parents))
path-refs (mapcat :block/ref-pages parents)]
[path-refs (conj parents block)]))]
[path-refs (conj parents block)]))
path-ref-pages (->> path-refs
(concat (:block/ref-pages block))
(remove string/blank?)
(map string/lower-case)
(distinct)
(map (fn [p]
{:page/name p})))]
(recur (rest blocks)
(conj acc (assoc block :block/path-ref-pages
(->> path-refs
(concat (:block/ref-pages block))
(remove string/blank?)
(map string/lower-case)
(distinct)
(map (fn [p]
{:page/name p})))))
(conj acc (assoc block :block/path-ref-pages path-ref-pages))
parents)))))
(defn extract-blocks