3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-07 14:38:33 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Normalize zoom levels in workspace and viewer

Browse source
This commit is contained in:
Andrés Moya 2022-01-24 12:00:55 +01:00 • committed by Andrey Antukh
parent b4bf6b9235
commit 20baf02726
4 changed files with 42 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

15
frontend/src/app/main/data/viewer.cljs
View file

@ -11,7 +11,6 @@
[app.common.spec :as us]
[app.common.types.interactions :as cti]
[app.common.uuid :as uuid]
[app.main.constants :as c]
[app.main.data.comments :as dcm]
[app.main.data.fonts :as df]
[app.main.repo :as rp]
@ -190,21 +189,15 @@
(ptk/reify ::increase-zoom
ptk/UpdateEvent
(update [_ state]
(let [increase (fn [zoom]
(d/seek #(> % zoom)
c/zoom-levels
zoom))]
(update-in state [:viewer-local :zoom] increase)))))
(let [increase #(min (* % 1.3) 200)]
(update-in state [:viewer-local :zoom] (fnil increase 1))))))
(def decrease-zoom
(ptk/reify ::decrease-zoom
ptk/UpdateEvent
(update [_ state]
(let [decrease (fn [zoom]
(d/seek #(< % zoom)
(reverse c/zoom-levels)
zoom))]
(update-in state [:viewer-local :zoom] decrease)))))
(let [decrease #(max (/ % 1.3) 0.01)]
(update-in state [:viewer-local :zoom] (fnil decrease 1))))))
(def reset-zoom
(ptk/reify ::reset-zoom