如何让Emacs使用标签页而非窗口？现有配置故障求助

问题现状 #

启用global-tab-bar-mode后，大多数带输出的命令（如shell命令）仍会拆分当前窗口，完全忽略标签页，无法实现所有操作使用标签页而非新窗口的需求。

当前使用AI生成的配置（本人Elisp能力有限）存在以下问题：

• 执行tab-bar-new-tab时会复制当前标签并打开新的*scratch*标签页
• Emacs启动时自动打开多个标签
• 新标签无法正确加载目标内容
• 挂钩窗口拆分函数的逻辑完全失效，无法阻止窗口拆分

当前配置 #

;; Tab management
(use-package tab-bar
  :ensure nil
  :init
  (tab-bar-mode 1)
  :config
  (setq tab-bar-new-tab-choice "*scratch*"
        tab-bar-close-button nil
        tab-bar-new-button nil
        tab-bar-format '(tab-bar-format-tabs tab-bar-separator))
  
  ;; Auto-close empty non-scratch tabs
  (defun auto-close-empty-tab ()
    "Close tab if it only contains an empty non-scratch buffer."
    (when (and (eq (length (window-list)) 1)
               (not (string-match-p "\\*scratch\\*" (buffer-name)))
               (eq (buffer-size) 0))
      (tab-bar-close-tab)))
  
  (add-hook 'kill-buffer-hook 'auto-close-empty-tab)
  
  ;; Tab display function
  (defun my/display-in-tab (buffer &optional _)
    "Display BUFFER in a new tab reliably."
    (let ((tab-bar-new-tab-choice t))
      (tab-bar-new-tab)
      (set-window-buffer (selected-window) buffer)
      (selected-window)))
  
  ;; Set for all buffers
  (setq display-buffer-base-action '((my/display-in-tab)))
  (setq display-buffer-alist nil)
  
  ;; Window management overrides
  (defun my/ignore-split (&rest _)
    "Ignore split commands safely.")
  
  (advice-add 'split-window :override #'my/ignore-split)
  (advice-add 'split-window-right :override #'my/ignore-split)
  (advice-add 'split-window-below :override #'my/ignore-split)
  
  (defun my/safe-switch-to-buffer (buffer &optional norecord)
    "Switch to BUFFER in new tab, handling special cases."
    (cond 
     ((minibufferp) (switch-to-buffer buffer norecord))
     (t (my/display-in-tab buffer))))
  
  (advice-add 'switch-to-buffer :override #'my/safe-switch-to-buffer)
  
  (defun my/safe-delete-window (&optional window)
    "Prevent deleting the sole window."
    (unless (one-window-p)
      (delete-window window)))
  
  (advice-add 'delete-window :override #'my/safe-delete-window)
  
  ;; Tab protection
  (defun protect-last-tab (&rest _)
    "Prevent deleting the last remaining tab in a frame."
    (when (<= (length (tab-bar-tabs)) 1)
      (tab-bar-new-tab)))
  
  (advice-add 'tab-bar-close-tab :before #'protect-last-tab)
  (advice-add 'tab-close :before #'protect-last-tab))

;; Add this function to clone tabs
(defun clone-tab ()
  "Clone current tab with its buffer."
  (interactive)
  (let* ((current-buf (current-buffer)))
    (tab-bar-new-tab)
    (switch-to-buffer current-buf)))

;; Modify the auto-close function to handle scratch buffers correctly
(defun auto-close-empty-tab ()
  "Close tab if it only contains an empty non-scratch buffer."
  (when (and (eq (length (window-list)) 1)
             (not (string-match-p "\\*scratch\\*" (buffer-name)))
             (eq (buffer-size) 0))
    (tab-bar-close-tab)))

;; Update the display function to prevent automatic cloning
(defun my/display-in-tab (buffer &optional _)
  "Display BUFFER in a new tab reliably."
  (let ((tab-bar-new-tab-choice t))
    (tab-bar-new-tab)
    (set-window-buffer (selected-window) buffer)
    (selected-window)))

;; Simplify the initial tab setup
(add-hook 'after-init-hook
          (lambda ()
            (tab-bar-close-other-tabs)
            (switch-to-buffer "*scratch*")))

需求 #

通过挂钩窗口拆分函数实现纯标签页工作流，无需逐个给打开新窗口的命令添加advice。本人为Emacs新手，偏好标签页工作范式，暂不希望窗口无故拆分干扰工作流。

解决方案：修正后的纯标签页配置 #

以下配置修复了原配置的问题，通过正确拦截窗口拆分逻辑、优化display-buffer行为实现纯标签页工作流：

(use-package tab-bar
  :ensure nil
  :init
  (tab-bar-mode 1)
  :config
  ;; 基础标签页设置：关闭默认按钮，新标签打开scratch
  (setq tab-bar-new-tab-choice "*scratch*"
        tab-bar-close-button nil
        tab-bar-new-button nil
        tab-bar-format '(tab-bar-format-tabs tab-bar-separator)
        ;; 禁止标签页自动克隆当前窗口配置
        tab-bar-new-tab-to 'right)

  ;; 自动关闭空的非scratch标签页
  (defun auto-close-empty-tab ()
    "Close tab if it only contains an empty non-scratch buffer."
    (when (and (one-window-p)
               (not (string-equal (buffer-name) "*scratch*"))
               (zerop (buffer-size)))
      (tab-bar-close-tab)))
  
  (add-hook 'kill-buffer-hook 'auto-close-empty-tab)

  ;; 核心：将所有新缓冲区显示在新标签页
  (defun my/display-in-new-tab (buffer alist)
    "Display BUFFER in a new tab, following DISPLAY-BUFFER protocol."
    (let ((window (tab-bar-new-tab)))
      (set-window-buffer window buffer)
      (cons window alist)))
  
  ;; 设置全局默认的缓冲区显示行为
  (setq display-buffer-base-action
        '((my/display-in-new-tab)
          (inhibit-same-window . t)))
  
  ;; 拦截所有窗口拆分命令，强制转为新标签页
  (defun my/redirect-split-to-tab (orig-fun &rest args)
    "Redirect window split commands to open a new tab instead."
    (tab-bar-new-tab))
  
  (advice-add 'split-window :around #'my/redirect-split-to-tab)
  (advice-add 'split-window-right :around #'my/redirect-split-to-tab)
  (advice-add 'split-window-below :around #'my/redirect-split-to-tab)

  ;; 修复切换缓冲区行为：仅在当前标签页切换，非特殊缓冲区不新建标签
  (defun my/safe-switch-to-buffer (buffer &optional norecord)
    "Switch to BUFFER in current tab, handle minibuffer specially."
    (if (minibufferp)
        (switch-to-buffer buffer norecord)
      (switch-to-buffer buffer norecord)))
  
  (advice-add 'switch-to-buffer :override #'my/safe-switch-to-buffer)

  ;; 保护最后一个标签页不被删除
  (defun protect-last-tab (&rest _)
    "Prevent deleting the last tab in the frame."
    (when (<= (length (tab-bar-tabs)) 1)
      (message "Cannot close the last tab")
      (signal 'error '("Cannot close the last tab"))))
  
  (advice-add 'tab-bar-close-tab :before-until #'protect-last-tab)
  (advice-add 'tab-close :before-until #'protect-last-tab)

  ;; 克隆标签页功能
  (defun clone-tab ()
    "Clone current tab with its buffer."
    (interactive)
    (let ((current-buf (current-buffer)))
      (tab-bar-new-tab)
      (switch-to-buffer current-buf))))

;; 启动初始化：只保留一个scratch标签页
(add-hook 'after-init-hook
          (lambda ()
            (when (> (length (tab-bar-tabs)) 1)
              (tab-bar-close-other-tabs))
            (switch-to-buffer "*scratch*")))

关键修改说明 #

1. 修复display-buffer行为：实现符合Emacs原生display-buffer协议的my/display-in-new-tab函数，确保所有新缓冲区（包括shell命令输出）都在新标签页打开，而非拆分窗口。
2. 优化窗口拆分拦截：将原有的空函数替换为around advice，直接将拆分命令重定向为新建标签页，而非无操作。
3. 修复标签页克隆问题：设置tab-bar-new-tab-to 'right，避免新建标签时自动复制当前窗口配置；修正switch-to-buffer的advice，仅在当前标签页切换缓冲区，避免不必要的标签页创建。
4. 修复启动多标签问题：在初始化钩子中增加判断，仅当标签数大于1时才关闭其他标签，避免启动时重复创建标签。
5. 增强标签保护逻辑：使用before-until advice，当尝试关闭最后一个标签时直接报错阻止，而非提前新建标签。

内容的提问来源于stack exchange，提问作者David Avarage