 
 (def state (atom {:progress    0
                   :first-load? true
-                  :path        ""}))
+                  :path        "/"}))
 
 (r/defc progress-bar []
   (s/html

          (if index?
            [:div.logo {:title "Acha-acha"}]
            [:a.logo   {:title "Acha-acha"
                        :href  "#" }])
          [:h2 "Enterprise Git Achievement solution" [:br] "Web scale. In the cloud"])
        (progress-bar)])))

(r/defc footer []

  (set! (.-title js/document) (if title (str title " — " *title-suffix*) *title-suffix*)))

(defn go! [& path]
  (scroll-to-top)
  (.setToken history (apply str path)))


