 (cmd/command {:command :tabset.new
               :desc "Tabset: Add a tabset"
               :exec (fn []
-                      (spawn-tabset)
-                      (equalize-tabset-widths))})
+                      (let [ts (spawn-tabset)]
+                        (equalize-tabset-widths)
+                        ts))})
 
 (cmd/command {:command :tabs.focus-active
               :desc "Tab: focus active"

                        (let [cur (@ts :active-obj)
                              next (or (next-tabset ts) (prev-tabset ts))]
                          (when (and cur next (not= next ts))
                            (rem! cur)
                            (add! cur next)
                            (active! cur)))))})

(cmd/command {:command :tabs.move-prev-tabset
              :desc "Tab: Move tab to previous tabset"

                        (let [cur (@ts :active-obj)
                              next (or (prev-tabset ts) (next-tabset ts))]
                          (when (and cur next (not= next ts))
                            (move-tab-to-tabset cur next)))))})

(cmd/command {:command :tabs.next
              :desc "Tab: Next tab"
