3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-22 15:27:17 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Improve login accessibility

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

25
frontend/src/app/util/forms.cljs
View file

@ -21,12 +21,16 @@
(and (empty? path)
(list? pred)
(= (first (last pred)) 'cljs.core/contains?))
(let [path (conj path (last (last pred)))]
(assoc-in acc path {:code ::missing :type :builtin}))
(let [field (last (last pred))
path (conj path field)
root (first via)]
(assoc-in acc path {:code :missing :type :builtin :root root :field field}))
(and (seq path)
(seq via))
(assoc-in acc path {:code (last via) :type :builtin})
(and (seq path) (seq via))
(let [field (first path)
code (last via)
root (first via)]
(assoc-in acc path {:code code :type :builtin :root root :field field}))
:else acc))
@ -64,11 +68,12 @@
problems (when (= ::s/invalid cleaned)
(::s/problems (s/explain-data spec (:data state))))
errors (merge (reduce interpret-problem {} problems)
(reduce (fn [errors vf]
(merge errors (vf (:data state))))
{} validators)
(:errors state))]
errors (reduce interpret-problem {} problems)
errors (reduce (fn [errors vf]
(merge errors (vf errors (:data state))))
errors
validators)
errors (merge errors (:errors state))]
(assoc state
:errors errors