Improve email clean mechanism

This commit is contained in:
Andrey Antukh 2024-04-16 17:24:33 +02:00
parent c975e0bcee
commit 16fa0b0330
2 changed files with 12 additions and 0 deletions

View file

@ -46,6 +46,10 @@
(let [email (str/lower email)
email (if (str/starts-with? email "mailto:")
(subs email 7)
email)
email (if (or (str/starts-with? email "<")
(str/ends-with? email ">"))
(str/trim email "<>")
email)]
email))