如何在Emacs的tab-line-mode中按指定扩展名过滤缓冲区？

你可以通过自定义tab-line-tabs-function来过滤tab-line显示的缓冲区，以下是具体实现步骤：

1. 定义过滤缓冲区的函数 #

将下面的代码添加到你的Emacs配置文件（比如~/.emacs.d/init.el）中：

(defun my-tab-line-filtered-tabs ()
  "返回tab-line需要显示的、扩展名是.rb/.clj/.coffee的缓冲区列表"
  (let ((allowed-extensions '("rb" "clj" "coffee")))
    (seq-filter
     (lambda (buffer)
       ;; 仅保留有对应文件，且扩展名在允许列表中的缓冲区
       (let ((file-path (buffer-file-name buffer)))
         (and file-path
              (member (file-name-extension file-path) allowed-extensions))))
     (buffer-list))))

2. 让tab-line使用这个过滤函数 #

添加以下代码，告诉tab-line-mode使用我们自定义的函数生成缓冲区列表：

(setq tab-line-tabs-function #'my-tab-line-filtered-tabs)

补充：保留当前活动缓冲区（可选） #

如果你希望当前正在编辑的缓冲区，哪怕扩展名不在列表里也能显示，可以修改过滤函数的判断逻辑：

(defun my-tab-line-filtered-tabs ()
  "返回tab-line需要显示的缓冲区：当前活动缓冲区 + 指定扩展名的缓冲区"
  (let ((allowed-extensions '("rb" "clj" "coffee")))
    (seq-filter
     (lambda (buffer)
       (or (eq buffer (current-buffer))
           (let ((file-path (buffer-file-name buffer)))
             (and file-path
                  (member (file-name-extension file-path) allowed-extensions)))))
     (buffer-list))))

关于interactive的说明 #

你提到的interactive是用来标记一个Elisp函数可以作为用户可调用的命令（比如通过M-x执行），它的作用是告诉Emacs如何获取命令所需的参数。而我们自定义的my-tab-line-filtered-tabs是作为回调函数被tab-line-mode自动调用的，不需要用户手动触发，所以完全不需要添加interactive声明。

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