diff --git a/src/uxbox/schema.cljs b/src/uxbox/schema.cljs index ca3bb03c0..16e906dda 100644 --- a/src/uxbox/schema.cljs +++ b/src/uxbox/schema.cljs @@ -47,10 +47,20 @@ [v] (fn? v)) +(def ^:const +email-re+ + #"^[a-zA-Z0-9_.+-]+@[a-zA-Z0-9-]+\.[a-zA-Z0-9-.]+$") + +(v/defvalidator email + "Validate if `v` is a valid email." + {:default-message-format "% must be a valid email."} + [v] + (clojure.core/boolean (re-seq +email-re+ v))) + (def required v/required) (def number v/number) (def integer v/integer) (def boolean v/boolean) +(def string v/string) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Public Api