      :value (r/atom 0)}))
 
 (defn init []
-  (.log js/console "Starting up2…")
+  (.log js/console "Starting up…")
 
   (r/render [two-days-from-today]
             (.getElementById js/document "eval-two-days-from-today"))


(defn button [label cb]
  [:button
   {:class "code-button"
    :key label
    :onClick cb}
   label])

(defn code-component [code result label]
  [:div
   [:div.listingblock
    [:div.content
     [:pre code (when-let [v @result] (str " => " v))]]
    [:div {:style {:text-align "right"}}
     (let [m {}]
       (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!

                (->time (- (/ x-cells 2) (/ fixed-block-width-in-cells 2)))
                (->time (+ (/ x-cells 2) (/ fixed-block-width-in-cells 2))))]

    [:div.diagram
     [:div
      [:p
       [:input {:style {:width "100%"}
