multiple load-paths?

multiple load-paths?

[someusernamehere]

hey, I have in my .emacs 4 lines such as>


(setq load-path (cons (expand-file-name "~/lisp") load-path))
(setq load-path (cons (expand-file-name "~/repos") load-path))
(setq load-path (cons (expand-file-name "~/testing") load-path))
(setq load-path (cons (expand-file-name "~/elisp") load-path))

there is a way to do this more "posh" ?, I mean may be in one line o
something similar?


thanks

Re: multiple load-paths?

[Juanma Barranquero]

On Nov 24, 2007 4:30 PM, someusernamehere <someusernamehere@gmail.com> wrote:

> (setq load-path (cons (expand-file-name "~/lisp") load-path))
> (setq load-path (cons (expand-file-name "~/repos") load-path))
> (setq load-path (cons (expand-file-name "~/testing") load-path))
> (setq load-path (cons (expand-file-name "~/elisp") load-path))
>
> there is a way to do this more "posh" ?, I mean may be in one line o
> something similar?

You could do

  (dolist (dir '("lisp" "repos" "testing" "elisp"))
    (push (expand-file-name (concat "~/" dir)) load-path))

About the "poshiness" of it, that's you call :-)

             Juanma

Re: multiple load-paths?

[Johan Bockgård]

someusernamehere <someusernamehere@gmail.com> writes:

> (setq load-path (cons (expand-file-name "~/lisp") load-path))
> (setq load-path (cons (expand-file-name "~/repos") load-path))
> (setq load-path (cons (expand-file-name "~/testing") load-path))
> (setq load-path (cons (expand-file-name "~/elisp") load-path))
>
> there is a way to do this more "posh" ?, I mean may be in one line o
> something similar?

I'd prefer

    (add-to-list 'load-path "~/lisp")
    (add-to-list 'load-path "~/repos")
    (add-to-list 'load-path "~/testing")
    (add-to-list 'load-path "~/elisp")

(add-to-list is shorter and avoids adding duplicates to load-path if
.emacs is reloaded.  expand-file-name shouldn't be necessary)

You could use a loop, but having one line per entry is more
grep-friendly. 

-- 
Johan Bockgård

Re: multiple load-paths?

[Mike Mattie]

[-- Attachment #1.1: Type: text/plain, Size: 1546 bytes --]

On Sat, 24 Nov 2007 17:05:15 +0100
bojohan+news@dd.chalmers.se (Johan Bockgård) wrote:

> someusernamehere <someusernamehere@gmail.com> writes:
> 
> > (setq load-path (cons (expand-file-name "~/lisp") load-path))
> > (setq load-path (cons (expand-file-name "~/repos") load-path))
> > (setq load-path (cons (expand-file-name "~/testing") load-path))
> > (setq load-path (cons (expand-file-name "~/elisp") load-path))
> >
> > there is a way to do this more "posh" ?, I mean may be in one line o
> > something similar?
> 
> I'd prefer
> 
>     (add-to-list 'load-path "~/lisp")
>     (add-to-list 'load-path "~/repos")
>     (add-to-list 'load-path "~/testing")
>     (add-to-list 'load-path "~/elisp")
> 
> (add-to-list is shorter and avoids adding duplicates to load-path if
> .emacs is reloaded.  expand-file-name shouldn't be necessary)
> 
> You could use a loop, but having one line per entry is more
> grep-friendly. 
>

this is my flavor. The version above is superior in that it filters dups, but I don't see that
as a serious problem for small cases.
 
(setq load-path
  (append
    ;; overide distributed elisp with local modifications by
    ;; inserting a "local" directory at the beginning of the
    ;; load list
    (cons localized-source-dir load-path)

    ;; add the extras to the end of the list.
    (list extras-source-dir)
    ))

in this version anything you want to override emacs goes in localized-source-dir, while anything that is an add-on
can simply go in the list at the end.

[-- Attachment #1.2: signature.asc --]
[-- Type: application/pgp-signature, Size: 189 bytes --]

[-- Attachment #2: Type: text/plain, Size: 152 bytes --]

_______________________________________________
help-gnu-emacs mailing list
help-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/help-gnu-emacs

Re: multiple load-paths?

[Sebastian Tennant]

Quoth Mike Mattie <codermattie@gmail.com>:
> On Sat, 24 Nov 2007 17:05:15 +0100
> bojohan+news@dd.chalmers.se (Johan Bockgård) wrote:
>
>> someusernamehere <someusernamehere@gmail.com> writes:
>> 
>> > (setq load-path (cons (expand-file-name "~/lisp") load-path))
>> > (setq load-path (cons (expand-file-name "~/repos") load-path))
>> > (setq load-path (cons (expand-file-name "~/testing") load-path))
>> > (setq load-path (cons (expand-file-name "~/elisp") load-path))
>> >
>> > there is a way to do this more "posh" ?, I mean may be in one line o
>> > something similar?
>> 
>> I'd prefer
>> 
>>     (add-to-list 'load-path "~/lisp")
>>     (add-to-list 'load-path "~/repos")
>>     (add-to-list 'load-path "~/testing")
>>     (add-to-list 'load-path "~/elisp")
>> 
>> (add-to-list is shorter and avoids adding duplicates to load-path if
>> .emacs is reloaded.  expand-file-name shouldn't be necessary)
>> 
>> You could use a loop, but having one line per entry is more
>> grep-friendly. 
>>
>
> this is my flavor. The version above is superior in that it filters dups, but I don't see that
> as a serious problem for small cases.
>  
> (setq load-path
>   (append
>     ;; overide distributed elisp with local modifications by
>     ;; inserting a "local" directory at the beginning of the
>     ;; load list
>     (cons localized-source-dir load-path)
>
>     ;; add the extras to the end of the list.
>     (list extras-source-dir)
>     ))
>
> in this version anything you want to override emacs goes in localized-source-dir, while anything that is an add-on
> can simply go in the list at the end.

And here's my offering.  I've created two directories, under ~/elisp;
one called pre/ and one called app/.  Any directories (or links to
directories) I create in these subdirectories are prepended or appended
to my load path accordingly, and it all happens dynamically at start
time:

 ;;; this is cleaner
 (defun shell-command-to-list (str) (split-string (shell-command-to-string str)))

 ;;; prepend $el/lib/pre (plus subdirs) to load-path
 (mapc (lambda (i) (add-to-list 'load-path i))
       (remove-if
        (lambda (f) (not (file-accessible-directory-p f)))
        (shell-command-to-list "find ~/elisp/lib/pre -type d -o -type l")))

 ;;; append $el/lib/app (plus subdirs) to load-path
 (mapc (lambda (i) (add-to-list 'load-path i t))  ;note the 't', for appending
       (remove-if
        (lambda (f) (not (file-accessible-directory-p f)))
        (shell-command-to-list "find ~/elisp/lib/app -type d -o -type l")))

Hope this helps.

Sebastian