         :title (->path e)
         :obj-id (object/->id e)
         :pos pos}
-   (->name e)]
+   (close-tab e)
+   (->name e)]    ;; TODO: Add 'x' button next to file name
   :click (fn []
            (active! e))
   :contextmenu (fn [ev]

   [:div.list
    (bound this #(objs-list this (:objs %)))]
   [:div.items
    (map-bound (partial tabbed-item (subatom this :active-obj)) this {:path [:objs]})]
   (vertical-grip this)]
  :click (fn []
           (object/raise this :active)))

(defn dirty? [c e]
  (str c (when (:dirty @e)
           " dirty")))

(defui close-tab [obj] ;; TODO: Create x button
  [:button "x"]
  :click (fn [] (object/raise obj :close)))

(defui item [multi e pos]
  [:li {:class (-> " "
