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

💄 Add cosmetic improvements to get-frames fn

Browse source
This commit is contained in:
Andrey Antukh 2023-08-25 11:03:26 +02:00 • committed by Andrés Moya
parent ce0842ce87
commit 85a1443ada
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
common/src/app/common/types/shape_tree.cljc
View file

@ -111,16 +111,21 @@
(defn get-frames (defn get-frames
"Retrieves all frame objects as vector" "Retrieves all frame objects as vector"
([objects] (get-frames objects nil)) ([objects] (get-frames objects nil))
([objects {:keys [skip-components? skip-copies?] :or {skip-components? false skip-copies? false}}] ([objects {:keys [skip-components? skip-copies?]
:or {skip-components? false
skip-copies? false}}]
(->> (or (-> objects meta ::index-frames) (->> (or (-> objects meta ::index-frames)
(let [lookup (d/getf objects) (let [lookup (d/getf objects)
xform (comp (remove #(= uuid/zero %)) xform (comp (remove #(= uuid/zero %))
(keep lookup) (keep lookup)
(filter cph/frame-shape?))] (filter cph/frame-shape?))]
(->> (keys objects) (->> (keys objects)
(into [] xform)))) (sequence xform))))
(remove #(or (and skip-components? (ctk/instance-head? %)) (remove #(or (and ^boolean skip-components?
(and skip-copies? (and (ctk/instance-head? %) (not (ctk/main-instance? %))))))))) ^boolean (ctk/instance-head? %))
(and ^boolean skip-copies?
(and ^boolean (ctk/instance-head? %)
(not ^boolean (ctk/main-instance? %)))))))))
(defn get-frames-ids (defn get-frames-ids
"Retrieves all frame ids as vector" "Retrieves all frame ids as vector"