greatbody
/
logseq
mirror of https://github.com/logseq/logseq
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Don't show future journals

pull/645/head
Tienson Qin 2020-07-11 23:45:24 +08:00
parent bdcc77fcbe
commit 596420b6e5
1 changed files with 27 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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