enhance: page adds timestamps && all pages

2026-04-27 23:54:55 +00:00 · 2021-07-14 00:31:57 +08:00
parent ac1f68004a
commit e2a047c1ac
15 changed files with 314 additions and 188 deletions
--- a/src/main/frontend/handler/common.cljs
+++ b/src/main/frontend/handler/common.cljs
@@ -193,3 +193,23 @@
  {:title page-name
   ;; :date (date/get-date-time-string)
   })
+
+(defn fix-pages-timestamps
+  [pages]
+  (map (fn [{:block/keys [name created-at updated-at journal-day] :as p}]
+         (cond->
+           p
+
+           (nil? created-at)
+           (assoc :block/created-at
+                  (if journal-day
+                    (date/journal-day->ts journal-day)
+                    (util/time-ms)))
+
+           (nil? updated-at)
+           (assoc :block/updated-at
+                  ;; Not exact true
+                  (if journal-day
+                    (date/journal-day->ts journal-day)
+                    (util/time-ms)))))
+    pages))