[PATCH] New tab-bar-detach-tab command

[Adam Porter <adam@alphapapa.net>]

[-- Attachment #1: Type: text/plain, Size: 392 bytes --]

Hi Juri, et al,

I found myself wanting to move a tab-bar tab to a new frame displaying
only that tab (like a web browser's "detach tab" command), and I
couldn't find a command to do that, so I wrote this simple one.  It
seems to work and ought to be useful, I think.

It might be worth binding it to something like "C-x t D" as well,
assuming the command is worth merging.  :)

Thanks,
Adam

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: New tab-bar-detach-tab command --]
[-- Type: text/x-diff, Size: 1067 bytes --]

From 0ffce5391c70445c8d311eb205cd566cc5f7b174 Mon Sep 17 00:00:00 2001
From: Adam Porter <adam@alphapapa.net>
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))))
+
 \f
 (defcustom tab-bar-new-tab-to 'right
   "Defines where to create a new tab.
-- 
2.7.4