percentage-based splitting.

2019-04-23 07:09:21 -07:00
parent 81a13bf2e0
commit 9f30c74619
6 changed files with 158 additions and 56 deletions
--- a/src/cljc/auto_ap/entities/shared.cljc
+++ b/src/cljc/auto_ap/entities/shared.cljc
@@ -12,5 +12,6 @@
 (s/def ::required-identifier (s/and string?
                                    #(not (str/blank? %))))

-(s/def ::money (s/and string?
-                      #(re-matches money-regex %)))
+(s/def ::money (s/or :string (s/and string?
+                                    #(re-matches money-regex %))
+                     :float float?))