 (om/root dashboard dashboard-state
   {:target (. js/document (getElementById "metlog"))})
 
+
+
+(defn load-series-names []
+  (go
+    (swap! dashboard-state assoc :series
+           (vec (map (fn [ series-name ] { :name series-name })
+                     (<! (<<< fetch-series-names)))))))
+
+(load-series-names)

                                   (put! c x)))]))
    c))

(defn error-handler [{:keys [status status-text]}]
  (.log js/console (str "something bad happened: " status " " status-text)))

(defn ajax-get [ url callback ]
  (GET url {:handler callback
            :error-handler error-handler}))

(defn fetch-series-names [ cb ]
  (ajax-get "/series-names" cb))

       (fn []
         (go
           (om/update! state :server-time (<! (<<< fetch-server-time)))))
       15000))

    om/IRender
    (render [ this ]
