First step of adding general ledger.

src/clj/auto_ap/ledger.clj

@@ -0,0 +1,18 @@
+(ns auto-ap.ledger
+  (:require [datomic.api :as d]
+            [auto-ap.datomic :refer [uri]]))
+
+(defonce report-queue (d/tx-report-queue (d/connect uri) ) )
+
+(let [transaction (.peek report-queue)]
+  (->> (:tx-data transaction)
+       (map (fn [x]
+              (.getY x)
+              (println id)))
+       ))
+
+
+
+
+
+