         (.append "rect")
         (.attr #js {"width" square-size
                     "height" square-size
-                    "class" #(.-classname %)
+                    "class" #(aget % "classname")
                     "transform"
                     (fn [item i]
                       (gstring/format "translate(%s,%s)" 0  (- (+ square-size))))}))
     (-> left-legend-item
         (.append "text")
         (.attr #js {"x" (+ square-size spacing)})
-        (.text #(.-text %)))
+        (.text #(aget % "text")))
 
     ;; right legend
     (-> right-legend-item
         (.append "rect")
         (.attr #js {"width" square-size
                     "height" square-size
-                    "class" #(.-classname %)
+                    "class" #(aget % "classname")
                     "transform"
                     (fn [item i]
                       (gstring/format "translate(%s,%s)" 0  (- (+ square-size))))}))

    (reify
      om/IDidUpdate
      (did-update [_ prev-props prev-state]
        (.error js/console  "update called.")
        (let [el (om/get-node owner)]
          (visualize-insights-bar! el chart-builds)))
      om/IRender

        (.append "text")
        (.attr #js {"x" (+ square-size
                           spacing)})
        (.text #(aget % "text")))))

(defn visualize-insights-bar! [elem builds]
  (let [y-max (apply max (mapcat #((juxt :queued_time_minutes :build_time_minutes) %)
