|
@@ -115,9 +115,10 @@
|
|
|
(seq tagged-pages)
|
|
|
(seq namespaces))
|
|
|
linked (set (flatten links))
|
|
|
+ build-in-pages (set (map string/lower-case default-db/built-in-pages-names))
|
|
|
nodes (cond->> (map :block/name pages-after-journal-filter)
|
|
|
(not builtin-pages?)
|
|
|
- (remove (fn [p] (default-db/built-in-pages-names (string/upper-case p))))
|
|
|
+ (remove (fn [p] (contains? build-in-pages (string/lower-case p))))
|
|
|
(not orphan-pages?)
|
|
|
(filter #(contains? linked (string/lower-case %))))
|
|
|
page-links (reduce (fn [m [k v]] (-> (update m k inc)
|