Re: customize versus own expressions in .emacs

[Pascal Bourguignon <spam@mouse-potato.com>]

Tim X <timx@spamto.devnul.com> writes:

> dave@adboyd.com (J. David Boyd) writes:
> 
> 
> > Tim X <timx@spamto.devnul.com> writes:
> >
> >>
> >> What I found works well for me is to put a bit of elisp at the
> >> beginning of my .emacs file which tells emacs to look in my own
> >> .emacs.d directory and load the files in that directory. 
> >
> > And you aren't going to share this piece of code?  We have to work it out for
> > ourselves? :->
> >
> 
> Hey, half the fun of emacs is working that sort of stuff out
> yourself! However, if someone really does want my bit of unworthy
> code, I'll provide it.

Let's compare:

(let ((show-messages nil)) ;;should we show *Messages*
  (mapcar
   (lambda (path)
     (unless (and pjb:+light-emacs+
                  (member path
                          '("pjb-banks-old"
                            "pjb-banks"
                            "pjb-bourse"
                            "pjb-cl-faces"
                            "pjb-computer-paper"
                            "pjb-constants"
                            "pjb-cvs"
                            "pjb-cvspass"
                            "pjb-dot"
                            "pjb-graph"
                            "pjb-i2p-expression"
                            "pjb-invoices"
                            "pjb-layers"
                            "pjb-make-depends"
                            "pjb-roman"
                            "pjb-s2p-expression"
                            "pjb-secouer"
                            "pjb-selftrade"
                            "pjb-server"
                            "pjb-transpose"
                            "pjb-vm-kill-file"
                            "pjb-worldfact")))
       (condition-case cc
           (progn
             (load path  pjb:*load-noerror* nil) ;;pjb:*load-silent*)
            )
         ('error
          (setq show-messages t)
          (message (format "ERROR: %S" cc ))))))
   (append
    ;; all the files
    (if (file-directory-p
         (concatenate 'string (USER-HOMEDIR-PATHNAME) "/src/public/emacs"))
      (mapcar (FUNCTION PATHNAME-NAME)
              (DIRECTORY (concatenate 'string (USER-HOMEDIR-PATHNAME)
                                      "/src/public/emacs/pjb-*.el")))
      (mapcar
       (FUNCTION PATHNAME-NAME)
       (DIRECTORY
        "/usr/local/share/lisp/packages/com/informatimago/emacs/pjb-*.el")))
    (list ;; some additional dynamic data:
     "~/.emacs-devises" )))
  (when show-messages
    (switch-to-buffer "*Messages*")
    (split-window-vertically)) )


(It's all very personnal...)

-- 
__Pascal Bourguignon__                     http://www.informatimago.com/
Grace personified,
I leap into the window.
I meant to do that.