Improve login accessibility

This commit is contained in:
Eva 2022-11-28 08:44:19 +01:00 committed by Andrey Antukh
parent 8bc265a598
commit 95a18fce8d
20 changed files with 978 additions and 251 deletions

View file

@ -24,10 +24,10 @@
(s/def ::email-2 ::us/email)
(defn- email-equality
[data]
[errors data]
(let [email-1 (:email-1 data)
email-2 (:email-2 data)]
(cond-> {}
(cond-> errors
(and email-1 email-2 (not= email-1 email-2))
(assoc :email-2 {:message (tr "errors.email-invalid-confirmation")}))))