github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-07 04:29:31 +00:00
Code Issues Packages Projects Releases 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
Show Stats 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))