              build-text (fn [name f]
                           (str name " (" (count (filter-workspaces f (:workspaces @state))) ")"))]
          [:div {:style {:display "inline-block" :marginLeft "-1em"}}
-          [Button {:text (build-text "All"       :all)       :state state :filter :all}]
-          [Button {:text (build-text "Complete"  :complete)  :state state :filter :complete}]
-          [Button {:text (build-text "Running"   :running)   :state state :filter :running}]
+          [Button {:text (build-text "All" :all) :state state :filter :all}]
+          [Button {:text (build-text "Complete" :complete) :state state :filter :complete}]
+          [Button {:text (build-text "Running" :running) :state state :filter :running}]
           [Button {:text (build-text "Exception" :exception) :state state :filter :exception}]
           [:div {:style {:clear "both"}}]]))}))
 

  (map #(assoc % "status" "Complete") workspaces))

(react/defc Page
  {:render
   (fn [{:keys [state refs]}]
     [:div {}
      (render-overlay state refs)

        (:error-message @state) [:div {:style {:color "red"}}
                                  "FireCloud service returned error: " (:error-message @state)]
        :else [comps/Spinner {:text "Loading workspaces..."}])])
   :component-did-mount
   (fn [{:keys [state]}]
     (utils/ajax-orch
