   ;; 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

        (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)
             [:div.row-fluid
              [:div.offset1.span10
               [:div (common/messages (:messages build))]
               [:div (report-error build controls-ch)]
               [:div {:data-bind "if: $root.project() && $root.project().show_build_page_trial_notice"}
                (project-trial-notice)]
               [:div {:data-bind "if: $root.project() && $root.project().show_enable_project_notice"}
                (project-enable-notice)]
               [:div.row-fluid
                {:data-bind "if: $root.show_follow_project_button"}
                (project-follow-button)]
               (when (build-model/display-build-invite build)
                 (build-invite build))]]

             (when (< 1 (count (:containers container-data)))
               (om/build container-pills container-data {:opts opts}))
             (om/build build-steps/container-build-steps container-data {:opts opts})

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

      (let [{:keys [containers current-container-id]} container-data
            controls-ch (get-in opts [:comms :controls])]
        (html
         [:div.containers.pagination.pagination-centered (when-not (< 1 (count containers))
                                                           {:style {:display "none"}})
          [:ul.container-list
           (for [container containers]
             (om/build container-pill
                       {:container container
                        :current-container-id current-container-id}
                       {:opts opts
                        :react-key (:index container)}))]])))))

(defn notices [build-data owner opts]
  (reify
    om/IRender
    (render [_]
      (html
       (let [build (:build build-data)
             controls-ch (get-in opts [:comms :controls])]
         [:div.row-fluid
          [:div.offset1.span10
           [:div (common/messages (:messages build))]
           [:div (report-error build controls-ch)]
           [:div {:data-bind "if: $root.project() && $root.project().show_build_page_trial_notice"}
            (project-trial-notice)]
           [:div {:data-bind "if: $root.project() && $root.project().show_enable_project_notice"}
            (project-enable-notice)]
           [:div.row-fluid
            {:data-bind "if: $root.show_follow_project_button"}
            (project-follow-button)]
           (when (build-model/display-build-invite build)
             (build-invite build))]])))))

(defn build [data owner opts]
  (reify
