     (go (let [resp (<! (http/post register-repo-url {:oauth-token auth-token
                                                      :json-params {}}))]
            (if (= 200 (:status resp))
-             (let [registered-repo (:body resp)] 
+             (let [registered-repo (:body resp)]
                (swap! app-state (fn [state] (assoc-in state [:repos current-index :registered] registered-repo)))
                (om/update! (registered-state-cur current-index) [0] :registered))  
 

           (when (= 200 (:status resp))
              (swap! app-state (fn [state] (update-in state [:repos current-index] dissoc :registered)))
              (om/update! (registered-state-cur current-index) [0] :unregistered))))))  
  
;; {:auth - :repo -}
(defn repo-config-panel [state owner]
  (reify

        (case current-state
          :registered (dom/div nil
                        (dom/h2 nil (get current-repo "full_name"))
                        (dom/input #js {:type "text" :ref "display-lang" :value (:lang current-repo)})
                        (dom/button
                          #js {:onClick #(when (= current-state :registered)
                                            (unregister-repo index (:auth state) (get current-repo "name")))}             
                          "unregister this repo")
                        (dom/button
                          #js {:onClick #(save-repo index (:auth state) (get current-repo "name") (.-value (om/get-node owner "display-lang")))}
                          "Save"))
          :registering (dom/h2 
                          nil
                          "registering...")
