       (log (str "Socket Event from server: " topic))
       (log (str "Socket Payload: " payload))
       (cond
-        (= payload 'app/select-activity)
-        (log "select")
+        (= payload 'app/set-speaker-activity)
+        (do
+          (log "select")
+          (om/transact! reconciler `[:app/speaker-activites]))
 
         (= (:topic payload) 'app/confirm-marks)
         (log "confirm")))))

      (:query edn)
      (go
        (let [response (async/<! (http/get "/query" {:query-params
                                                     {:query (pr-str (:query edn))}}))
              edn-response (second (cljs.reader/read-string (:body response)))]
          ;(log edn-response)
          ;; TODO - why is the response a vec?
          (cb edn-response))
        ))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Application
(defonce app-state (atom {:app/speaker-activites [{:activity/name "Test"}]}))

(def reconciler
  (om/reconciler

(defn log [m]
  (.log js/console m))

(declare reconciler)
(declare app-state)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Sente Socket setup
(let [{:keys [chsk ch-recv send-fn state]}
