adding automatic rule feature.

2019-05-15 19:18:51 -07:00
parent 5f810ac2c4
commit 31aee76e61
4 changed files with 25 additions and 9 deletions
--- a/src/clj/auto_ap/datomic/transaction_rules.clj
+++ b/src/clj/auto_ap/datomic/transaction_rules.clj
@@ -77,3 +77,10 @@
  (->> 
   (d/pull (d/db (d/connect uri)) default-read id)
   (<-datomic)))
+
+(defn get-all []
+  (mapv first
+        (d/query {:query {:find [(list 'pull '?e default-read )]
+                          :in ['$]
+                          :where ['[?e :transaction-rule/description]]}
+                  :args [(d/db (d/connect uri))]})))