Fix button-nav buttons

Author: E-A-Griffin

resources/public/index.html

@@ -33,11 +33,11 @@
             <div class="btn-zoom-container" style="position: relative;">
                 <div class="btn-group btn-group-zoom" role="group" >
                     <button type=button class="btn btn-secondary b-tooltip btn-zoom btn-zoom-in"
-                            title="Zoom In">+</button>
+                            title="Zoom In" id="zoom-in-btn">+</button>
                     <button type=button class="btn btn-secondary b-tooltip btn-zoom btn-zoom-out"
-                            title="Zoom Out">-</button>
+                            title="Zoom Out" id="zoom-out-btn">-</button>
                     <button type=button class="btn btn-secondary b-tooltip btn-zoom btn-zoom-fit"
-                            title="Fit to View">[&nbsp;]</button>
+                            title="Fit to View" id="fit-to-view-btn">[&nbsp;]</button>
                 </div>
             </div>
         </nav>

src/matr_gui_clj/core.cljs

@@ -222,6 +222,31 @@
                            [main-content]
                            [modal]]
                           (. js/document (getElementById "main-content-container")))
+
+(defn zoom [f]
+  (.zoom @cytoscape-instance
+         #js{:level (f (.zoom @cytoscape-instance))
+             :position (.position
+                        (.getElementById
+                         @cytoscape-instance
+                         "mainWorkspace"))}))
+
+(defn zoom-in [] (zoom inc))
+
+(defn zoom-out [] (zoom dec))
+
+(defn fit-to-view [] (.fit @cytoscape-instance))
+
+(defn load-event []
+  (.addEventListener
+   (.getElementById js/document "zoom-in-btn") "click" zoom-in)
+  (.addEventListener
+   (.getElementById js/document "zoom-out-btn") "click" zoom-out)
+  (.addEventListener
+   (.getElementById js/document "fit-to-view-btn") "click" fit-to-view))
+
+(.addEventListener js/window "load" load-event false)
+
 (defn on-js-reload []
   ;; optionally touch your app-state to force rerendering depending on
   ;; your application

src/matr_gui_clj/cytoscape.cljs

@@ -136,7 +136,6 @@ node.prove-source {
       replace-head-syms
       print-str))
 
-;; Added 03/04/20
 (defn latex->encoded-svg
   "Convert string of plain-text represented LaTeX into an svg file."
   [^String latex]