>From 0ffce5391c70445c8d311eb205cd566cc5f7b174 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Tue, 28 Sep 2021 14:03:01 -0500 Subject: [PATCH] * lisp/tab-bar.el: (tab-bar-detach-tab) New command (tab-bar-detach-tab): New command. --- lisp/tab-bar.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index abf0e81..d6a5edc 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -1201,6 +1201,16 @@ tab-bar-move-tab-to-frame (tab-bar-tabs-set to-tabs to-frame) (force-mode-line-update t)))) +(defun tab-bar-detach-tab (tab) + "Detach TAB to a new frame. +Interactively, detach current tab." + (interactive (list (tab-bar--current-tab-find))) + (let* ((tab-name (alist-get 'name (tab-bar--current-tab-find))) + (new-frame (make-frame `((name . ,tab-name))))) + (tab-bar-move-tab-to-frame nil nil nil new-frame nil) + (with-selected-frame new-frame + (tab-close 1)))) + (defcustom tab-bar-new-tab-to 'right "Defines where to create a new tab. -- 2.7.4