     (fn []
       [:input {:value (:text @state)
                :onChange #(swap! state assoc :text (.. % -target -value))
-               :onKeyDown #(do
-                             (when (= (.-key %) "Enter")
-                                 (on-enter (:text @state))))} ])))
+               :onKeyDown #(when (= (.-key %) "Enter")
+                             (on-enter (:text @state)))}])))
 
 (defn header [ ]
   [:div.header

     {:display-name (str "series-tsplot-" series)
      :component-did-update
      (fn [ this ]
        (tsplot-draw (.-firstChild (reagent/dom-node this)) (:series-data @series-state)))

      :component-did-mount
      (fn [ this ]

                    {:width (.-clientWidth node)
                     :height (.-clientHeight node)})]])})))

(defn series-pane [ series-name ]
  [:div.series-pane
   [:div.series-pane-header
    [:span.series-name series-name]]
   [series-tsplot series-name]])

(defn series-list [ ]
  [:div
