Zoom control widget on the workspace header

This commit is contained in:
Jesús Espino 2016-04-10 19:24:51 +02:00
parent 5aa629d4d4
commit 66c56a367e

View file

@ -41,9 +41,13 @@
[:li.coordinates {:alt "y"} [:li.coordinates {:alt "y"}
(str "Y: " (:y coords "-"))] (str "Y: " (:y coords "-"))]
[:li.zoom-input [:li.zoom-input
[:span.add-zoom "+"] [:span.add-zoom
[:span "100%"] {:on-click #(rs/emit! (dw/increase-zoom))}
[:span.remove-zoom "-"]]]))) "+"]
[:span (str (mth/round (* 100 zoom)) "%")]
[:span.remove-zoom
{:on-click #(rs/emit! (dw/decrease-zoom))}
"-"]]])))
(def coordinates (def coordinates
(mx/component (mx/component