Restructure the source directory tree.

In order to provide space for other applications
that shares source with the main app.

src/uxbox/main/ui/workspace/shortcuts.cljs

@@ -0,0 +1,115 @@
+;; This Source Code Form is subject to the terms of the Mozilla Public
+;; License, v. 2.0. If a copy of the MPL was not distributed with this
+;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
+;;
+;; Copyright (c) 2015-2016 Andrey Antukh <niwi@niwi.nz>
+;; Copyright (c) 2015-2016 Juan de la Cruz <delacruzgarciajuan@gmail.com>
+
+(ns uxbox.main.ui.workspace.shortcuts
+  (:require [goog.events :as events]
+            [beicon.core :as rx]
+            [uxbox.common.rstore :as rs]
+            [uxbox.main.data.lightbox :as udl]
+            [uxbox.main.data.workspace :as dw]
+            [uxbox.main.data.shapes :as uds]
+            [uxbox.main.ui.workspace.sidebar.drawtools :as wsd]
+            [uxbox.main.data.history :as udh])
+  (:import goog.events.EventType
+           goog.events.KeyCodes
+           goog.ui.KeyboardShortcutHandler
+           goog.ui.KeyboardShortcutHandler))
+
+(declare move-selected)
+
+;; --- Shortcuts
+
+(defonce ^:const +shortcuts+
+  {:shift+g #(rs/emit! (dw/toggle-flag :grid))
+   :ctrl+g #(rs/emit! (uds/group-selected))
+   :ctrl+shift+g #(rs/emit! (uds/degroup-selected))
+   :ctrl+shift+m #(rs/emit! (dw/toggle-flag :sitemap))
+   :ctrl+shift+f #(rs/emit! (dw/toggle-flag :drawtools))
+   :ctrl+shift+i #(rs/emit! (dw/toggle-flag :icons))
+   :ctrl+shift+l #(rs/emit! (dw/toggle-flag :layers))
+   :ctrl+0 #(rs/emit! (dw/reset-zoom))
+   :ctrl+r #(rs/emit! (dw/toggle-flag :ruler))
+   :ctrl+d #(rs/emit! (uds/duplicate-selected))
+   :ctrl+c #(rs/emit! (dw/copy-to-clipboard))
+   :ctrl+v #(rs/emit! (dw/paste-from-clipboard))
+   :ctrl+z #(rs/emit! (udh/backwards-to-previous-version))
+   :ctrl+b #(rs/emit! (dw/select-for-drawing wsd/+draw-tool-rect+))
+   :ctrl+e #(rs/emit! (dw/select-for-drawing wsd/+draw-tool-circle+))
+   :ctrl+l #(rs/emit! (dw/select-for-drawing wsd/+draw-tool-line+))
+   :ctrl+t #(rs/emit! (dw/select-for-drawing wsd/+draw-tool-text+))
+   :ctrl+shift+z #(rs/emit! (udh/forward-to-next-version))
+   :ctrl+shift+v #(udl/open! :clipboard)
+   :esc #(rs/emit! (uds/deselect-all))
+   :backspace #(rs/emit! (uds/delete-selected))
+   :delete #(rs/emit! (uds/delete-selected))
+   :ctrl+up #(rs/emit! (uds/move-selected-layer :up))
+   :ctrl+down #(rs/emit! (uds/move-selected-layer :down))
+   :ctrl+shift+up #(rs/emit! (uds/move-selected-layer :top))
+   :ctrl+shift+down #(rs/emit! (uds/move-selected-layer :bottom))
+   :shift+up #(move-selected :up :fast)
+   :shift+down #(move-selected :down :fast)
+   :shift+right #(move-selected :right :fast)
+   :shift+left #(move-selected :left :fast)
+   :up #(move-selected :up :std)
+   :down #(move-selected :down :std)
+   :right #(move-selected :right :std)
+   :left #(move-selected :left :std)})
+
+;; --- Shortcuts Setup Functions
+
+(defn- watch-shortcuts
+  [sink]
+  (let [handler (KeyboardShortcutHandler. js/document)]
+
+    ;; Register shortcuts.
+    (doseq [item (keys +shortcuts+)]
+      (let [identifier (name item)]
+        (.registerShortcut handler identifier identifier)))
+
+    ;; Initialize shortcut listener.
+    (let [event KeyboardShortcutHandler.EventType.SHORTCUT_TRIGGERED
+             callback #(sink (keyword (.-identifier %)))
+          key (events/listen handler event callback)]
+      (fn []
+        (events/unlistenByKey key)
+        (.clearKeyListener handler)))))
+
+(defn- initialize
+  []
+  (let [stream (->> (rx/create watch-shortcuts)
+                    (rx/pr-log "[debug]: shortcut:"))]
+    (rx/on-value stream (fn [event]
+                          (when-let [handler (get +shortcuts+ event)]
+                            (handler))))))
+
+;; --- Helpers
+
+(defn- move-selected
+  [dir speed]
+  (case speed
+    :std (rs/emit! (uds/move-selected dir 1))
+    :fast (rs/emit! (uds/move-selected dir 20))))
+
+;; --- Mixin
+
+(defn- will-mount
+  [own]
+  (assoc own ::sub (initialize)))
+
+(defn- will-unmount
+  [own]
+  (.close (::sub own))
+  (dissoc own ::sub))
+
+(defn- transfer-state
+  [oldown own]
+  (assoc own ::sub (::sub oldown)))
+
+(def shortcuts-mixin
+  {:will-mount will-mount
+   :will-unmount will-unmount
+   :transfer-state transfer-state})