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

⚡ Reduce unnecesary lookups on get-frame-by-position fn

Browse source
This commit is contained in:
Andrey Antukh 2023-08-25 16:32:56 +02:00 • committed by Andrés Moya
parent 6b3fa31d68
commit b7eb20dc44
5 changed files with 27 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

10
common/src/app/common/types/container.cljc
View file

@ -239,10 +239,10 @@
unames (volatile! (cfh/get-used-names objects))
frame-id (or force-frame-id
(ctst/frame-id-by-position objects
(gpt/add orig-pos delta)
{:skip-components? true
:bottom-frames? true}))
(ctst/get-frame-id-by-position objects
(gpt/add orig-pos delta)
{:skip-components? true
:bottom-frames? true}))
frame-ids-map (volatile! {})
update-new-shape
@ -315,4 +315,4 @@
parent (get objects parent-id)]
(if (= parent-id uuid/zero)
current-top
(get-top-instance objects parent current-top))))
(get-top-instance objects parent current-top))))

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

@ -256,23 +256,27 @@
-1))))
items)))
(defn frame-id-by-position
([objects position] (frame-id-by-position objects position nil))
([objects position options]
(assert (gpt/point? position))
(let [sort-with-options (fn [objects ids]
(sort-z-index objects ids options))
top-frame
(->> (get-frames-ids objects options)
(sort-with-options objects)
(d/seek #(and position (gsh/has-point? (get objects %) position))))]
(or top-frame uuid/zero))))
(defn get-frame-by-position
([objects position]
(get-frame-by-position objects position nil))
(defn frame-by-position
([objects position] (frame-by-position objects position nil))
([objects position options]
(let [frame-id (frame-id-by-position objects position options)]
(get objects frame-id))))
(dm/assert!
"expected a point"
(gpt/point? position))
(let [frames (get-frames objects options)
frames (sort-z-index-objects objects frames options)]
(or (d/seek #(and ^boolean (some? position)
^boolean (gsh/has-point? % position))
frames)
(get objects uuid/zero)))))
(defn get-frame-id-by-position
([objects position] (get-frame-id-by-position objects position nil))
([objects position options]
(when-let [frame (get-frame-by-position objects position options)]
(dm/get-prop frame :id))))
(defn get-frames-by-position
([objects position] (get-frames-by-position objects position nil))