         color-hex (:color-hex (first (filter colors-8-filter-fn colors-8)))]
     color-hex))
 
-(defn default-message [] 
+(defn default-message []
   [:li {:class-name "chat-msg"}
    [:span {:class-name "msg-body default"} "Say something already!"]])
 

  (fn []
    (let [stats @stats
          messages @messages
          element (first (array-seq (.getElementsByClassName js/document 
                                                             "chat-box-message-container")))]
      
      ;; Check if you should auto scroll to the bottom
      (when (and element (= (+ element.scrollTop element.clientHeight) element.scrollHeight))
        ;; On the next tick, scroll the rendered element down
        (js/setTimeout #(set! (.-scrollTop element) 
                              element.scrollHeight) 
                       0))

       [:ul {:class-name "chat-box-message-container"}


(defn format-time
  [timestamp]
  (f/unparse (f/formatter "h:mm A")
             (t/to-default-time-zone timestamp)))

(defn get-username-color [stats username]
  (let [stat-filter-fn (fn [stat] (= (:username stat) username))
