将所有打开的组织模式文件放在一个列表中，以便最终与 helm 列表一起使用

Question

我正在尝试将所有(打开的(组织文件放在一个列表中，以便我可以将它们添加到舵弹切换到文件列表中。

我能够获得以下代码：

(->> (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))