                                          (highlight-selected-step! step selected)
                                          (highlight-selected-container! %)))
             (.on   "mouseout"  #(reset-selected! step))
-            ;(.on   "click"     (partial scroll-to-step owner))
           (.append "title")
             (.text #(gstring/format "%s (%s:%s) - %s"
                                     (aget % "name")

        (.attr "class" class-name)
        (.call axis)))

(defn draw-chart! [{:keys [parallel steps start_time stop_time] :as build}]
  (let [root    (om/get-node owner "build-timings-svg")
        x-scale (create-x-scale start_time stop_time)
        chart   (create-root-svg root parallel)
        x-axis  (create-x-axis (duration start_time stop_time))
        y-axis  (create-y-axis parallel)]

    om/IDidUpdate
    (did-update [_ _ _]
      (when build
        (draw-chart! (om/get-node owner "build-timings-svg") build)))

    om/IRenderState
    (render-state [_ _]
