mirror of
https://github.com/penpot/penpot.git
synced 2025-07-10 03:07:16 +02:00
109 lines
3.7 KiB
Clojure
109 lines
3.7 KiB
Clojure
;; 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.util.rstore :as rs]
|
|
[uxbox.main.data.lightbox :as udl]
|
|
[uxbox.main.data.workspace :as dw]
|
|
[uxbox.main.data.shapes :as uds]
|
|
[uxbox.main.data.undo :as udu]
|
|
[uxbox.main.data.history :as udh]
|
|
[uxbox.main.ui.workspace.sidebar.drawtools :as wsd])
|
|
(:import goog.events.EventType
|
|
goog.events.KeyCodes
|
|
goog.ui.KeyboardShortcutHandler
|
|
goog.ui.KeyboardShortcutHandler))
|
|
|
|
(declare move-selected)
|
|
|
|
;; --- Shortcuts
|
|
|
|
(defonce +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+shift+v #(udl/open! :clipboard)
|
|
:ctrl+z #(rs/emit! (udu/undo))
|
|
:ctrl+shift+z #(rs/emit! (udu/redo))
|
|
: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+t #(rs/emit! (dw/select-for-drawing wsd/+draw-tool-text+))
|
|
:esc #(rs/emit! (uds/deselect-all))
|
|
: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))
|
|
|
|
(def shortcuts-mixin
|
|
{:will-mount will-mount
|
|
:will-unmount will-unmount})
|