Don't show future journals

web/src/main/frontend/db.cljs

@@ -616,6 +616,7 @@
 
 (defn get-pages-with-modified-at
   [repo]
+  (let [now-long (tc/to-long (t/now))]
     (->> (q repo [:pages] {:use-cache? false}
           '[:find ?page-name ?modified-at
             :where
@@ -639,8 +640,9 @@
                    [modified-at page]))
         (reverse)
         (remove (fn [[page modified-at]]
-                 (util/file-page? page)))
-       ))
+                  (or (util/file-page? page)
+                      (and modified-at
+                           (> modified-at now-long))))))))
 
 (defn get-page-alias
   [repo page-name]