;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 2004--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
(define-module (scm framework-tex)
#:export (output-framework-tex
(if (member "dvi" formats)
(set! formats (cons "tex" formats)))
- formats)
+ (uniq-list formats))
(define framework-tex-module (current-module))
(define-public (sanitize-tex-string s)
(delete-file ps-name)))
(if (not (ly:get-option 'verbose))
(begin
- (format (current-error-port) (_ "Converting to `~a.ps'...") base)
+ (format (current-error-port) (_ "Converting to `~a'...")
+ (string-append base ".dvi"))
(newline (current-error-port))))
(ly:system cmd)))
(delete-file dvi-name)))
(if (not (ly:get-option 'verbose))
(begin
- (format (current-error-port) (_ "Converting to `~a.dvi'...") base)
+ (format (current-error-port) (_ "Converting to `~a'...")
+ (string-append base ".dvi"))
(newline (current-error-port))))
;; fixme: set in environment?