         (dom/div #js {:id "uploads-queue"}
           (om/build-all upload-view (:uploads data)))))))
 
+(defn user-view [data owner]
+  (reify
+    om/IRender
+    (render [_]
+      (dom/div nil
+        (data "username")))))
+
+(defn users-list-view [data owner]
+  (reify
+    om/IRender
+    (render [_]
+      (dom/div nil
+        (om/build-all user-view (vals data))))))
+
 (defn chat-view [data owner]
   (reify
     om/IRenderState

    om/IRenderState
    (render-state [_ state]
      (dom/div #js {:id "center-area"}
        (list
          (let [dimensions {:dimensions state}]
            (om/build chat-view data {:state {:width (:chat-width dimensions)}})
            (om/build track-queue-view data {:state {:width (:track-queue-width dimensions)}}))))))

(defn volume-control [data owner]
  (reify

                        (om/set-state! owner
                                       :dimensions
                                       {:chat-width (str left-width "px")
                                        :track-queue-width (str right-width "px")})))
      ((om/get-state owner :handle-resize))
      (dommy/listen! js/window :resize (om/get-state owner :handle-resize)))
    om/IWillUnmount
