daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

improve autoloads

Browse Source
This commit is contained in:
Daniel Weschke
2025-07-04 23:58:34 +02:00
parent 09e03011d7
commit 4a4f30e3b1
15 changed files with 359 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
early-init.el
View File

@@ -55,7 +55,7 @@ Fallbacks to `user-emacs-directory' if this file is not loaded.")
;; path where settings files are kept
(add-to-list 'load-path (concat config-dir "settings"))
;; add personal elisp lib dir, for manually installed packages
(defun add-to-load-path-with-subdirs (base exclude-list include-list)
(defun add-to-load-path-with-subdirs (base &optional exclude-list include-list autoloads)
"This will add all first level dirs from BASE and exclude the ones in
EXCLUDE-LIST, while for the dirs in INCLUDE-LIST, it will add all the
first level dirs of that dir too.
@@ -66,9 +66,14 @@ Fallbacks to `user-emacs-directory' if this file is not loaded.")
(when (and (file-directory-p name)
(not (member f exclude-list)))
(add-to-list 'load-path name)
(when autoloads
(let ((fileal (concat name "/" (file-name-base name) "-autoloads.el"))
(nameal (concat (file-name-base name) "-autoloads")))
(when (file-exists-p fileal)
(require (intern nameal) fileal) )))
(when (member f include-list)
(add-to-load-path-with-subdirs name exclude-list include-list))))))
(add-to-load-path-with-subdirs (concat config-dir "lisp") '("." ".." "0patches") nil))
(add-to-load-path-with-subdirs (concat config-dir "lisp") '("." ".." "0patches") nil t))
;;; Load pre-early-init.el