Another improvement

2022-07-22 06:59:37 -07:00
parent ccbe63456a
commit 3c11891c45
5 changed files with 87 additions and 77 deletions
--- a/src/cljs/auto_ap/schema.cljs
+++ b/src/cljs/auto_ap/schema.cljs
@@ -12,8 +12,9 @@
 (def money (m/schema [float? {:error/message "Invalid money"}]))
 (def not-empty-string (m/schema [:re {:error/message "Required"} #"\S+"]))
 (def code-string (m/schema [:re #"[A-Z0-9\-]+"]))
-(def keyword (m/schema [:fn (fn [d]
-                              (keyword? d))]))
+
+(def positive-integer (m/schema [:int {:min 1}]))
+(def integer-code (m/schema [:int {:min 10000 :max 99999}]))

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