       :title "Project settings"}
      [:i.material-icons "settings"]]]))
 
+(defn- legacy-branch-picker
+  "Wraps the branch picker in a legacy component which can load the project data
+  on mount."
+  [app owner]
+  (reify
+    om/IWillMount
+    (will-mount [_]
+      (let [projects-loaded? (seq (get-in app state/projects-path))
+            current-user (get-in app state/user-path)]
+        (when (and (not projects-loaded?)
+                   (not (empty? current-user)))
+          (api/get-projects (om/get-shared owner [:comms :api])))))
+
+    om/IRender
+    (render [_]
+      (om/build aside/branch-activity-list app))))
+
 (defui ^:once Page
   static om-next/IQuery
   (query [this]

                  :project project-name
                  :vcs_type vcs-type}]
        :header-actions (settings-link vcs-type org-name project-name)
        :main-content (when-let [project (:project-for-runs (om-next/props this))]
                        (workflow-runs project))}))))

(ns frontend.components.pages.workflow
  (:require [clojure.string :as string]
            [frontend.api :as api]
            [frontend.components.aside :as aside]
            [frontend.components.common :as common]
            [frontend.components.pieces.button :as button]
            [frontend.components.pieces.card :as card]
