 (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 (-> " "

        :title (->path e)
        :obj-id (object/->id e)
        :pos pos}
   (->name e)]
  :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]})]    ;; TODO: Try putting x here
   (vertical-grip this)]
  :click (fn []
           (object/raise this :active)))
