   (-> (.axis js/d3.svg)
         (.tickValues (clj->js (range 0 (inc build-duration) (/ build-duration 4))))
         (.scale axis-scale)
-        (.tickFormat #(str (datetime/as-duration %) "m"))
+        (.tickFormat #(datetime/as-duration %))
         (.orient "top"))))
 
-(defn build-duration [start-time stop-time]
+(defn duration [start-time stop-time]
   (- (.getTime (js/Date. stop-time))
      (.getTime (js/Date. start-time))))
 

(defn draw-containers! [x-scale step]
  (let [step-length         #(- (scaled-time x-scale % "end_time")
                                (scaled-time x-scale % "start_time"))
        step-start-pos      #(x-scale (js/Date. (aget % "start_time")))]
    (-> step
        (.selectAll "rect")
          (.data #(aget % "actions"))

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