improved two major forms.

2022-07-19 15:10:33 -07:00
parent 483e9ad311
commit 0baab4eaf0
14 changed files with 431 additions and 355 deletions
--- a/src/cljs/auto_ap/schema.cljs
+++ b/src/cljs/auto_ap/schema.cljs
@@ -11,6 +11,8 @@

 (def money (m/schema [float? {:error/message "Invalid money"}]))
 (def not-empty-string (m/schema [:re {:error/message "Required"} #"\S+"]))
+(def keyword (m/schema [:fn (fn [d]
+                              (keyword? d))]))

 (def expense-account (m/schema [:map
                                [:id :string]