Improve dashboard accessibility

This commit is contained in:
Eva 2022-11-28 08:44:19 +01:00
parent 2ce36ce052
commit 7045496a39
28 changed files with 761 additions and 283 deletions

View file

@ -104,7 +104,7 @@
:placeholder label
:on-change on-change
:type @type'
:tabindex "0")
:tab-index "0")
(cond-> (and value is-checkbox?) (assoc :default-checked value))
(cond-> (and touched? (:message error)) (assoc "aria-invalid" "true"
"aria-describedby" (dm/str "error-" input-name)))
@ -224,7 +224,7 @@
{:name "submit"
:class (when (or (not (:valid @form)) (true? disabled)) "btn-disabled")
:disabled (or (not (:valid @form)) (true? disabled))
:tabindex "0"
:tab-index "0"
:on-click on-click
:on-key-down (fn [event]
(when (kbd/enter? event)