CalvinBackup/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-02-12 22:53:02 +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
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]
(= (.-keyCode e) keycode)))
(defn ctrl?
[event]
(.-ctrlKey event))
(def esc? (is-keycode? 27))
(def enter? (is-keycode? 13))