This update should fix a few things--the delete-temp-files is a nice idea--I changed the code a bit so it works with the user setting for target output file (actually, the default output is ps--pdf never seems to work well and Apple's previewer does much better at converting the ps to pdf).
Kilian Sprotte wrote:
Hi,
just as an idea, it could be nice to have an option like :delete- intermediate-files in the ly backend. I am not sure, whether lilypond allows for doing this directly, but it could be most simple anyway to do something like the appended diff.
Cheers and have a wonderful day,
Kilian Sprotte
PS: Are you using emacs to edit the code? I sometimes wonder, what a big screen you must have.... ;-)
And tiny little fonts...
--- orig/backend_ly.lisp +++ mod/backend_ly.lisp @@ -51,6 +51,10 @@ (append (or exe-opts +lilypond-opts+) (list filename)) :wait t #|:output *standard-output*|#) (progn (unless (probe-file (change-filename filename :ext (or out-ext +lilypond-out-ext+))) (er "compiling"))
(ignore-errors (delete-file (change-filename filename :ext
"dvi"))
(delete-file (change-filename filename :ext "log"))
(delete-file (change-filename filename :ext "ps"))
(delete-file (change-filename filename :ext "tex"))) (when view (unless (#+cmu extensions:run-program #+sbcl
sb-ext:run-program # +openmcl ccl:run-program (or view-exe +lilypond-view-exe+) (append (or view-exe-opts +lilypond-view-opts+) (list (change-filename filename :ext (or out-ext +lilypond-out-ext+))))
fomus-devel mailing list fomus-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/fomus-devel