adding transaction rules.

src/clj/auto_ap/graphql/ledger.clj

@@ -5,7 +5,7 @@
             [auto-ap.datomic.accounts :as a]
             [auto-ap.utils :refer [by dollars=]]
             [auto-ap.time :refer [parse iso-date]]
-            [auto-ap.graphql.utils :refer [->graphql <-graphql limited-clients assert-admin]]
+            [auto-ap.graphql.utils :refer [->graphql <-graphql limited-clients assert-admin result->page]]
             [clj-time.coerce :as coerce]
             [clojure.string :as str]
             [clj-time.core :as time]
@@ -16,13 +16,8 @@
 
 (defn get-ledger-page [context args value]
   (let [args (assoc args :id (:id context))
-        [journal-entries journal-entries-count] (l/get-graphql (<-graphql args))
-        journal-entries (map ->graphql journal-entries)]
-    {:journal_entries journal-entries
-     :total journal-entries-count
-     :count (count journal-entries)
-     :start (:start args 0)
-     :end (+ (:start args 0) (count journal-entries))}))
+        [journal-entries journal-entries-count] (l/get-graphql (<-graphql args))]
+    (result->page journal-entries journal-entries-count :journal_entries args)))
 
 ;; TODO a  better way to do this might be to accumulate ALL credits and ALL debits, and then just do for credits: balance = credits - debits. and for debits balance = debits - credits
 (defn credit-account? [account]

src/clj/auto_ap/graphql/transaction_rules.clj

@@ -0,0 +1,8 @@
+(ns auto-ap.graphql.transaction-rules
+  (:require [auto-ap.datomic.transaction-rules :as tr]
+            [auto-ap.graphql.utils :refer [->graphql <-graphql limited-clients assert-admin result->page]]))
+
+(defn get-transaction-rule-page [context args value]
+  (let [args (assoc args :id (:id context))
+        [journal-entries journal-entries-count] (tr/get-graphql (<-graphql args))]
+    (result->page journal-entries journal-entries-count :transaction_rules args)))

src/clj/auto_ap/graphql/utils.clj

@@ -70,3 +70,10 @@
 
     (= (:user/role id) "user")
     (:user/clients id [])))
+
+(defn result->page [results result-count key args]
+  {key (map ->graphql results)
+   :total result-count
+   :count (count results)
+   :start (:start args 0)
+   :end (+ (:start args 0) (count results))})