                     block)))))))
 
 (defn update-chart! [chart data]
-  (let [vector-data (clj->js (concat ["Incoming Events"] (:val data)))
+  (let [vector-data (clj->js (concat ["Events Processed"] (:val data)))
         x-axis (clj->js (concat ["x"] (:timestamps data)))]
     #_(.log js/console vector-data)
     (.load chart #js {:columns #js [x-axis vector-data]})))

  (reify
    om/IInitState
    (init-state [_]
      {:chart nil})
    om/IDidMount
    (did-mount [_]
      (let [chart (.generate js/c3
                             #js {:bindto "#chart"
                                  :data
                                  #js {:x "x"
                                       :columns #js []}

        (do
          (>! ws-channel {:ok true})
          (loop [elem (<! ws-channel)
                 last-25 []
                 timestamps []
                 previous 0
                 is-first? true]
