|
|
@@ -125,15 +125,12 @@
|
|
|
(let [*ref-pages (::ref-pages state)
|
|
|
page-id (:db/id page-entity)
|
|
|
ref-blocks (db/get-referenced-blocks page-id)
|
|
|
- _ (prn :debug :ref-blocks ref-blocks)
|
|
|
aliases (db/page-alias-set repo page-id)
|
|
|
aliases-exclude-self (set (remove #{page-id} aliases))
|
|
|
top-level-blocks (filter (fn [b] (some aliases (set (map :db/id (:block/refs b))))) ref-blocks)
|
|
|
top-level-blocks-ids (set (map :db/id top-level-blocks))
|
|
|
filtered-ref-blocks (->> (block-handler/filter-blocks ref-blocks filters)
|
|
|
(block-handler/get-filtered-ref-blocks-with-parents ref-blocks))
|
|
|
- _ (prn :debug :ref-blocks ref-blocks
|
|
|
- :filtered-ref-blocks filtered-ref-blocks)
|
|
|
total (count top-level-blocks)
|
|
|
filtered-top-blocks (filter (fn [b] (top-level-blocks-ids (:db/id b))) filtered-ref-blocks)
|
|
|
filter-n (count filtered-top-blocks)
|