 (ns client.login
-	(:require-macros [hiccups.core :as hiccups])
+  (:require-macros [hiccups.core :as hiccups])
   (:require
     [client.socket :refer [socket]]
-		hiccups.runtime))
+    hiccups.runtime))
 
 (def $ js/$)
 
-;;------------------------------------------------------------
+;;------------------------------------------------------------------------------
 ;; HTML
-;;------------------------------------------------------------
+;;------------------------------------------------------------------------------
 
 (hiccups/defhtml login-html []
-	[:div#inner-container.login
-		[:div.login-container
-			[:label "What is your name?"]
-			[:input.login-name {:type "text"}]
-			[:button#submit.lg-btn "OK"]]])
+  [:div#inner-container.login
+    [:div.login-container
+      [:label "What is your name?"]
+      [:input.login-name {:type "text"}]
+      [:button#submit.lg-btn "OK"]]])
 
-;;------------------------------------------------------------
+;;------------------------------------------------------------------------------
 ;; Username storage.
-;;------------------------------------------------------------
+;;------------------------------------------------------------------------------
 
 (defn get-username
   "Gets the currently stored username."

  (.emit @socket "update-name" (pr-str {:user (get-username)
                                        :color (get-color)})))

;;------------------------------------------------------------
;; Events
;;------------------------------------------------------------

(defn on-submit
  "Handle the submit event."

    (send-login!)
    (aset js/location "hash" "#/menu")))

;;------------------------------------------------------------------------------
;; Page Initialization
;;------------------------------------------------------------------------------

(defn init
  []
