                 :onChange (fn [ev]
                             (reset! *value (.-value (.-target ev))))}]]]
 
-     [:div {:style {:border "0px dotted grey"
-                    :margin-bottom "24pt"}}
-      [:svg {:viewBox [0 0 width 40]}
-       [:rect
-        {:x (* cell-width value) :y 10 :width block-width :height 8 :fill "orange"}]
+     [:svg {:viewBox [0 0 width 40]}
+      [:rect
+       {:x (* cell-width value) :y 10 :width block-width :height 8 :fill "orange"}]
 
-       ;; fixed
-       [:rect
-        {:x (- (/ width 2) (/ fixed-block-width 2)) :y 30 :width fixed-block-width :height 8 :fill "#444"}]]]
+      ;; fixed
+      [:rect
+       {:x (- (/ width 2) (/ fixed-block-width 2)) :y 30 :width fixed-block-width :height 8 :fill "#444"}]]
 
      (letfn [(f [rel] (case rel
                         :precedes "precedes"

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

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

     :value (r/atom 0)}))

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

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