3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-01 05:58:24 +02:00
Code Issues Projects Releases Packages Wiki Activity

♻️ Refactor keyboard events to replace a deprecated parameter

Browse source
This commit is contained in:
Andrés Moya 2021-04-28 10:09:50 +02:00 • committed by Alonso Torres
parent 547a472016
commit b0575e969f
7 changed files with 25 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

19
frontend/src/app/util/keyboard.cljs
View file

@ -6,10 +6,10 @@
(ns app.util.keyboard)
(defn is-keycode?
[keycode]
(defn is-key?
[key]
(fn [e]
(= (.-keyCode e) keycode)))
(= (.-key e) key)))
(defn ^boolean alt?
[event]
@ -27,8 +27,11 @@
[event]
(.-shiftKey event))
(def esc? (is-keycode? 27))
(def enter? (is-keycode? 13))
(def space? (is-keycode? 32))
(def up-arrow? (is-keycode? 38))
(def down-arrow? (is-keycode? 40))
(def esc? (is-key? "Escape"))
(def enter? (is-key? "Enter"))
(def space? (is-key? " "))
(def up-arrow? (is-key? "ArrowUp"))
(def down-arrow? (is-key? "ArrowDown"))
(def altKey? (is-key? "Alt"))
(def ctrlKey? (or (is-key? "Control")
(is-key? "Meta")))