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

@ -40,11 +40,15 @@
(def space? (is-key? " "))
(def up-arrow? (is-key? "ArrowUp"))
(def down-arrow? (is-key? "ArrowDown"))
(def left-arrow? (is-key? "ArrowLeft"))
(def right-arrow? (is-key? "ArrowRight"))
(def alt-key? (is-key? "Alt"))
(def ctrl-key? (is-key? "Control"))
(def meta-key? (is-key? "Meta"))
(def comma? (is-key? ","))
(def backspace? (is-key? "Backspace"))
(def home? (is-key? "Home"))
(def tab? (is-key? "Tab"))
(defn editing? [e]
(.-editing ^js e))