Supports editing expense accounts

src/cljc/auto_ap/entities/account.cljc

@@ -0,0 +1,16 @@
+(ns auto-ap.entities.account
+  (:require [clojure.spec.alpha :as s]
+            [clojure.string :as str]
+            [auto-ap.entities.shared :as shared]))
+
+(def numeric-regex #"^[0-9]+$")
+
+(s/def ::account-set string?)
+(s/def ::numeric-code (s/or :numericstring? (s/and string?
+                                                          #(re-matches numeric-regex %))
+                            :numeric? int?))
+(s/def ::name string?)
+(s/def ::type #{:dividend :expense :asset :liability :equities :revenue})
+
+(s/def ::account (s/keys :req-un [::account-set ::numeric-code ::name ::type]))
+