       :component-did-mount
       (fn [ this ]
         (reset! dom-node (reagent/dom-node this))
-        (let [ channel (series-data-channel series (query-range-channel (periodic-event-channel 15000))) ]
-          (go-loop []
-            (let [ data (<! channel) ]
-              (when data
-                (swap! series-state assoc :series-data data)
-                (recur))))))
+        (subscribe-plot-data series series-state))
       
       :reagent-render
       (fn [ & rest ]

      (recur))
    channel))

(defn series-tsplot [ series qws-arg ]
  (let [dom-node (reagent/atom nil)
        series-state (reagent/atom {})]


(defonce query-window (reagent/atom "1d"))

(defonce dashboard-state (reagent/atom {:series [] :text ""}))

(defonce window-width (reagent/atom nil))

(defn <<< [f & args]
  (let [c (chan)]
