mirror of
https://github.com/penpot/penpot.git
synced 2025-03-13 08:11:30 -05:00
17 lines
245 B
Clojure
17 lines
245 B
Clojure
(ns uxbox.ui.keyboard)
|
|
|
|
(defn is-keycode?
|
|
[keycode]
|
|
(fn [e]
|
|
(= (.-keyCode e) keycode)))
|
|
|
|
(defn ctrl?
|
|
[event]
|
|
(.-ctrlKey event))
|
|
|
|
(defn shift?
|
|
[event]
|
|
(.-shiftKey event))
|
|
|
|
(def esc? (is-keycode? 27))
|
|
(def enter? (is-keycode? 13))
|