From 51697c63dd46f8e4a7b0ee5c2f4e730ae8a7ae8f Mon Sep 17 00:00:00 2001 From: "alonso.torres" Date: Thu, 17 Sep 2020 16:59:20 +0200 Subject: [PATCH] :bug: Fixes zoom when left sidebar collapsed --- frontend/src/app/main/data/workspace.cljs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/frontend/src/app/main/data/workspace.cljs b/frontend/src/app/main/data/workspace.cljs index ed006e4a1b..ca50c7edf6 100644 --- a/frontend/src/app/main/data/workspace.cljs +++ b/frontend/src/app/main/data/workspace.cljs @@ -419,13 +419,15 @@ ;; --- Zoom Management (defn- impl-update-zoom - [{:keys [vbox vport] :as local} center zoom] - (let [new-zoom (if (fn? zoom) (zoom (:zoom local)) zoom) + [{:keys [vbox] :as local} center zoom] + (let [vbox (update vbox :x + (:left-offset vbox)) + new-zoom (if (fn? zoom) (zoom (:zoom local)) zoom) old-zoom (:zoom local) center (if center center (geom/center vbox)) scale (/ old-zoom new-zoom) mtx (gmt/scale-matrix (gpt/point scale) center) - vbox' (geom/transform vbox mtx)] + vbox' (geom/transform vbox mtx) + vbox' (update vbox' :x - (:left-offset vbox))] (-> local (assoc :zoom new-zoom) (update :vbox merge (select-keys vbox' [:x :y :width :height])))))