rename zoom handlers

repath-project · Dec 19, 2024 · b6d4419 · b6d4419
1 parent ef646f7
commit b6d4419
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 12 deletions.
diff --git a/src/renderer/frame/events.cljs b/src/renderer/frame/events.cljs
@@ -29,19 +29,19 @@
  [persist]
  (fn [db [_ zoom]]
    (let [current-zoom (get-in db [:documents (:active-document db) :zoom])]
-     (h/zoom-by db (/ zoom current-zoom)))))
+     (h/zoom-in-place db (/ zoom current-zoom)))))
 
 (rf/reg-event-db
  ::zoom-in
  [persist]
  (fn [db [_]]
-   (h/zoom-by db (/ 1 (:zoom-sensitivity db)))))
+   (h/zoom-in-place db (/ 1 (:zoom-sensitivity db)))))
 
 (rf/reg-event-db
  ::zoom-out
  [persist]
  (fn [db [_]]
-   (h/zoom-by db (:zoom-sensitivity db))))
+   (h/zoom-in-place db (:zoom-sensitivity db))))
 
 (rf/reg-event-db
  ::pan-to-element

diff --git a/src/renderer/frame/handlers.cljs b/src/renderer/frame/handlers.cljs
@@ -46,8 +46,8 @@
       (->> (:document-tabs db)
            (reduce #(pan-by %1 (mat/div [(:width offset) (:height offset)] 2) %2) db)))))
 
-(m/=> zoom-in-place [:-> App number? Vec2 App])
-(defn zoom-in-place
+(m/=> zoom-at-position [:-> App number? Vec2 App])
+(defn zoom-at-position
   [db factor pos]
   (let [active-document (:active-document db)
         zoom (get-in db [:documents active-document :zoom])
@@ -70,15 +70,15 @@
 (m/=> zoom-at-pointer [:-> App number? App])
 (defn zoom-at-pointer
   [db factor]
-  (zoom-in-place db factor (:adjusted-pointer-pos db)))
+  (zoom-at-position db factor (:adjusted-pointer-pos db)))
 
-(m/=> zoom-by [:-> App number? App])
-(defn zoom-by
+(m/=> zoom-in-place [:-> App number? App])
+(defn zoom-in-place
   [db factor]
   (let [{:keys [zoom pan]} (get-in db [:documents (:active-document db)])
         {:keys [width height]} (:dom-rect db)
         position (mat/add pan (mat/div [width height] 2 zoom))]
-    (zoom-in-place db factor position)))
+    (zoom-at-position db factor position)))
 
 (m/=> pan-to-bounds [:-> App Bounds App])
 (defn pan-to-bounds

diff --git a/src/renderer/tool/impl/base/zoom.cljs b/src/renderer/tool/impl/base/zoom.cljs
@@ -57,9 +57,9 @@
         zoom (min width-ratio height-ratio)]
     (-> (h/dissoc-temp db)
         (h/set-cursor (if (pointer/shift? e) "zoom-out" "zoom-in"))
-        (frame.h/zoom-by (if (pointer/shift? e)
-                           (:zoom-sensitivity db)
-                           (/ zoom current-zoom)))
+        (frame.h/zoom-in-place (if (pointer/shift? e)
+                                 (:zoom-sensitivity db)
+                                 (/ zoom current-zoom)))
         (frame.h/pan-to-bounds [x y offset-x offset-y])
         (snap.h/update-viewport-tree)
         (h/add-fx [::app.fx/persist]))))