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
[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]