 
          [:li {:class-name "list__item--border-top"}]
 
-         [:li {:class-name "mdl-menu__item mdl-list__item"}
+         [:a {: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"}
+         [:a {:class-name "mdl-menu__item mdl-list__item"
+              :href       "https://github.com/tmoerman/plongeur"}
           [: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))

;; Set MDL upgrade interval


  (html [:header {:class-name "mdl-layout__header"}
         [:div {:class-name "mdl-layout__header-row"}

          ;; 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))
