     (send-login!)
     (aset js/location "hash" "#/menu")))
 
-;;------------------------------------------------------------
-;; Page initialization.
-;;------------------------------------------------------------
+;;------------------------------------------------------------------------------
+;; Page Initialization
+;;------------------------------------------------------------------------------
 
 (defn init
   []

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

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

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

(ns client.login
  (:require-macros [hiccups.core :as hiccups])
  (:require
    [client.socket :refer [socket]]
    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"]]])

;;------------------------------------------------------------------------------
;; Username storage.
;;------------------------------------------------------------------------------

(defn get-username
  "Gets the currently stored username."
