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

fix: addresses code review fixes

Browse Source
This commit is contained in:
Haoji Xu
2020-08-10 20:36:39 +08:00
committed by Tienson Qin
parent e7ca7a174f
commit 31fb7890de
2 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
web/src/main/frontend/components/page.cljs
View File

@@ -361,12 +361,15 @@
[:p.opacity-70.font-medium "Empty"]])))
(rum/defc all-pages < rum/reactive
{:did-mount (fn [state]
(let [current-repo (state/sub :git/current-repo)]
(db/remove-orphaned-pages! current-repo))
state)}
[]
(let [current-repo (state/sub :git/current-repo)]
[:div.flex-1
[:h1.title "All Pages"]
(when current-repo
(db/remove-orphaned-pages! current-repo)
(let [pages (db/get-pages-with-modified-at current-repo)]
[:table.table-auto
[:thead

4
web/src/main/frontend/db.cljs
View File

@@ -1993,12 +1993,12 @@
(defn remove-orphaned-pages!
[repo]
(let [empty-pages (get-pages repo)
(let [all-pages (get-pages repo)
orphaned-pages (remove nil? (map (fn [page]
(let [name (string/lower-case page)]
(if (and (empty? (get-pages-that-mentioned-page repo name))
(not (journal-page? name))
(empty? (get-page-headings name))) name nil))) empty-pages))
(empty? (get-page-headings name))) name nil))) all-pages))
transaction (mapv (fn [name] [:db/retractEntity (:db/id (get-page (str name)))]) orphaned-pages)]
(transact! transaction)))