Emacs - 需要目录中的所有文件

Question

我熟悉 load-path和 require ，但我想知道我是否可以合并多个 require我的声明 init.el 进入某种循环，最终做类似 require 的事情-ing 指定目录中的所有文件。

有没有办法做到这一点？或者我应该保持原样，多个 require声明？

Answer 1

我同意 Drew 的意见，您要使用 load在这种情况下。此函数基于 Drew 的代码，进行了一些调整以避免在 .el 和 .elc 版本都存在时重新加载库。

(defun my-load-all-in-directory (dir)
  "`load' all elisp libraries in directory DIR which are not already loaded."
  (interactive "D")
  (let ((libraries-loaded (mapcar #'file-name-sans-extension
                                  (delq nil (mapcar #'car load-history)))))
    (dolist (file (directory-files dir t ".+\\.elc?$"))
      (let ((library (file-name-sans-extension file)))
        (unless (member library libraries-loaded)
          (load library nil t)
          (push library libraries-loaded))))))