   ;; XXX Displays nothing for now
   "")
 
+(defn container-pill [{:keys [container current-container-id]} owner opts]
+  (reify
+    om/IRender
+    (render [_]
+      (html
+       (let [container-id (container-model/id container)
+             controls-ch (get-in opts [:comms :controls])]
+         [:li {:class (when (= container-id current-container-id) "active")}
+          [:a.container-selector
+           {:on-click #(put! controls-ch [:container-selected container-id])
+            :class (container-model/status-classes container)}
+           (str "C" (:index container))]])))))
+
 (defn container-pills [container-data owner opts]
   (reify
     om/IRender

      (let [{:keys [containers current-container-id]} container-data
            controls-ch (get-in opts [:comms :controls])]
        (html
         [:div.containers.pagination.pagination-centered
          {:data-bind "sticky_waypoint: {offset: 0}"}
          [:ul.container-list
           (for [container containers
                 :let [container-id (container-model/id container)]]
             [:li {:class (when (= container-id current-container-id) "active")}
              [:a.container-selector
               {:on-click #(put! controls-ch [:container-selected container-id])
                :class (container-model/status-classes container)}
               (str "C" (:index container))]])]])))))

(defn build [data owner opts]
  (reify

        (html
         [:div#build-log-container
          (if-not build
           [:div
             (common/flashes)
             [:div.loading-spinner common/spinner]]

            [:div
             (om/build build-head/build-head (dissoc build-data :container-data) {:opts opts})
             (common/flashes)
             (om/build notices (dissoc build-data :container-data {:opts opts}))
             (om/build container-pills container-data {:opts opts})
             (om/build build-steps/container-build-steps container-data {:opts opts})

             (when (< 1 (count (:steps build)))
