om-next-keyboard.cljs

(ns srs-c.utils.keyboard
  (:require-macros
    [klang.macros :refer [log! debg! trac! info! warn! erro! crit! fata! env!]]
    [srs-c.macros :refer [onlydev onlyprod]])
  (:require [goog.events])
  (:import  [goog.ui KeyboardShortcutHandler]))


(defn install-shortcut!
  "Installs a Keyboard Shortcut handler.
   The key is a string the trigger is a function that will receive the keyboard event as the
   first argument. If once? is true the keyboard shortcut is only fired once.
   The unregister handler is returned and can be called to unregister the listener."
  ([key trigger] (install-shortcut! key trigger true))
  ([key trigger once?]
   (let [handler (new KeyboardShortcutHandler js/window)]
     (.registerShortcut handler (str key once?) key)
     (.listen goog.events
              handler
              KeyboardShortcutHandler.EventType.SHORTCUT_TRIGGERED
              (fn [e]
                (trigger e)
                (when once?
                  (trac! "Keyboard shortcut triggered for key" key "and unregistered.")
                  (.unregisterShortcut handler keys))))
     (trac! "Keyboard shortcut installed " key)
     (fn [] (.unregisterShortcut handler keys)))))

usage.cljs

(defui
  Login-Popup
  ;; Shows the login screen
  Object
  (componentDidMount [this]
    (om/set-state! this {:esc-handler (keyboard/install-shortcut! "esc" #(goto % (route-home)))}))
  (componentWillUnmount [this]
    ((om/get-state this :esc-handler)))
  (render [this]
    nil))