   (html [:header {:class-name "mdl-layout__header"}
          [:div {:class-name "mdl-layout__header-row"}
 
-          [:div {} (-> state m/current-view str)]
-
-          [:button {:title "Browse scenes"
-                    :class-name "mdl-button mdl-js-button mdl-button--icon"
-                    :on-click   (nav! "#/browse")}
-           [:i {:class-name "material-icons"} "folder_open"]]
+          ;; Nav buttons
+
+          (let [disabled (= :view/browse-scenes (m/current-view state))]
+            [:button {:title      "Browse scenes"
+                      :class-name (if disabled
+                                    "mdl-button mdl-js-button mdl-button--icon mdl-button--disabled"
+                                    "mdl-button mdl-js-button mdl-button--icon")
+                      :on-click   #(->browse-scenes)}
+             [:i {:class-name "material-icons"} (if disabled "folder" "folder_open")]])
+
+          (let [disabled (= :view/create-scene (m/current-view state))]
+            [:button {:title      "Create scene"
+                      :class-name (if disabled
+                                    "mdl-button mdl-js-button mdl-button--icon mdl-button--disabled"
+                                    "mdl-button mdl-js-button mdl-button--icon")
+                      :on-click   #(->create-scene)}
+             [:i {:class-name "material-icons"} (if disabled "insert_drive_file" "note_add")]])
+          
+          (let [disabled (= :view/edit-config (m/current-view state))]
+            [:button {:title      "Configuration"
+                      :class-name (if disabled
+                                    "mdl-button mdl-js-button mdl-button--icon mdl-button--disabled"
+                                    "mdl-button mdl-js-button mdl-button--icon")
+                      :on-click   #(->edit-config)}
+             [:i {:class-name "material-icons"} "settings"]])
 
           [:div {:class-name "mdl-layout-spacer"}]
-
 
           (when (= :view/edit-scene (m/current-view state))
             [:div {:on-click   #(go (>! add-plot :sigma))


         [:li {:class-name "list__item--border-top"}]

         [:li {:class-name "mdl-menu__item mdl-list__item"}
          [:span {:class-name "mdl-list__item-primary-content"}
           [:i {:class-name "material-icons mdl-list__item-icon"} "attach_file"] "Publication"]]

         [:li {:class-name "mdl-menu__item mdl-list__item"}
          [:span {:class-name "mdl-list__item-primary-content"}
           [:i {:class-name "material-icons mdl-list__item-icon"} "link"] "Github"]]]))


            [kierros.async :refer [debounce]])
  (:require-macros [cljs.core.async.macros :refer [go go-loop]]))

(defn ascii [c] (-> c {\f 70
                       \l 76
                       \s 83} str))

(defn nav! [url] (set! (.-location js/window) url))

(defn ->browse-scenes [] (nav! "#/browse"))
(defn ->create-scene  [] (nav! "#/create"))
(defn ->edit-scene    [] (nav! "#/scene"))
(defn ->edit-config   [] (nav! "#/config"))

;; Set MDL upgrade interval

