   (.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."

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

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

(defn init
  []
