Adding accounts.

src/clj/auto_ap/graphql/accounts.clj

@@ -0,0 +1,18 @@
+(ns auto-ap.graphql.accounts
+  (:require [datomic.api :as d]
+            [auto-ap.graphql.utils :refer [->graphql]]
+            [auto-ap.datomic :refer [uri merge-query]]))
+
+(defn get-accounts [context args value]
+  (let [query (cond-> {:query {:find ['(pull ?e [* {:account/type [:db/ident :db/id]}])]
+                               :in ['$]
+                               :where [['?e :account/name]]}
+                       :args [(d/db (d/connect uri))]}
+                (:account_set args) (merge-query {:query {:in ['?account-set]
+                                                          :where [['?e :account/account-set '?account-set]]}
+                                                  :args [(:account_set args)]}))]
+    (doto (->>
+           (d/query query)
+           (map first)
+           (->graphql ))
+      println)))