                                        ;; (= 1 trader) (icici/login)
                                        )]
     (if logged-in?
-      (.log js/console "Congratulations! Logged in successfully, to trader: " trader-name)
+      (do (.log js/console "Congratulations! Logged in successfully, to trader: " trader-name)
+          )
       (js/alert "Login failed! Please try again."))
 
     ;; return "false" is deprecated
     (.preventDefault e)))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; views
-
-(defn v-trader-view [trader owner]
-  (reify om/IRender
-    (render [this]
-      (dom/div "radio"
-               (dom/label "form-group"
-                          (dom/input #js {:type "radio" :name "optionRadios"
-                                          :value (:v trader)}
-                                     (:n trader)))))))
 
 (defn v-login [traders owner]
   (reify om/IRender

      (dom/form #js {:action "#"}
               (dom/h3 nil "Select Trader")
               (apply dom/div "radio"
                      (om/build-all v-trader-view traders))
               (dom/div nil
                        (dom/label nil
                                   (dom/button #js {:className "btn btn-default"

        (let [checked (.-checked (aget (.-children (aget (.-children (aget children i)) 0)) 0))]
          (if checked i (recur (dec i))))))))

(defn trader-view [trader owner]
  (reify om/IRender
    (render [this]
      (dom/div "radio"
               (dom/label "form-group"
                          (dom/input #js {:type "radio" :name "optionRadios"
                                          :value (:v trader)}
                                     (:n trader)))))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; event-handlers and views

(defn e-login [e]
  (let [trader (find-selected-trader e)
