progress on authentication.

src/clj/auto_ap/datomic/users.clj

@@ -26,12 +26,30 @@
          (map #(update % :user/role :db/ident))
          first)))
 
+(defn find-or-insert! [{:keys [:user/provider :user/provider-id] :as new-user}]
+  (let [user (some-> {:query [:find '(pull ?e [*
+                                            {:user/clients [*]}
+                                            {:user/role [:db/ident]}])
+                          :in '$ '?provider '?provider-id
+                          :where '[?e :user/provider ?provider]
+                                  '[?e :user/provider-id ?provider-id]]
+                  :args [(d/db (d/connect uri)) provider provider-id]}
+                 (d/query)
+                 first
+                 first
+                 (update :user/role :db/ident))]
+    (if user
+      user
+      (let [new-user-trans @(d/transact (d/connect uri) [(assoc new-user :db/id "user")])]
+        (println new-user-trans)
+        (get-by-id (-> new-user-trans :tempids (get "user")))))))
+
 (defn raw-graphql [args]
   (let [query (cond-> {:query {:find ['(pull ?e [*
                                                  {:user/clients [*]}
                                                  {:user/role [:db/ident]}])]
                                :in ['$]
-                               :where ['[?e :user/original-id]]}
+                               :where ['[?e :user/role]]}
                        :args [(d/db (d/connect uri))]})]
     
     (->> (d/query query)