3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-21 22:46:11 +02:00
Code Issues Projects Releases Packages Wiki Activity

Reactivate again the layer position shortcuts.

Browse source
This commit is contained in:
Andrey Antukh 2016-12-25 20:58:17 +01:00
parent c0a81d05eb
commit 6801cc65af
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
2 changed files with 23 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

16
frontend/src/uxbox/main/data/shapes.cljs
View file

@ -656,14 +656,22 @@
(->> (get-in state [:workspace :selected]) (->> (get-in state [:workspace :selected])
(map #(update-stroke-attrs % opts))))))) (map #(update-stroke-attrs % opts)))))))
(defn move-selected-layer
[loc] ;; --- Move Selected Layer
(reify
(s/def ::direction #{:up :down})
(deftype MoveSelectedLayer [loc]
udp/IPageUpdate udp/IPageUpdate
ptk/UpdateEvent ptk/UpdateEvent
(update [_ state] (update [_ state]
(let [selected (get-in state [:workspace :selected])] (let [selected (get-in state [:workspace :selected])]
(impl/move-layer state selected loc))))) (impl/move-layer state selected loc))))
(defn move-selected-layer
[loc]
{:pre [(us/valid? ::direction loc)]}
(MoveSelectedLayer. loc))
;; --- Point Alignment (with Grid) ;; --- Point Alignment (with Grid)

17
frontend/src/uxbox/main/ui/workspace/shortcuts.cljs
View file

@ -50,14 +50,15 @@
:ctrl+down #(st/emit! (uds/move-selected-layer :down)) :ctrl+down #(st/emit! (uds/move-selected-layer :down))
:ctrl+shift+up #(st/emit! (uds/move-selected-layer :top)) :ctrl+shift+up #(st/emit! (uds/move-selected-layer :top))
:ctrl+shift+down #(st/emit! (uds/move-selected-layer :bottom)) :ctrl+shift+down #(st/emit! (uds/move-selected-layer :bottom))
:shift+up #(move-selected :up :fast) ;; :shift+up #(move-selected :up :fast)
:shift+down #(move-selected :down :fast) ;; :shift+down #(move-selected :down :fast)
:shift+right #(move-selected :right :fast) ;; :shift+right #(move-selected :right :fast)
:shift+left #(move-selected :left :fast) ;; :shift+left #(move-selected :left :fast)
:up #(move-selected :up :std) ;; :up #(move-selected :up :std)
:down #(move-selected :down :std) ;; :down #(move-selected :down :std)
:right #(move-selected :right :std) ;; :right #(move-selected :right :std)
:left #(move-selected :left :std)}) ;; :left #(move-selected :left :std)
})
;; --- Shortcuts Setup Functions ;; --- Shortcuts Setup Functions