3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-07 12:41:41 +02:00
Code Issues Projects Releases Packages Wiki Activity

💄 Add cosmetic improvements for start-editing-selected event fn

Browse source
This commit is contained in:
Andrey Antukh 2025-04-28 11:42:39 +02:00
parent 4e3abcbd45
commit 202337b135
1 changed files with 23 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

42
frontend/src/app/main/data/workspace.cljs
View file

@ -975,9 +975,29 @@
ptk/WatchEvent ptk/WatchEvent
(watch [_ state _] (watch [_ state _]
(let [selected (dsh/lookup-selected state) (let [selected (dsh/lookup-selected state)
objects (dsh/lookup-page-objects state)] objects (dsh/lookup-page-objects state)]
(if (> (count selected) 1) (condp = (count selected)
0 (rx/empty)
1 (let [{:keys [id type] :as shape} (get objects (first selected))]
(case type
:text
(rx/of (dwe/start-edition-mode id))
(:group :bool :frame)
(let [shapes-ids (into (d/ordered-set) (get shape :shapes))]
(rx/of (dws/select-shapes shapes-ids)))
:svg-raw
nil
(rx/of (dwe/start-edition-mode id)
(dwdp/start-path-edit id))))
;; When we have multiple shapes selected, instead of enter
;; on the edition mode, we proceed to select all children of
;; the selected shapes. Because we can't enter on edition
;; mode on multiple shapes and this is a fallback operation.
(let [shapes-to-select (let [shapes-to-select
(->> selected (->> selected
(reduce (reduce
@ -987,23 +1007,7 @@
(conj result shape-id) (conj result shape-id)
(into result children)))) (into result children))))
(d/ordered-set)))] (d/ordered-set)))]
(rx/of (dws/select-shapes shapes-to-select))) (rx/of (dws/select-shapes shapes-to-select))))))))
(when (d/not-empty? selected)
(let [{:keys [id type shapes]} (get objects (first selected))]
(case type
:text
(rx/of (dwe/start-edition-mode id))
(:group :bool :frame)
(let [shapes-ids (into (d/ordered-set) shapes)]
(rx/of (dws/select-shapes shapes-ids)))
:svg-raw
nil
(rx/of (dwe/start-edition-mode id)
(dwdp/start-path-edit id))))))))))
(defn select-parent-layer (defn select-parent-layer
[] []