0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-13 00:01:51 -05:00

🐛 Fixed performance problem

This commit is contained in:
alonso.torres 2020-09-16 13:52:48 +02:00 committed by Andrey Antukh
parent 2660e914fc
commit 9bb3e68d05

View file

@ -104,8 +104,18 @@
:x2 x2 :y2 y2 :x2 x2 :y2 y2
:style {:stroke line-color :stroke-width (str (/ 1 zoom))}}])])) :style {:stroke line-color :stroke-width (str (/ 1 zoom))}}])]))
(mf/defc shape-distance [{:keys [frame selrect page-id zoom coord selected]}] (mf/defc shape-distance
(let [subject (mf/use-memo #(rx/subject)) {::mf/wrap-props false}
[props]
(let [frame (unchecked-get props "frame")
selrect (unchecked-get props "selrect")
page-id (unchecked-get props "page-id")
zoom (unchecked-get props "zoom")
coord (unchecked-get props "coord")
selected (unchecked-get props "selected")
;{:keys [frame selrect page-id zoom coord selected]}
subject (mf/use-memo #(rx/subject))
to-measure (mf/use-state []) to-measure (mf/use-state [])
pair->distance+pair pair->distance+pair
@ -204,7 +214,9 @@
;; On unmount dispose ;; On unmount dispose
#(rx/dispose! sub)))) #(rx/dispose! sub))))
(mf/use-effect (mf/deps selrect selected) #(rx/push! subject [selrect selected frame])) (mf/use-effect
(mf/deps selrect)
#(rx/push! subject [selrect selected frame]))
(for [[sr1 sr2] segments-to-display] (for [[sr1 sr2] segments-to-display]
[:& shape-distance-segment {:key (str/join "-" [(:x sr1) (:y sr1) (:x sr2) (:y sr2)]) [:& shape-distance-segment {:key (str/join "-" [(:x sr1) (:y sr1) (:x sr2) (:y sr2)])
@ -215,23 +227,29 @@
(mf/defc snap-distances (mf/defc snap-distances
[{:keys [layout page-id zoom selected transform]}] [{:keys [layout page-id zoom selected transform]}]
(when (and (contains? layout :dynamic-alignment) (let [selected-shapes (mf/deref (refs/objects-by-id selected))
(= transform :move) frame-id (-> selected-shapes first :frame-id)
(not (empty? selected))) frame (mf/deref (refs/object-by-id frame-id))]
(let [shapes (->> (refs/objects-by-id selected)
(mf/deref) (when (and (contains? layout :dynamic-alignment)
(map gsh/transform-shape)) (= transform :move)
selrect (gsh/selection-rect shapes) (not (empty? selected)))
frame-id (-> shapes first :frame-id) (let [shapes (->> selected-shapes (map gsh/transform-shape))
frame (mf/deref (refs/object-by-id frame-id)) selrect (gsh/selection-rect shapes)
key (->> selected (map str) (str/join "-"))] key (->> selected (map str) (str/join "-"))]
[:g.distance [:g.distance
(for [coord [:x :y]]
[:& shape-distance [:& shape-distance
{:key (str key (name coord)) {:selrect selrect
:selrect selrect :page-id page-id
:frame frame
:zoom zoom
:coord :x
:selected selected}]
[:& shape-distance
{:selrect selrect
:page-id page-id :page-id page-id
:frame frame :frame frame
:zoom zoom :zoom zoom
:coord coord :coord :y
:selected selected}])]))) :selected selected}]]))))