       :reagent-render
       (fn [ ]
         @window-width
-        [:canvas { :width (dom-width (:dom-node @series-state)) :height 180}])})))
+        (let [ dom-node (:dom-node @series-state)]
+          [:canvas
+           {:width (dom-node-width dom-node default-tsplot-width)
+            :height (dom-node-height dom-node default-tsplot-height)}]))})))
 
 (defn series-pane [ series ]
   [:div.series-pane

(ns metlog-client.metlog
  (:require-macros [cljs.core.async.macros :refer [ go ]]
                   [metlog-client.macros :refer [ watch ]])
  (:require [reagent.core :as reagent :refer [atom]]
            [ajax.core :refer [GET]]
            [cljs.reader :as reader]
            [cljs.core.async :refer [put! close! chan <!]]
            [metlog-client.tsplot :as tsplot]))

(defonce query-window-secs (atom (* 3600 24)))

(def dashboard-state (atom {:series [] :text ""}))

(def window-width (atom 1024))

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

    (reset! query-window-secs qws)))

(defn input-field [ on-enter ]
  (let [ state (reagent/atom { :text "" }) ]
    (fn []
      [:input {:value (:text @state)
               :onChange #(swap! state assoc :text (.. % -target -value))
