Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-03 12:59:12 -05:00
Code Issues Activity

🐛 Fix minor issues on page helpers

Browse source
This commit is contained in:
Andrey Antukh 2022-07-13 08:36:54 +02:00
parent 8fd908a59f
commit 8237805cf5
1 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
common/src/app/common/pages/helpers.cljc
View file

@ -161,14 +161,13 @@
(defn get-frames (defn get-frames
"Retrieves all frame objects as vector" "Retrieves all frame objects as vector"
[objects] [objects]
(if (contains? (meta objects) ::index-frames) (or (-> objects meta ::index-frames)
(::index-frames (meta objects)) (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 frame-shape?))]
(filter frame-shape?))] (->> (keys objects)
(->> (keys objects) (into [] xform)))))
(into [] xform)))))
(defn get-frames-ids (defn get-frames-ids
"Retrieves all frame ids as vector" "Retrieves all frame ids as vector"
@ -704,11 +703,10 @@
(into [] (into []
(comp (map (d/getf objects)) (comp (map (d/getf objects))
(if all-frames? (if all-frames?
identity (map identity)
(remove :hide-in-viewer))) (remove :hide-in-viewer)))
(sort-z-index objects (get-frames-ids objects) {:top-frames? true})))) (sort-z-index objects (get-frames-ids objects) {:top-frames? true}))))
(defn start-page-index (defn start-page-index
[objects] [objects]
(with-meta objects {::index-frames (get-frames (with-meta objects nil))})) (with-meta objects {::index-frames (get-frames (with-meta objects nil))}))