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

refactor: db migrate

Browse Source
This commit is contained in:
Tienson Qin
2021-03-15 09:50:06 +08:00
parent d29b265e28
commit 15dd3c46a7
11 changed files with 69 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -22,7 +22,7 @@
(let [refs (if-let [refs (seq (:block/refs-with-children block))]
refs
(concat
(:block/ref-pages block)
(:block/refs block)
(:block/tags block)))]
(distinct refs)))]
(loop [col (reverse col)
@@ -198,7 +198,7 @@
(let [ref-pages (->> (if group-by-page?
(mapcat last ref-blocks)
ref-blocks)
(mapcat (fn [b] (concat (:block/ref-pages b) (:block/children-refs b))))
(mapcat (fn [b] (concat (:block/refs b) (:block/children-refs b))))
(distinct)
(map :db/id)
(db/pull-many repo '[:db/id :block/name]))
@@ -215,13 +215,13 @@
(cond->> ref-blocks
(seq exclude-ids)
(remove (fn [block]
(let [ids (set (concat (map :db/id (:block/ref-pages block))
(let [ids (set (concat (map :db/id (:block/refs block))
(map :db/id (:block/children-refs block))))]
(seq (set/intersection exclude-ids ids)))))
(seq include-ids)
(remove (fn [block]
(let [ids (set (concat (map :db/id (:block/ref-pages block))
(let [ids (set (concat (map :db/id (:block/refs block))
(map :db/id (:block/children-refs block))))]
(empty? (set/intersection include-ids ids)))))
))]