lots of changes to make ledger actually visible.

src/clj/auto_ap/datomic/accounts.clj

@@ -0,0 +1,28 @@
+(ns auto-ap.datomic.accounts
+  (:require [datomic.api :as d]
+            [auto-ap.graphql.utils :refer [->graphql]]
+            [auto-ap.datomic :refer [uri merge-query]]))
+
+(defn get-accounts [args]
+  (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)]}))]
+    (->>
+     (d/query query)
+     (map first))))
+
+(defn get-account-by-numeric-code-and-sets [numeric-code sets]
+  (let [query (cond-> {:query {:find ['(pull ?e [* {:account/type [:db/ident :db/id]}])]
+                               :in ['$ '?numeric-code]
+                               :where ['[?e :account/numeric-code ?numeric-code]]}
+                       :args [(d/db (d/connect uri)) numeric-code]})]
+    (->>
+     (d/query query)
+     (map first)
+     (first))))
+
+#_(get-account-by-numeric-code-and-sets 5110 nil)