     (set! (.-onmessage socket) (update-state app))
     socket))
 
-(def app-state (atom {:classifiers []}))
+(def app-state (atom {:classifiers [] :projects {:galaxy_zoo {:color "orange" :name "Galaxy Zoo"}
+                                                 :planet_hunter {:color "blue" :name "Planet Hunters"}}}))
 
 (defn classifier-view
   [classifier owner]


(enable-console-print!)

(defn update-state
  [app]
  (fn [msg]
    (println (.-data msg))
    (let [msg (trim-newline (.-data msg))]
      (when-not (= msg "Heartbeat")
        (swap! app update-in [:classifiers] conj ((js->clj (.parse js/JSON msg)) "project"))))))

(defn connect-websocket
  [app]

               (apply dom/ul nil
                      (om/build-all classifier-view  (:classifiers app)))))))

(om/root project-list app-state
         {:target (. js/document (getElementById "app"))})

(connect-websocket app-state)
