 
          [: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"]]]))
 

  (html [:ul {:class-name "mdl-menu mdl-list mdl-menu--bottom-right mdl-js-menu mdl-js-ripple-effect mdl-shadow--2dp account-dropdown"
              :for "more-vert-btn"}

         [:li {:class-name "mdl-menu__item mdl-list__item"}
          [:span {:class-name "mdl-list__item-primary-content"
                  :on-click   (nav! "#/config")}
           [:i {:class-name "material-icons mdl-list__item-icon"} "settings"] "Configuration"]]

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

         [:li {:class-name "mdl-menu__item mdl-list__item"}
          [:span {:on-click #(go (>! debug :click))

            [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

