Fix #42: Add subdirectories of site-lisp to load-path.

seagle0128 · Dec 16, 2018 · 0cc6d6b · 0cc6d6b
1 parent cc5da8f
commit 0cc6d6b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/init.el b/init.el
@@ -52,7 +52,15 @@
   "Update `load-path'."
   (push (expand-file-name "site-lisp" user-emacs-directory) load-path)
   (push (expand-file-name "lisp" user-emacs-directory) load-path))
+
+(defun add-subdirs-to-load-path (&rest _)
+  "Add subdirectories to `load-path'."
+  (let ((default-directory
+          (expand-file-name "site-lisp" user-emacs-directory)))
+    (normal-top-level-add-subdirs-to-load-path)))
+
 (advice-add #'package-initialize :after #'update-load-path)
+(advice-add #'package-initialize :after #'add-subdirs-to-load-path)
 
 (update-load-path)
 

diff --git a/site-lisp/subdirs.el b/site-lisp/subdirs.el