将所有打开的组织模式文件放入列表中，以最终与头盔列表一起使用

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