                :onClick #(put! change-display-dimensions [width height])}
           "Reset display"))))))
 
+(defn navigation-button
+  [text f]
+  (dom/button #js {:type "button"
+                   :className "btn btn-success btn-lg btn-block"
+                   :onClick f}
+    text))
+
 
 (defprotocol CellularAutomatonAppCustomization
   (automaton-input-view [this]

      (om/transact! data (fn [d] (assoc d :result :none))))))


(om/root
 (gen-app-view a/labour-market-model)
 app-state
 {:target (. js/document (getElementById "app"))
  :init-state {:animation-step 500}})

         (render-state [_ state]
           (dom/div
            #js {:className "container-liquid"}
            (dom/div #js {:className "row"}
                     (navigation-button "Menu" render-menu-view)
                     (dom/hr nil))
            (dom/div
             #js {:className "row"}
             (dom/div
