mirror of
https://github.com/penpot/penpot.git
synced 2025-03-13 16:21:57 -05:00
Minor changes on shapes.
This commit is contained in:
parent
6801cc65af
commit
2412713f70
2 changed files with 9 additions and 8 deletions
|
@ -597,7 +597,8 @@
|
|||
ptk/UpdateEvent
|
||||
(update [_ state]
|
||||
(let [pid (get-in state [:workspace :page])
|
||||
used-names (map #(get-in state [:shapes % :name]) (get-in state [:pages pid :shapes]))
|
||||
used-names (map #(get-in state [:shapes % :name])
|
||||
(get-in state [:pages pid :shapes]))
|
||||
selected (get-in state [:workspace :selected])]
|
||||
(impl/group-shapes state selected used-names pid)))))
|
||||
|
||||
|
@ -620,7 +621,8 @@
|
|||
(update [_ state]
|
||||
(let [pid (get-in state [:workspace :page])
|
||||
selected (get-in state [:workspace :selected])
|
||||
used-names (map #(get-in state [:shapes % :name]) (get-in state [:pages pid :shapes]))]
|
||||
used-names (map #(get-in state [:shapes % :name])
|
||||
(get-in state [:pages pid :shapes]))]
|
||||
(impl/duplicate-shapes state selected used-names)))))
|
||||
|
||||
(defn delete-selected
|
||||
|
@ -644,7 +646,6 @@
|
|||
(->> (get-in state [:workspace :selected])
|
||||
(map #(update-fill-attrs % opts)))))))
|
||||
|
||||
|
||||
(defn update-selected-shapes-stroke
|
||||
"Update the fill related attributed on
|
||||
selected shapes."
|
||||
|
|
|
@ -89,11 +89,11 @@
|
|||
|
||||
;; --- Helpers
|
||||
|
||||
(defn- move-selected
|
||||
[dir speed]
|
||||
(case speed
|
||||
:std (st/emit! (uds/move-selected dir 1))
|
||||
:fast (st/emit! (uds/move-selected dir 20))))
|
||||
;; (defn- move-selected
|
||||
;; [dir speed]
|
||||
;; (case speed
|
||||
;; :std (st/emit! (uds/move-selected dir 1))
|
||||
;; :fast (st/emit! (uds/move-selected dir 20))))
|
||||
|
||||
;; --- Mixin
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue