From c1013c359d18aa51c514ead628e316abdd15396e Mon Sep 17 00:00:00 2001 From: Andrey Antukh Date: Fri, 14 Jul 2023 14:55:18 +0200 Subject: [PATCH] :lipstick: Add cosmetic improvements to update-position fn --- .../src/app/main/data/workspace/transforms.cljs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/frontend/src/app/main/data/workspace/transforms.cljs b/frontend/src/app/main/data/workspace/transforms.cljs index d8b4560f9e..fe20e3fd88 100644 --- a/frontend/src/app/main/data/workspace/transforms.cljs +++ b/frontend/src/app/main/data/workspace/transforms.cljs @@ -712,18 +712,18 @@ (ptk/reify ::update-position ptk/WatchEvent (watch [_ state _] - (let [page-id (:current-page-id state) - objects (wsh/lookup-page-objects state page-id) - shape (get objects id) + (let [page-id (:current-page-id state) + objects (wsh/lookup-page-objects state page-id) + shape (get objects id) ;; FIXME: performance rect - bbox (-> shape :points grc/points->rect) + bbox (-> shape :points grc/points->rect) - cpos (gpt/point (:x bbox) (:y bbox)) - pos (gpt/point (or (:x position) (:x bbox)) - (or (:y position) (:y bbox))) + cpos (gpt/point (:x bbox) (:y bbox)) + pos (gpt/point (or (:x position) (:x bbox)) + (or (:y position) (:y bbox))) - delta (gpt/subtract pos cpos) + delta (gpt/subtract pos cpos) modif-tree (dwm/create-modif-tree [id] (ctm/move-modifiers delta))]