Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-13 18:48:37 -05:00
Code Issues 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
Show stats 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
"Retrieves all frame objects as vector"
([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)
(let [lookup (d/getf objects)
xform (comp (remove #(= uuid/zero %))
(keep lookup)
(filter cph/frame-shape?))]
(->> (keys objects)
(into [] xform))))
(remove #(or (and skip-components? (ctk/instance-head? %))
(and skip-copies? (and (ctk/instance-head? %) (not (ctk/main-instance? %)))))))))
(sequence xform))))
(remove #(or (and ^boolean skip-components?
^boolean (ctk/instance-head? %))
(and ^boolean skip-copies?
(and ^boolean (ctk/instance-head? %)
(not ^boolean (ctk/main-instance? %)))))))))
(defn get-frames-ids
"Retrieves all frame ids as vector"