3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-09 04:21:38 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fix zoom in/out after fit or fill in viewer

Browse source
This commit is contained in:
Andrés Moya 2022-01-21 17:00:51 +01:00 • committed by Andrey Antukh
parent c3e37b0e04
commit b4bf6b9235
2 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -190,19 +190,21 @@
(ptk/reify ::increase-zoom
ptk/UpdateEvent
(update [_ state]
(let [increase #(nth c/zoom-levels
(+ (d/index-of c/zoom-levels %) 1)
(last c/zoom-levels))]
(update-in state [:viewer-local :zoom] (fnil increase 1))))))
(let [increase (fn [zoom]
(d/seek #(> % zoom)
c/zoom-levels
zoom))]
(update-in state [:viewer-local :zoom] increase)))))
(def decrease-zoom
(ptk/reify ::decrease-zoom
ptk/UpdateEvent
(update [_ state]
(let [decrease #(nth c/zoom-levels
(- (d/index-of c/zoom-levels %) 1)
(first c/zoom-levels))]
(update-in state [:viewer-local :zoom] (fnil decrease 1))))))
(let [decrease (fn [zoom]
(d/seek #(< % zoom)
(reverse c/zoom-levels)
zoom))]
(update-in state [:viewer-local :zoom] decrease)))))
(def reset-zoom
(ptk/reify ::reset-zoom