notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

Migrates user page to SSR

Browse Source
This commit is contained in:
Bryce
2023-10-12 21:55:37 -07:00
parent c00940fcbf
commit d9fec54062
16 changed files with 542 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/clj/auto_ap/datomic/users.clj
View File

@@ -31,7 +31,8 @@
:where [?e :user/provider ?provider]
[?e :user/provider-id ?provider-id]]
(dc/db conn) provider provider-id))
result @(dc/transact conn [[:upsert-entity (cond-> (assoc new-user :db/id (or user-id "user"))
result @(dc/transact conn [[:upsert-entity (cond-> (assoc new-user :db/id (or user-id "user")
:user/last-login (java.util.Date.))
(not user-id) (assoc :user/role :user-role/none)
is-first-user? (assoc :user/role :user-role/admin))]])
user-id (or user-id (get-in result [:tempids "user"]))]