Simple account export

2020-05-21 06:17:58 -07:00
parent d30dfb5e34
commit 4429fa384a
2 changed files with 37 additions and 0 deletions
--- a/src/clj/auto_ap/datomic/clients.clj
+++ b/src/clj/auto_ap/datomic/clients.clj
@@ -35,6 +35,15 @@
   
   #_(first)))

+(defn code->id [code]
+  (->> 
+   (d/query (-> {:query {:find ['?e]
+                         :in ['$ '?code]
+                         :where [['?e :client/code '?code ]]}
+                 :args [(d/db (d/connect uri)) code]}))
+   (first)
+   (first)))
+
 (defn assoc-image [code image]
  @(d/transact (d/connect uri)
               [{ :client/code code