   (set! (.-title js/document) (if title (str title " — " *title-suffix*) *title-suffix*)))
 
 (defn go! [& path]
+  (scroll-to-top)
   (.setToken history (apply str path)))
 
 

    (.focus el)))

(defn delete-repo [id]
  (go! "")
  (u/ajax (str "/api/delete-repo/?id=" id) nil "POST"))

;; user@domain:path[.git]

          (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 []
