lots of changes to make ledger actually visible.

src/clj/auto_ap/graphql/ledger.clj

@@ -0,0 +1,17 @@
+(ns auto-ap.graphql.ledger
+  (:require [datomic.api :as d]
+            [auto-ap.datomic.ledger :as l]
+            [auto-ap.graphql.utils :refer [->graphql <-graphql]]
+            [auto-ap.datomic :refer [uri merge-query]]))
+
+(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))}))
+
+#_(get-ledger-page nil nil nil)