🚧 Comment some code related to not working shortcuts.

This commit is contained in:
Andrey Antukh 2019-12-18 10:55:29 +01:00
parent df03b03818
commit 014b23647a
2 changed files with 28 additions and 24 deletions

View file

@ -200,6 +200,21 @@
:workspace-data data :workspace-data data
:workspace-page page))))) :workspace-page page)))))
;; --- Toggle layout flag
(defn toggle-layout-flag
[flag]
(s/assert keyword? flag)
(ptk/reify ::toggle-layout-flag
ptk/UpdateEvent
(update [_ state]
(update state :workspace-layout
(fn [flags]
(if (contains? flags flag)
(disj flags flag)
(conj flags flag)))))))
;; --- Workspace Flags ;; --- Workspace Flags
(defn activate-flag (defn activate-flag
@ -238,18 +253,6 @@
[txt] [txt]
::todo) ::todo)
(defn toggle-layout-flag
[flag]
(s/assert keyword? flag)
(ptk/reify ::toggle-layout-flag
ptk/UpdateEvent
(update [_ state]
(update state :workspace-layout
(fn [flags]
(if (contains? flags flag)
(disj flags flag)
(conj flags flag)))))))
;; --- Workspace Ruler ;; --- Workspace Ruler
(defrecord ActivateRuler [] (defrecord ActivateRuler []

View file

@ -22,20 +22,21 @@
;; --- Shortcuts ;; --- Shortcuts
(defonce +shortcuts+ (defonce +shortcuts+
{:shift+g #(st/emit! (dw/toggle-flag :grid)) {
:ctrl+shift+m #(st/emit! (dw/toggle-flag :sitemap)) ;; :shift+g #(st/emit! (dw/toggle-flag :grid))
:ctrl+shift+f #(st/emit! (dw/toggle-flag :drawtools)) :ctrl+shift+m #(st/emit! (dw/toggle-layout-flag :sitemap))
:ctrl+shift+i #(st/emit! (dw/toggle-flag :icons)) :ctrl+shift+f #(st/emit! (dw/toggle-layout-flag :drawtools))
:ctrl+shift+l #(st/emit! (dw/toggle-flag :layers)) :ctrl+shift+i #(st/emit! (dw/toggle-layout-flag :icons))
:ctrl+shift+l #(st/emit! (dw/toggle-layout-flag :layers))
:ctrl+0 #(st/emit! (dw/reset-zoom)) :ctrl+0 #(st/emit! (dw/reset-zoom))
:ctrl+r #(st/emit! (dw/toggle-flag :ruler)) ;; :ctrl+r #(st/emit! (dw/toggle-flag :ruler))
:ctrl+d #(st/emit! dw/duplicate-selected) :ctrl+d #(st/emit! dw/duplicate-selected)
:ctrl+c #(st/emit! (dw/copy-to-clipboard)) ;; :ctrl+c #(st/emit! (dw/copy-to-clipboard))
:ctrl+v #(st/emit! (dw/paste-from-clipboard)) ;; :ctrl+v #(st/emit! (dw/paste-from-clipboard))
:ctrl+shift+v #(dl/open! :clipboard) ;; :ctrl+shift+v #(dl/open! :clipboard)
:ctrl+z #(st/emit! du/undo) ;; :ctrl+z #(st/emit! du/undo)
:ctrl+shift+z #(st/emit! du/redo) ;; :ctrl+shift+z #(st/emit! du/redo)
:ctrl+y #(st/emit! du/redo) ;; :ctrl+y #(st/emit! du/redo)
:ctrl+b #(st/emit! (dw/select-for-drawing :rect)) :ctrl+b #(st/emit! (dw/select-for-drawing :rect))
:ctrl+e #(st/emit! (dw/select-for-drawing :circle)) :ctrl+e #(st/emit! (dw/select-for-drawing :circle))
:ctrl+t #(st/emit! (dw/select-for-drawing :text)) :ctrl+t #(st/emit! (dw/select-for-drawing :text))