From 7bfe451ccd73c88160110d7d7deb6cc4eddb4354 Mon Sep 17 00:00:00 2001
From: Bryce Covert <bryce@pelo.tech>
Date: Thu, 11 Apr 2019 10:20:36 -0700
Subject: [PATCH] Adding accounts.

---
 src/clj/auto_ap/graphql/accounts.clj | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 src/clj/auto_ap/graphql/accounts.clj

diff --git a/src/clj/auto_ap/graphql/accounts.clj b/src/clj/auto_ap/graphql/accounts.clj
new file mode 100644
index 00000000..3e0ea79a
--- /dev/null
+++ b/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)))