···

       
8
       
8
       
 
       
;;; Extend `load-path' to search for elisp files in subdirectories of all folders in `NIX_PROFILES'.

     

       
9
       
9
       
 
       
;;; Non-Nix distros have similar logic in /usr/share/emacs/site-lisp/subdirs.el.

     

       
10
       
10
       
 
       
;;; See https://www.gnu.org/software/emacs/manual/html_node/elisp/Library-Search.html

     

       
11
       
11
       
-
       
(dolist (profile (nix--profile-paths))

     

       
12
       
12
       
-
       
  (let ((default-directory (expand-file-name "share/emacs/site-lisp/" profile)))

     

       
11
       
11
       
+
       
(dolist (profile (reverse (nix--profile-paths)))

     

       
12
       
12
       
+
       
  ;; `directory-file-name' is important to add sub dirs to the right place of `load-path'

     

       
13
       
13
       
+
       
  ;; see the source code of `normal-top-level-add-to-load-path'

     

       
14
       
14
       
+
       
  (let ((default-directory (directory-file-name

     

       
15
       
15
       
+
       
                            (expand-file-name "share/emacs/site-lisp/" profile))))

     

       
13
       
16
       
 
       
    (when (file-exists-p default-directory)

     

       
14
       
17
       
 
       
      (setq load-path (cons default-directory load-path))

     

       
15
       
18
       
 
       
      (normal-top-level-add-subdirs-to-load-path))))