     (render [_]
       (dom/g #js {:className "x axis" :transform (str "translate(0," chart-height ")")}
              (om/build x-axis-path-component scale)
-             (render-x-axis-ticks scale)))))
+             (om/build x-axis-ticks-component scale)))))
 
 (defn component [{:keys [data-points]} owner]
   (reify

      (.domain #js [0 (apply max response-times)])
      (.range #js [0 chart-width])))

(defn render-bar [x-scale y-scale bar]
  (let [scaled-x (x-scale (.-x bar))
        scaled-y (y-scale (.-y bar))
        scaled-dx (x-scale (.-dx bar))]
    (dom/g #js {:transform (str "translate(" scaled-x "," scaled-y ")")
                :className "bar"}
           (dom/rect #js {:width (dec scaled-dx)
                          :height (- chart-height scaled-y)})
           (dom/text #js {:dy "0.75em"
                          :y 6
                          :x (/ scaled-dx 2)
                          :textAnchor "middle"}
                     (when (pos? (.-y bar)) (.-y bar))))))

(defn x-axis-path-component [scale]
  (reify

                               :height (+ chart-height top bottom)}
                          (apply dom/g #js {:transform (str "translate(" left "," top ")")}
                                 (om/build x-axis-component {:chart-height chart-height :scale x-scale})
                                 (om/build-all #(bar-component % x-scale y-scale chart-height) data))))))))
