Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-08 16:00:19 -05:00
Code Issues Activity

Minor refactor of shortcuts handling.

Browse source
This commit is contained in:
Andrey Antukh 2016-01-09 12:12:44 +02:00
parent 7810295300
commit 894836fa55
1 changed files with 18 additions and 34 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
frontend/uxbox/ui/workspace/shortcuts.cljs
View file

@ -1,4 +1,5 @@
(ns uxbox.ui.workspace.shortcuts (ns uxbox.ui.workspace.shortcuts
(:require-macros [uxbox.util.syntax :refer [define-once]])
(:require [goog.events :as events] (:require [goog.events :as events]
[beicon.core :as rx] [beicon.core :as rx]
[uxbox.rstore :as rs] [uxbox.rstore :as rs]
@ -9,14 +10,20 @@
goog.ui.KeyboardShortcutHandler)) goog.ui.KeyboardShortcutHandler))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Keyboard Shortcuts Watcher ;; Keyboard Shortcuts Handlers
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defonce ^:static +shortcuts+ (defonce ^:static +shortcuts+
#{:ctrl+g {:ctrl+g #(rs/emit! (dw/toggle-tool :grid))
:ctrl+shift+f :ctrl+shift+f #(rs/emit! (dw/toggle-toolbox :draw))
:ctrl+shift+i :ctrl+shift+i #(rs/emit! (dw/toggle-toolbox :icons))
:ctrl+shift+l}) :ctrl+shift+l #(rs/emit! (dw/toggle-toolbox :layers))
:esc (constantly nil)
:backspace (constantly nil)})
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Keyboard Shortcuts Watcher
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defonce ^:static ^:private +bus+ (defonce ^:static ^:private +bus+
(rx/bus)) (rx/bus))
@ -28,7 +35,7 @@
[] []
(let [handler (KeyboardShortcutHandler. js/document)] (let [handler (KeyboardShortcutHandler. js/document)]
;; Register shortcuts. ;; Register shortcuts.
(doseq [item +shortcuts+] (doseq [item (keys +shortcuts+)]
(let [identifier (name item)] (let [identifier (name item)]
(.registerShortcut handler identifier identifier))) (.registerShortcut handler identifier identifier)))
@ -40,34 +47,11 @@
(events/unlistenByKey key) (events/unlistenByKey key)
(.clearKeyListener handler))))) (.clearKeyListener handler)))))
;; DEBUG (define-once
(rx/on-value +stream+ #(println "[debug]: shortcut:" %)) (rx/on-value +stream+ #(println "[debug]: shortcut:" %))
(rx/on-value +stream+ (fn [event]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (when-let [handler (get +shortcuts+ event)]
;; Keyboard Shortcuts Handlers (handler)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defmulti -handle-event identity)
(defmethod -handle-event :default [ev] nil)
(defmethod -handle-event :ctrl+shift+l
[_]
(rs/emit! (dw/toggle-toolbox :layers)))
(defmethod -handle-event :ctrl+shift+i
[_]
(rs/emit! (dw/toggle-toolbox :icons)))
(defmethod -handle-event :ctrl+shift+f
[_]
(rs/emit! (dw/toggle-toolbox :draw)))
(defmethod -handle-event :ctrl+g
[_]
(rs/emit! (dw/toggle-tool :grid)))
(rx/on-value +stream+ #(-handle-event %))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Keyboard Shortcuts Mixin ;; Keyboard Shortcuts Mixin