                 (->time (- (/ x-cells 2) (/ fixed-block-width-in-cells 2)))
                 (->time (+ (/ x-cells 2) (/ fixed-block-width-in-cells 2))))]
 
-    [:div
+    [:div.diagram
      [:div
       [:p
        [:input {:style {:width "100%"}

     :value (r/atom 0)}))

(defn init []
  (.log js/console "Starting up2…")

  (r/render [two-days-from-today]
            (.getElementById js/document "eval-two-days-from-today"))


(defn button [label cb]
  [:button
   {:key label
    :onClick cb}
   label])

(defn code-component [code result label]
  [:div
   [:div.content
    [:pre.highlight
     [:code.language-clojure {:data-lang "clojure"} code (when-let [v @result] (str " => " v))]
     [:div.code-buttons
      (list
        (button "Eval" (fn [ev]
                         (eval-code code
                                    (fn [x]
                                      (println (pr-str x))
                                      (reset! result (str (:value x))))
                                    label)))
        (button "Clr" (fn [ev]
                        (reset! result nil)
                        )))]]]])

(defn interval-relations [config *value]
  (let [value (js/parseInt @*value 10) ; sometimes we get passed strings!
