Re: Adding Additional Trees to the Load Path

["Fabrice Niessen" <tdhkhcidiacy-geNee64TY+gS+FvcfC7Uqw@public.gmane.org>]

Hello Tim,

> I have a directory `.emacs.d` in my home directory where I put lisp
> libraries for extensions to Emacs.  Currently, I have to explicitly
> include each of the extensions in my `.emacs` file in order to get
> them to work.  I tried adding `.emacs.d` to my load-path via the
> following:
>
> (add-to-list 'load-path (expand-file-name "~/.emacs.d"))
>
> But that had no effect.  I would like behaviour similar to site-lisp
> where all of the trees under site-lisp are automitacally added.  Any
> way I can do this?

My solution is to define my own custom function for adding
directories to the `load-path':

--8<---------------cut here---------------start------------->8---
;; load-path enhancement
(defun my-add-to-load-path (this-directory &optional with-subdirs recursive)
  "Add THIS-DIRECTORY at the beginning of the load-path, if it exists.
Add all its subdirectories not starting with a '.' if the
optional argument WITH-SUBDIRS is not nil.
Do it recursively if the third argument is not nil."
  (when this-directory
    (when (file-directory-p this-directory)
      (let* ((this-directory (expand-file-name this-directory))
             (files (directory-files this-directory t "^[^\\.]")))

        ;; completely canonicalize the directory name (*may not* begin with `~')
        (while (not (string= this-directory (expand-file-name this-directory)))
          (setq this-directory (expand-file-name this-directory)))

        (message "Adding `%s' to load-path..." this-directory)
        (add-to-list 'load-path this-directory)

        (if with-subdirs
            (progn
              (while files
                (setq dir-or-file (car files))
                (when (file-directory-p dir-or-file)
                  (if recursive
                      (my-add-to-load-path dir-or-file 'with-subdirs)
                    (my-add-to-load-path dir-or-file)))
                (setq files (cdr files)))))))))
--8<---------------cut here---------------end--------------->8---

Then, depending on my needs, I simply write a call such as:

--8<---------------cut here---------------start------------->8---
(my-add-to-load-path "~/.emacs.d/" 'with-subdirs 'recursive)
--8<---------------cut here---------------end--------------->8---

As you can read above, all directories starting with a `.' will
be avoided. That allows me to have a `.TEMP' subdirectory where
I can put files I wanna test later, or versions I wanna keep but
not see loaded.

As well, on a case by case basis, I decide if I want subdirs to
be loaded, even recursively, by setting or not the two optional
parameters.

Have a look at my .emacs file if you need more examples:

    http://www.mygooglest.com/fni/dot-emacs.html

Fabrice

_________________________________________________________________________
Fabrice Niessen
Search the Web with "My Google Search Tools" on http://www.MyGooglest.com