From 49d2c54488566d3b7af806607c045c77d3a80bbb Mon Sep 17 00:00:00 2001 From: Andrey Antukh Date: Wed, 13 Apr 2016 20:45:59 +0300 Subject: [PATCH] Cosmetic fixes on zoom related events. --- src/uxbox/data/workspace.cljs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/uxbox/data/workspace.cljs b/src/uxbox/data/workspace.cljs index 6a2dc60300..d331a94043 100644 --- a/src/uxbox/data/workspace.cljs +++ b/src/uxbox/data/workspace.cljs @@ -140,7 +140,9 @@ (defrecord IncreaseZoom [] rs/UpdateEvent (-apply-update [_ state] - (let [increase #(nth zoom-levels (+ (index-of zoom-levels %) 1) (last zoom-levels))] + (let [increase #(nth zoom-levels + (+ (index-of zoom-levels %) 1) + (last zoom-levels))] (update-in state [:workspace :zoom] (fnil increase 1))))) (defn increase-zoom @@ -152,7 +154,9 @@ (defrecord DecreaseZoom [] rs/UpdateEvent (-apply-update [_ state] - (let [decrease #(nth zoom-levels (- (index-of zoom-levels %) 1) (first zoom-levels))] + (let [decrease #(nth zoom-levels + (- (index-of zoom-levels %) 1) + (first zoom-levels))] (update-in state [:workspace :zoom] (fnil decrease 1))))) (defn decrease-zoom