Migrates user page to SSR

2023-10-12 21:55:37 -07:00
parent c00940fcbf
commit d9fec54062
16 changed files with 542 additions and 33 deletions
--- a/scratch-sessions/setup-user-last-login.repl
+++ b/scratch-sessions/setup-user-last-login.repl
@@ -0,0 +1,14 @@
+
+(->> (dc/q '[:find ?u (max ?lat)
+             :in $ $$
+             :where [?u :user/name]
+             [$$ ?u _ _ ?tx]
+             [?tx :db/txInstant ?lat]]
+            (dc/db conn)
+           (dc/history (dc/db conn)))
+     (map (fn [[u last-login]]
+            {:db/id           u
+             :user/last-login last-login}))
+     (dc/transact conn)
+     deref)
+