[fomus-devel] intermediate files

[David Psenicka]

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 at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/fomus-devel
>