                      (swap! state assoc
                             :error {:message (.-statusText xhr)})))
         :canned-response {:responseText (utils/->json-string (create-mock-workspaces))
-                          :status 200 :delay-ms (rand-int 2000)}}))})
+                          :status 200 :delay-ms (rand-int 2000)}})
+     (utils/ajax-orch
+       "/workspaces/broad-dsde-dev/testws/entities/sample"
+       {:on-done (fn [{:keys [success? xhr]}]
+                   (if success?
+                     (let [entities (utils/parse-json-string (.-responseText xhr))]
+                       (swap! state assoc :entities-loaded? true
+                              :entities entities))
+                     (swap! state assoc :error-message (.-statusText xhr))))
+        :canned-response {:responseText (utils/->json-string (create-mock-entities))
+                          :status 200
+                          :delay-ms (rand-int 2000)}}))})

          [Button {:text (build-text "Exception" :exception) :state state :filter :exception}]
          [:div {:style {:clear "both"}}]]))}))


(defn- modal-background [state]
  {:backgroundColor "rgba(82, 129, 197, 0.4)"

    (create-paragraph [:em {} "Billing account not available yet"])]
   [:div {:style {:clear "both"}}]])

(defn- render-workspace-data [entities]
  [:div {:style {:padding "2em 0" :textAlign "center"}}
   [EntityFilterButtons]
  [:div {:style {:padding "2em 0"}} [EntitiesList {:entities entities}]]])

(defn- render-selected-workspace [workspace entities]
  [:div {}
   (if workspace
     [comps/TabBar {:key "selected"
                    :items [{:text "Summary" :component (render-workspace-summary workspace)}
                            {:text "Data" :component (render-workspace-data entities)}
                            {:text "Methods"}
                            {:text "Monitor"}
                            {:text "Files"}]}]
