list - 将所有打开的 org 模式文件放在一个列表中，最终与 helm 列表一起使用

Question

我正在尝试将所有（打开的）组织文件放在一个列表中，以便我可以将它们添加到 helm-projectile-switch-to-file 列表中。

我能够得到这个代码：

  (->> (buffer-list)
       (--select (with-current-buffer it
                   (derived-mode-p 'org-mode)))
       (mapc #'kill-buffer))

但这会杀死缓冲区而不是将它们放入聚合列表中。

Answer 1

如果您不想杀死缓冲区，我建议不要应用kill-buffer到每个元素。除此之外，您几乎已经完成了所有工作。这是一个不需要任何外部库的版本：

(seq-filter '(lambda (buffer)                                                                                                                                                            
               (with-current-buffer buffer
                 (derived-mode-p 'org-mode)))
            (buffer-list))