           (dom/div
             (b/toolbar {}
                        (apply (partial b/dropdown {:bs-style "primary" 
-                                                   :title (or (:id deployment) 
-                                                              "Deployments")})
+                                                   :title (or (:id deployment) "Deployments")})
                               (for [[id info] (reverse (sort-by (comp :created-at val) 
                                                                 deployments))]
                                 (b/menu-item {:key id

                          (:job-id entry))]
    (= entry-job-id job-id)))

(defcomponent deployment-entries [{:keys [selected-job entries message-id-max]} owner]
  (render [_]
          (let [num-displayed 100
                start-id (max 0 (- (inc message-id-max) num-displayed))
                displayed-msg-ids (range start-id (inc message-id-max))]
            (dom/pre
             (dom/h4 "Cluster Activity")
             (table {:striped? true :bordered? true :condensed? true :hover? true}
                    (dom/thead
                     (dom/tr
                      (dom/th "ID")
                      (dom/th "Time")
                      (dom/th "fn")))
                    (dom/tbody ;{:height "500px" :position "absolute" :overflow-y "scroll"}
                                        ; Entries may not exist if they have come in out of order from sente, 
                                        ; thus we only keep the not nil entries
                     (for [entry (keep entries (reverse displayed-msg-ids))]
                       (dom/tr {:key (str "entry-" (:message-id entry))
                                :title (str (om/value entry))}
                               (dom/td (str (:id (:args entry))))
                               (dom/td (.fromNow (js/moment (str (js/Date. (:created-at entry))))))
                               (dom/td (str (:fn entry)))))))))))

(defn select-job [id]
  (println "Selecting job " id)
  (swap! app-state assoc-in [:deployment :selected-job] id))

(defcomponent job-selector [{:keys [selected-job jobs]} owner]

    (case msg-type 
      :chsk/recv
      (let [[recv-type recv-msg] msg]
        ;(println "Recv event " event)
        (msg-controller recv-type recv-msg))
      :chsk/state (when (:first-open? msg)
                    (chsk-send! [:deployment/get-listing])
