adding accounts.

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

@@ -1,5 +1,7 @@
 (ns auto-ap.datomic.migrate.add-general-ledger
   (:require [datomic.api :as d]
+            [auto-ap.datomic :refer [remove-nils]]
+            [auto-ap.expense-accounts :as expense-accounts]
             [auto-ap.ledger :as ledger]))
 
 (def add-general-ledger 
@@ -62,6 +64,55 @@
      :db/doc "Location of the entry"}]
    ]
   )
+(def add-accounts
+  [[
+    {:db/ident :account/code
+     :db/valueType :db.type/string
+     :db/cardinality :db.cardinality/one
+     :db/doc "The code for the expense account (e.g., A1123)"}
+
+    {:db/ident :account/numeric-code
+     :db/valueType :db.type/long
+     :db/cardinality :db.cardinality/one
+     :db/doc "The numeric-only for the expense account (e.g., 5150)"}
+
+    {:db/ident :account/name
+     :db/valueType :db.type/string
+     :db/cardinality :db.cardinality/one
+     :db/doc "The name of the code (e.g., \"Telephone - HQ\")"} 
+
+    {:db/ident :account/location
+     :db/valueType :db.type/string
+     :db/cardinality :db.cardinality/one
+     :db/doc "A forced location for this code, e.g., HQ."}
+
+    {:db/ident :account/account-set
+     :db/valueType :db.type/string
+     :db/cardinality :db.cardinality/one
+     :db/doc "The set of accounts this entry belongs to. Allows customization."}
+
+    {:db/ident :account/type
+     :db/valueType :db.type/ref
+     :db/cardinality :db.cardinality/one
+     :db/doc "The type of account, (e.g., :account-type/expense :account-type/liability)"}
+
+    {:db/ident :account-type/expense}
+    {:db/ident :account-type/liability}
+    {:db/ident :account-type/revenue}
+    {:db/ident :account-type/dividend}
+    {:db/ident :account-type/asset}
+    {:db/ident :account-type/equity}]
+
+   (mapv
+    (fn [[numeric {:keys [name location]}]]
+      (remove-nils
+       {:account/type :account-type/expense
+        :account/numeric-code numeric
+        :account/code (str numeric)
+        :account/name name
+        :account/location location
+        :account/account-set "default"}))
+    expense-accounts/chooseable-expense-accounts)])
 
 (defn add-general-ledger-fns [conn]
   [[{:db/ident :replace-general-ledger