                                                     (dom/i {:class "fa fa-times-circle-o"
                                                             :style {:padding-right "10px"}} " Kill")))))))))))
 
+(defn displayed-job-status [{:keys [status tasks] :as job}]
+  (case status 
+    :incomplete (if (empty? tasks) :incomplete :running)
+    status))
+
 (defcomponent job-overview-panel [job owner]
   (render [_]
           (p/panel

             :bs-style "primary"}
            (g/grid {} 
                    (g/row {} 
                           (str "Job status is " (:status job)))
                    (g/row {} 
                           (str "Task Scheduler is " (:task-scheduler job)))))))


                                 (dom/td (str (:id task)))
                                 (dom/td (str peer-id)))))))))

(defcomponent job-management [{:keys [id status] :as job} owner]
  (render [_]
          (let [api-ch (om/get-shared owner :api-ch)
