mirror of
https://github.com/penpot/penpot.git
synced 2026-05-26 10:23:45 +00:00
23 lines
349 B
Clojure
23 lines
349 B
Clojure
(ns uxbox.main.ui.keyboard)
|
|
|
|
(defn is-keycode?
|
|
[keycode]
|
|
(fn [e]
|
|
(= (.-keyCode e) keycode)))
|
|
|
|
(defn ^boolean alt?
|
|
[event]
|
|
(.-altKey event))
|
|
|
|
(defn ^boolean ctrl?
|
|
[event]
|
|
(.-ctrlKey event))
|
|
|
|
(defn ^boolean shift?
|
|
[event]
|
|
(.-shiftKey event))
|
|
|
|
(def esc? (is-keycode? 27))
|
|
(def enter? (is-keycode? 13))
|
|
(def space? (is-keycode? 32))
|