 
 (defcomponent log-entries-table [{:keys [entries visible]} owner]
   (render [_]
-          (dom/pre (om/build section-header {:text "Cluster Activity" 
-                                             :visible visible 
-                                             :type :log-entries} {})
-                   (if visible
-                     (table {:striped? true :bordered? true :condensed? true :hover? true}
-                            (dom/thead (dom/tr (dom/th "ID") (dom/th "fn") (dom/th "Time")))
-                            (dom/tbody ;{:height "500px" :position "absolute" :overflow-y "scroll"}
-                                       (map (fn [entry]
-                                              (om/build log-entry-row entry {}))
-                                            entries)))))))
+          (p/panel
+           {:header (om/build section-header {:text "Cluster Activity" 
+                                     :visible visible 
+                                     :type :log-entries} {})}
+           (if visible
+             (table {:striped? true :bordered? true :condensed? true :hover? true}
+                    (dom/thead (dom/tr (dom/th "ID") (dom/th "fn") (dom/th "Time")))
+                    (dom/tbody ;{:height "500px" :position "absolute" :overflow-y "scroll"}
+                     (map (fn [entry]
+                            (om/build log-entry-row entry {}))
+                          entries)))))))
 
 (defcomponent job-selector [{:keys [selected-job jobs]} owner]
   (render [_]
-          (dom/pre
-            (dom/h4 "Jobs")
-            (table {:striped? true :bordered? true :condensed? true :hover? true}
-                   (dom/thead (dom/tr (dom/th "ID") (dom/th "Time")))
+          (p/panel
+           {:header (dom/h4 "Jobs")}
+            (table {:striped? true :bordered? false :condensed? true :hover? true}
+;;                   (dom/thead (dom/tr (dom/th "ID") (dom/th "Time")))
                    (dom/tbody
                      (for [job (reverse (sort-by :created-at (vals jobs)))] 
                        (let [job-id (:id job)] 


  (render-state [_ {:keys [api-chan]}]
                (dom/div
                  (dom/aside {}
                             (dom/nav {:class "left-nav-deployment" :style {:width left-bar-width :position "fixed"}} 
                                      (om/build select-deployment app {})
                                      (om/build job-selector deployment {})))
                  (dom/div {:style {:margin-left left-bar-width}}
                           (om/build job-info {:deployment deployment
                                               :visible visible} {})
                           (om/build log-entries-table {:entries (deployment->latest-log-entries deployment)
                                                        :visible (:log-entries visible)} {})))))

(defn main []
  (om/root

;; Components to start splitting out

(defcomponent clojure-block [data owner]
  (render-state [_ _] (dom/div (:input data)))
  (did-mount [_]
             (let [editor (.edit js/ace (om/get-node owner))]
               (.setOptions editor
