github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-06 20:18:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add email and string validators to schema ns.

Browse Source
This commit is contained in:
Andrey Antukh 2016-02-24 17:20:43 +02:00
parent cf905d77b1
commit 2fd5760aeb
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/uxbox/schema.cljs
View File

@ -47,10 +47,20 @@
[v] [v]
(fn? 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 required v/required)
(def number v/number) (def number v/number)
(def integer v/integer) (def integer v/integer)
(def boolean v/boolean) (def boolean v/boolean)
(def string v/string)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Public Api ;; Public Api