From 2fd5760aeb9d2e572721bd1cb06df6d6befa1c27 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Wed, 24 Feb 2016 17:20:43 +0200
Subject: [PATCH] Add email and string validators to schema ns.

---
 src/uxbox/schema.cljs | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/uxbox/schema.cljs b/src/uxbox/schema.cljs
index ca3bb03c04..16e906dda1 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