3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-07 14:38:33 +02:00
Code Issues Projects Releases Packages Wiki Activity

Add ctrl? predicate to keyboard ns.

Browse source
This commit is contained in:
Andrey Antukh 2016-01-30 20:18:15 +02:00
parent 3dd0d840d9
commit 0b5de2d2b8
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/uxbox/ui/keyboard.cljs
View file

@ -5,5 +5,9 @@
(fn [e] (fn [e]
(= (.-keyCode e) keycode))) (= (.-keyCode e) keycode)))
(defn ctrl?
[event]
(.-ctrlKey event))
(def esc? (is-keycode? 27)) (def esc? (is-keycode? 27))
(def enter? (is-keycode? 13)) (def enter? (is-keycode? 13))