diff --git a/web/src/main/frontend/db.cljs b/web/src/main/frontend/db.cljs index e0b8a5635..9996b9091 100644 --- a/web/src/main/frontend/db.cljs +++ b/web/src/main/frontend/db.cljs @@ -616,31 +616,33 @@ (defn get-pages-with-modified-at [repo] - (->> (q repo [:pages] {:use-cache? false} - '[:find ?page-name ?modified-at - :where - [?page :page/name ?page-name] - [(get-else $ ?page :page/journal? false) ?journal] - [(get-else $ ?page :page/last-modified-at 0) ?modified-at] - ;; (or - ;; ;; journal pages, can't be empty - ;; (and [(true? ?journal)] - ;; [?h :heading/page ?page] - ;; [?h :heading/level ?level] - ;; [(> ?level 1)]) - ;; ;; non-journals, might be empty pages - ;; (and [(false? ?journal)] - ;; [?h :heading/page] - ;; [?h :heading/level ?level])) - ]) - (react) - (seq) - (sort-by (fn [[page modified-at]] - [modified-at page])) - (reverse) - (remove (fn [[page modified-at]] - (util/file-page? page))) - )) + (let [now-long (tc/to-long (t/now))] + (->> (q repo [:pages] {:use-cache? false} + '[:find ?page-name ?modified-at + :where + [?page :page/name ?page-name] + [(get-else $ ?page :page/journal? false) ?journal] + [(get-else $ ?page :page/last-modified-at 0) ?modified-at] + ;; (or + ;; ;; journal pages, can't be empty + ;; (and [(true? ?journal)] + ;; [?h :heading/page ?page] + ;; [?h :heading/level ?level] + ;; [(> ?level 1)]) + ;; ;; non-journals, might be empty pages + ;; (and [(false? ?journal)] + ;; [?h :heading/page] + ;; [?h :heading/level ?level])) + ]) + (react) + (seq) + (sort-by (fn [[page modified-at]] + [modified-at page])) + (reverse) + (remove (fn [[page modified-at]] + (or (util/file-page? page) + (and modified-at + (> modified-at now-long)))))))) (defn get-page-alias [repo page-name]