     (.focus el)))
 
 (defn delete-repo [id]
-  (go! "")
+  (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 []


;; Utils

(defn scroll-to-top
  ([]
    (when (> (.-scrollY js/window) 190) ;; ~height of header
      (scroll-to-top 30)))
  ([delta]
    (let [y (.-scrollY js/window)] 
      (when (> y 0)
        (.scrollBy js/window 0 (- (min y delta)))
        (js/setTimeout #(scroll-to-top (* 1.1 delta)) 16)))))

(defn user-link [user]
  (str "/user/" (:user/email user)))
