Emacs 每帧制作 ibuffer 过滤器

Question

我使用ibuffer 并打开了几个框架。我对 ibuffer 非常频繁的用例是按名称/文件名过滤缓冲区列表 (C-x C-b)。问题是过滤器对所有帧都以相同的方式工作(我相信这是预测的)。我想为我拥有的每个帧应用 ibuffer 列表过滤器。

例如在第一帧中，我希望看到按文件名过滤的缓冲区列表，在第二帧中，我希望看到按模式过滤的缓冲区列表。

查看 ibuffer.el 我发现了一个名为 ibuffer-filtering-qualifiers 的实体，它包含一个当前应用的过滤器的关联列表。我试过玩:

(let ((ibuffer-filtering-qualifiers '())) ;;; Imitate that there are no filters applied
   (call-interactively 'ibuffer))

但这对我不起作用。

能否请您指出如何实现 ibuffer 的这种预期行为？

Answer 1

函数 ibuffer-update 使用 buffer-list，其中包括所有帧。将 ibuffer-update 从使用 buffer-list 修改为 (frame-parameter (selected-frame) 'buffer-list) 接近你的行为寻求。基于相同概念的 ibuffer 过滤器也应该是可能的。

在我看来，每帧缓冲区列表 (frame-parameter (selected-frame) 'buffer-list) 不是将缓冲区与帧相关联的最佳方法，因为它太容易被修改。我见过的最好的方法是 Al Parker 的 frame-bufs:https://github.com/alpaker/Frame-Bufs这已更新为适用于当前版本的 Emacs，但是，我使用的是稍微修改过的版本以满足我自己的需要。

因此，据我所知，回答您问题的最简单方法是使用 Al Parker 的 frame-bufs 组合，并在 中使用 frame-bufs-buffer-list ibuffer-更新。这为您提供了两全其美的体验。这是一个示例，它将为您提供一个漂亮的 ibuffer，其中仅包含与给定帧相关联的缓冲区——不会显示所有其他缓冲区。 [仅供引用:帧缓冲区也按模式或文件名排序。]

(require 'ibuffer)

(defalias 'ibuffer-update 'lawlist-ibuffer-update)

(defun lawlist-ibuffer-update (arg &optional silent)
  "Regenerate the list of all buffers.

Prefix arg non-nil means to toggle whether buffers that match
`ibuffer-maybe-show-predicates' should be displayed.

If optional arg SILENT is non-nil, do not display progress messages."
  (interactive "P")
  (if arg
      (setq ibuffer-display-maybe-show-predicates
        (not ibuffer-display-maybe-show-predicates)))
  (ibuffer-forward-line 0)
  ;; (let* ((bufs (buffer-list))
  (let* ((bufs (frame-parameter (selected-frame) 'frame-bufs-buffer-list))
     (blist (ibuffer-filter-buffers
         (current-buffer)
         (if (and
              (cadr bufs)
              (eq ibuffer-always-show-last-buffer
              :nomini)
              (minibufferp (cadr bufs)))
             (cl-caddr bufs)
           (cadr bufs))
         (ibuffer-current-buffers-with-marks bufs)
         ibuffer-display-maybe-show-predicates)))
    (and (null blist)
     (featurep 'ibuf-ext)
     ibuffer-filtering-qualifiers
     (message "No buffers! (note: filtering in effect)"))
    (unless silent
      (message "Updating buffer list..."))
    (ibuffer-redisplay-engine blist arg)
    (unless silent
      (message "Updating buffer list...done")))
  (if (eq ibuffer-shrink-to-minimum-size 'onewindow)
      (ibuffer-shrink-to-fit t)
    (when ibuffer-shrink-to-minimum-size
      (ibuffer-shrink-to-fit)))
  (ibuffer-forward-line 0)
  ;; I tried to update this automatically from the mode-line-process format,
  ;; but changing nil-ness of header-line-format while computing
  ;; mode-line-format is asking a bit too much it seems.  --Stef
  (setq header-line-format
        (and ibuffer-use-header-line
             ibuffer-filtering-qualifiers
             ibuffer-header-line-format)))