Hello list,

How do you folks deal with several LilyPond versions under Emacs?

In my .emacs is defined the following command, but maybe someone as
something better (more general) that she can share. (Warning, many
pathes defined "en dur"):

(defun LilyPond-set-environment (version)
  (interactive "sVersion: ")
  (let ((LilyPond-prefix (format "/home/nicolas/usr/pkg/lilypond/%s" version)))
    (setenv "GS_FONTPATH" (format 
"%s/share/lilypond/%s/pfa:/usr/share/texmf/fonts/type1/public/ec-fonts-mftraced:" 
LilyPond-prefix version))
    (setenv "GS_LIB" (format "%s/share/lilypond/%s/ps:" LilyPond-prefix version))
    (setenv "PATH" (format "%s/bin:%s" LilyPond-prefix (getenv "PATH")))
    (setenv "TEXMF" (format 
"{%s/share/lilypond/%s,!!/home/nicolas/texmf,!!/usr/local/share/texmf,!!/usr/local/lib/texmf,!!/usr/share/texmf}"
                            LilyPond-prefix version))
    (setenv "datadir" (format "%s/share/lilypond/%s" LilyPond-prefix version))
    (setenv "tmppfadir" 
"/usr/share/texmf/fonts/type1/public/ec-fonts-mftraced/ecrm10.pfa")
    (setcdr (assoc "LilyPond" LilyPond-command-alist) (list (format 
"%s/bin/lilypond-bin %%s" LilyPond-prefix) "%s" "%l" "LaTeX"))
    (setcdr (assoc "2Dvi" LilyPond-command-alist) (list (format "%s/bin/lilypond %%s" 
LilyPond-prefix) "%s" "%d" "View"))
    (setcdr (assoc "2PS" LilyPond-command-alist) (list (format "%s/bin/lilypond -P 
%%s" LilyPond-prefix) "%s" "%p" "ViewPS"))
    (setcdr (assoc "2Midi" LilyPond-command-alist) (list (format "%s/bin/lilypond -m 
%%s" LilyPond-prefix) "%s" "%m" "Midi"))
    (setcdr (assoc "Book" LilyPond-command-alist) (list (format "%s/bin/lilypond-book 
%%x" LilyPond-prefix) "%x" "%l" "LaTeX"))))

(eval-after-load "lilypond-mode"
  '(progn
     (setq LilyPond-version "2.3.13")
     (LilyPond-set-environment LilyPond-version)))

nicolas



_______________________________________________
lilypond-devel mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/lilypond-devel

Reply via email to