From 66c56a367e09de6901da8841dd6c0898c994994a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jes=C3=BAs=20Espino?= <jespinog@gmail.com>
Date: Sun, 10 Apr 2016 19:24:51 +0200
Subject: [PATCH] Zoom control widget on the workspace header

---
 src/uxbox/ui/workspace/header.cljs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/uxbox/ui/workspace/header.cljs b/src/uxbox/ui/workspace/header.cljs
index 002490c0f..5f3159357 100644
--- a/src/uxbox/ui/workspace/header.cljs
+++ b/src/uxbox/ui/workspace/header.cljs
@@ -41,9 +41,13 @@
       [:li.coordinates {:alt "y"}
        (str "Y: " (:y coords "-"))]
       [:li.zoom-input
-       [:span.add-zoom "+"]
-       [:span "100%"]
-       [:span.remove-zoom "-"]]])))
+       [:span.add-zoom
+        {:on-click #(rs/emit! (dw/increase-zoom))}
+        "+"]
+       [:span (str (mth/round (* 100 zoom)) "%")]
+       [:span.remove-zoom
+        {:on-click #(rs/emit! (dw/decrease-zoom))}
+        "-"]]])))
 
 (def coordinates
   (mx/component