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

Saves email address and profile photos

Browse Source
This commit is contained in:
Bryce
2023-05-26 22:00:38 -07:00
parent 936a300a05
commit dd5feb260d
6 changed files with 54 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,7 +1,8 @@
(ns auto-ap.datomic.users
(:require
[auto-ap.datomic :refer [conn]]
[datomic.api :as dc]))
[datomic.api :as dc]
[datomic.api :as d]))
(defn add-arg [query name value where & rest]
(let [query (-> query
@@ -19,27 +20,27 @@
(map #(update % :user/role :db/ident))
first))
(defn find-or-insert! [{:keys [:user/provider :user/provider-id] :as new-user}]
(defn find-or-insert! [{:keys [:user/provider :user/provider-id ] :as new-user}]
(let [is-first-user? (not (seq (dc/q [:find '?e
:in '$
:where '[?e :user/provider]]
(dc/db conn))))
user (some-> (dc/q [:find '(pull ?e [*
{:user/clients [*]}
{:user/role [:db/ident]}])
:in '$ '?provider '?provider-id
:where '[?e :user/provider ?provider]
'[?e :user/provider-id ?provider-id]]
(dc/db conn) provider provider-id)
first
first
(update :user/role :db/ident))]
(if user
user
(let [new-user-trans @(dc/transact conn [(cond-> new-user
true (assoc :db/id "user")
is-first-user? (assoc :user/role :user-role/admin))])]
(get-by-id (-> new-user-trans :tempids (get "user")))))))
user-id (ffirst (dc/q '[:find ?e
:in $ ?provider ?provider-id
: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"))
(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"]))]
(update (dc/pull (dc/db conn)
'[*
{:user/clients [*]}
{:user/role [:db/ident]}]
user-id)
:user/role :db/ident)))
(defn raw-graphql [_]
(->> (dc/q {:find ['(pull ?e [*