more progress for client fdorm.

2022-07-20 08:10:30 -07:00
parent 86aaa4a933
commit 899efe0efa
5 changed files with 130 additions and 100 deletions
--- a/src/cljs/auto_ap/schema.cljs
+++ b/src/cljs/auto_ap/schema.cljs
@@ -11,6 +11,7 @@

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