Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-10 17:00:36 -05:00
Code Issues 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
Show stats 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))

2
frontend/src/app/main/data/comments.cljs
View file

@ -83,7 +83,7 @@
(watch [_ state _]
(let [page-id (:current-page-id state)
objects (wsh/lookup-page-objects state page-id)
frame-id (ctst/frame-id-by-position objects (:position params))
frame-id (ctst/get-frame-id-by-position objects (:position params))
params (assoc params :frame-id frame-id)]
(->> (rp/cmd! :create-comment-thread params)
(rx/mapcat #(rp/cmd! :get-comment-thread {:file-id (:file-id %) :id (:id %)}))

2
frontend/src/app/main/data/workspace/comments.cljs
View file

@ -127,7 +127,7 @@
page-id (:id page)
objects (wsh/lookup-page-objects state page-id)
new-frame-id (if (nil? frame-id)
(ctst/frame-id-by-position objects (gpt/point new-x new-y))
(ctst/get-frame-id-by-position objects (gpt/point new-x new-y))
(:frame-id thread))
thread (assoc thread
:position (gpt/point new-x new-y)

2
frontend/src/app/main/data/workspace/interactions.cljs
View file

@ -206,7 +206,7 @@
from-frame-id (if (cph/frame-shape? from-shape)
from-id (:frame-id from-shape))
target-frame (ctst/frame-by-position objects position)]
target-frame (ctst/get-frame-by-position objects position)]
(when (and (not= (:id target-frame) uuid/zero)
(not= (:id target-frame) from-frame-id))