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

💄 Add cosmetic changes (and comments) to toggle-file-thumbnail-selected function

Browse source
This commit is contained in:
Andrey Antukh 2023-05-05 14:14:22 +02:00
parent 541a372f01
commit c2b6b40554
1 changed files with 19 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

30
frontend/src/app/main/data/workspace/shapes.cljs
View file

@ -96,7 +96,7 @@
(pcb/change-parent (:parent-id attrs) [shape])) (pcb/change-parent (:parent-id attrs) [shape]))
(cond-> (ctl/grid-layout? objects (:parent-id shape)) (cond-> (ctl/grid-layout? objects (:parent-id shape))
(pcb/update-shapes [(:parent-id shape)] ctl/assign-cells)))] (pcb/update-shapes [(:parent-id shape)] ctl/assign-cells)))]
[shape changes])) [shape changes]))
(defn add-shape (defn add-shape
@ -400,7 +400,7 @@
changes changes
(prepare-move-shapes-into-frame changes (:id shape) selected objects)] (prepare-move-shapes-into-frame changes (:id shape) selected objects)]
[shape changes])))) [shape changes]))))
(defn create-artboard-from-selection (defn create-artboard-from-selection
@ -481,25 +481,33 @@
(let [selected (wsh/lookup-selected state)] (let [selected (wsh/lookup-selected state)]
(rx/of (dch/update-shapes selected #(update % :blocked not))))))) (rx/of (dch/update-shapes selected #(update % :blocked not)))))))
;; FIXME: this need to be refactored
(defn toggle-file-thumbnail-selected (defn toggle-file-thumbnail-selected
[] []
(ptk/reify ::toggle-file-thumbnail-selected (ptk/reify ::toggle-file-thumbnail-selected
ptk/WatchEvent ptk/WatchEvent
(watch [_ state _] (watch [_ state _]
(let [selected (wsh/lookup-selected state) (let [selected (wsh/lookup-selected state)
pages (-> state :workspace-data :pages-index vals) pages (-> state :workspace-data :pages-index vals)]
get-frames (fn [{:keys [objects id] :as page}]
(->> (ctst/get-frames objects)
(sequence
(comp (filter :use-for-thumbnail?)
(map :id)
(remove selected)
(map (partial vector id))))))]
(rx/concat (rx/concat
;; First: clear the `:use-for-thumbnail?` flag from all not
;; selected frames.
(rx/from (rx/from
(->> (mapcat get-frames pages) (->> pages
(mapcat
(fn [{:keys [objects id] :as page}]
(->> (ctst/get-frames objects)
(sequence
(comp (filter :use-for-thumbnail?)
(map :id)
(remove selected)
(map (partial vector id)))))))
(d/group-by first second) (d/group-by first second)
(map (fn [[page-id frame-ids]] (map (fn [[page-id frame-ids]]
(dch/update-shapes frame-ids #(dissoc % :use-for-thumbnail?) {:page-id page-id}))))) (dch/update-shapes frame-ids #(dissoc % :use-for-thumbnail?) {:page-id page-id})))))
;; And finally: toggle the flag value on all the selected shapes
(rx/of (dch/update-shapes selected #(update % :use-for-thumbnail? not)))))))) (rx/of (dch/update-shapes selected #(update % :use-for-thumbnail? not))))))))