added auditing.

2020-08-27 07:24:12 -07:00
parent 6fce14ed6a
commit 183c74f128
13 changed files with 337 additions and 243 deletions
--- a/src/clj/user.clj
+++ b/src/clj/user.clj
@@ -383,3 +383,13 @@
               (d/tx-range (d/log (d/connect uri))
                           i
                           (inc i))))))
+(defn tx-range-detail [i]
+  (map (juxt :e #(d/ident (d/db (d/connect uri))  (:a %)) :v)
+       
+       (mapcat :data (d/tx-range (d/log (d/connect uri))
+                                 (- i 100)
+                                 (+ i 100)))))
+
+
+(defn start-db []
+  (mount.core/start (mount.core/only #{#'auto-ap.datomic/conn})))