adding automatic rule feature.

src/clj/auto_ap/datomic/migrate/add_general_ledger.clj

@@ -384,6 +384,11 @@
      :db/cardinality :db.cardinality/one
      :db/doc "Status of a transaction"}
 
+    {:db/ident :transaction/matched-rule
+     :db/valueType :db.type/ref
+     :db/cardinality :db.cardinality/one
+     :db/doc "The rule that this transaction matched"}
+
     {:db/ident :transaction-rule/transaction-approval-status
      :db/valueType :db.type/ref
      :db/cardinality :db.cardinality/one

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))]})))