mirror of
https://github.com/penpot/penpot.git
synced 2025-02-25 00:06:09 -05:00
18 lines
280 B
Clojure
18 lines
280 B
Clojure
(ns uxbox.main.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))
|
|
(def space? (is-keycode? 32))
|