Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-27 15:11:26 -05:00
Code Issues Activity

🎉 Add parse email helper function

Browse source
This commit is contained in:
Andrey Antukh 2022-03-03 14:15:45 +01:00
parent 1cf9ad55c6
commit a1c3789ec2
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
common/src/app/common/spec.cljc
View file

@ -161,14 +161,14 @@
(def email-re #"[a-zA-Z0-9_.+-]+@[a-zA-Z0-9-]+\.[a-zA-Z0-9-.]+")
(defn parse-email
[s]
(some->> s (re-seq email-re) first))
(s/def ::email
(s/conformer
(fn [v]
(if (string? v)
(if-let [matches (re-seq email-re v)]
(first matches)
(do ::s/invalid))
::s/invalid))
(or (parse-email v) ::s/invalid))
str))
(s/def ::set-of-emails