andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/tab-bar.el (tab-bar-split-tab): New command.

Browse source 
(split-tab): Alias for 'tab-bar-split-tab'.
This commit is contained in:
Juri Linkov 2026-01-20 19:32:16 +02:00
parent 2fc549f3b4
commit 9ba2f13176
2 changed files with 40 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
etc/NEWS
View file

@ -539,9 +539,10 @@ every buffer.
** Tab Bars and Tab Lines
---
*** New command 'merge-tabs'.
'merge-tabs' merges all windows from two tabs into one of these tabs
and closes the other tab.
*** New commands 'split-tab' and 'merge-tabs'.
'split-tab' moves a specified number of windows from an existing tab
to a newly-created tab. 'merge-tabs' merges all windows from two tabs
into one of these tabs and closes the other tab.
---
*** New abnormal hook 'tab-bar-auto-width-functions'.

36
lisp/tab-bar.el
View file

@ -1964,6 +1964,42 @@ configuration."
(delete-window))
(tab-bar-switch-to-recent-tab))
(defun tab-bar-split-tab (&optional tab arg)
"Split windows of specified TAB into two separate tabs.
TAB defaults to the selected tab. ARG specifies the number
of windows to consider for splitting and defaults to 1.
Interactively, ARG is the prefix argument.
First divide the child windows of TAB's main window into two parts.
The first part includes the first ARG child windows if ARG is positive,
or -ARG last windows if it's negative. The second part includes the
remaining child windows of TAB's main window. Then clone into a
newly-created tab each of the windows of the part which does not
include TAB's selected window and delete those windows from TAB."
(interactive "i\nP")
(let* ((tab (or tab (1+ (tab-bar--current-tab-index))))
(_ (unless (eq tab (1+ (tab-bar--current-tab-index)))
(tab-bar-select-tab tab)))
(main (window-main-window))
(total-window-count (window-child-count main))
(arg (or arg 1)))
(cond
((window-live-p main)
(user-error "Cannot split tab with only one window"))
((or (not (numberp arg)) (zerop arg))
(user-error "Invalid ARG %s for splitting tab" arg))
((>= (abs arg) total-window-count)
(user-error "ARG %s exceeds number of windows %s that can be split off"
(abs arg) (1- total-window-count)))
(t
(let* ((comb (window--get-split-combination main arg))
(ws (window-state-get comb)))
(delete-window comb)
(tab-bar-new-tab)
(window-state-put ws (window-main-window)))))))
(defalias 'split-tab #'tab-bar-split-tab)
(defun tab-bar-merge-tabs (&optional tab1 tab2 vertical)
"Merge the main window of TAB2 into TAB1.
Split the main window of TAB1 and make the new window display