emacs - Emacs Lisp: フォルダーとそのすべての最初のレベルのサブフォルダーをロードパスに追加する方法

Question

次のようにフォルダ構造を設定している場合：

~/Projects
    emacs
        package1
            package1-helpers
        package2
            package2-helpers
            package2-more-helpers
        package3
            package3-helpers

これらのフォルダを追加するにはどうすればよいですか:

• ~/プロジェクト/emacs
• ~/プロジェクト/emacs/package1
• ~/プロジェクト/emacs/package2
• ~/プロジェクト/emacs/package3

...load-path私の.emacsファイルから？

基本的に、このコードの短い自動化バージョンが必要です。

(add-to-list 'load-path "~/Projects/emacs")
(add-to-list 'load-path "~/Projects/emacs/package1")
(add-to-list 'load-path "~/Projects/emacs/package2")
(add-to-list 'load-path "~/Projects/emacs/package3")

Answer 1

(let ((base "~/Projects/emacs"))
  (add-to-list 'load-path base)
  (dolist (f (directory-files base))
    (let ((name (concat base "/" f)))
      (when (and (file-directory-p name) 
                 (not (equal f ".."))
                 (not (equal f ".")))
        (add-to-list 'load-path name)))))

Answer 2

subdirs.elを使用することをお勧めします