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

✨ Add minor naming change on process selected fn

Browse source
This commit is contained in:
Andrey Antukh 2025-05-29 11:15:46 +02:00
parent 2a04f78337
commit 3a27a5a542
3 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

8
frontend/src/app/main/data/helpers.cljs
View file

@ -64,15 +64,15 @@
(-> (lookup-page state file-id page-id) (-> (lookup-page state file-id page-id)
(get :objects)))) (get :objects))))
(defn process-selected-shapes (defn process-selected
([objects selected] ([objects selected]
(process-selected-shapes objects selected nil)) (process-selected objects selected nil))
([objects selected {:keys [omit-blocked?] :or {omit-blocked? false}}] ([objects selected {:keys [omit-blocked?] :or {omit-blocked? false}}]
(letfn [(selectable? [id] (letfn [(selectable? [id]
(and (contains? objects id) (and (contains? objects id)
(or (not omit-blocked?) (or (not omit-blocked?)
(not (get-in objects [id :blocked] false)))))] (not (dm/get-in objects [id :blocked] false)))))]
(let [selected (->> selected (cfh/clean-loops objects))] (let [selected (->> selected (cfh/clean-loops objects))]
(into (d/ordered-set) (into (d/ordered-set)
(filter selectable?) (filter selectable?)
@ -95,7 +95,7 @@
([state page-id options] ([state page-id options]
(let [objects (lookup-page-objects state page-id) (let [objects (lookup-page-objects state page-id)
selected (dm/get-in state [:workspace-local :selected])] selected (dm/get-in state [:workspace-local :selected])]
(process-selected-shapes objects selected options)))) (process-selected objects selected options))))
(defn lookup-shape (defn lookup-shape
([state id] ([state id]

4
frontend/src/app/main/data/workspace/bool.cljs
View file

@ -69,8 +69,8 @@
(-> type d/name str/capital) (-> type d/name str/capital)
ids ids
(->> (or ids (dsh/lookup-selected state)) (->> (or ids (dsh/get-selected-ids state))
(cph/clean-loops objects)) (dsh/process-selected objects))
xform xform
(comp (comp

9
frontend/src/app/main/refs.cljs
View file

@ -159,14 +159,15 @@
(let [objects (dsh/lookup-page-objects state) (let [objects (dsh/lookup-page-objects state)
selected (dm/get-in state [:workspace-local :selected])] selected (dm/get-in state [:workspace-local :selected])]
{:objects objects :selected selected})) {:objects objects :selected selected}))
st/state (fn [v1 v2] st/state
(and (identical? (:objects v1) (:objects v2)) (fn [v1 v2]
(= (:selected v1) (:selected v2)))))) (and (identical? (:objects v1) (:objects v2))
(= (:selected v1) (:selected v2))))))
(def selected-shapes (def selected-shapes
(l/derived (l/derived
(fn [{:keys [objects selected]}] (fn [{:keys [objects selected]}]
(dsh/process-selected-shapes objects selected)) (dsh/process-selected objects selected))
selected-shapes-data =)) selected-shapes-data =))
(defn make-selected-ref (defn make-selected-ref