(preview? (string-contains name ".preview"))
(papersizename (ly:output-def-lookup paper 'papersizename))
(landscape? (eq? #t (ly:output-def-lookup paper 'landscape)))
+ (base (basename name ".tex"))
(cmd (string-append "dvips "
(if preview?
" -E "
" -t landscape "
" ")
" -u+ec-mftrace.map -u+lilypond.map -Ppdf "
- (basename name ".tex")
+ base
(if (ly:get-option 'verbose)
" "
(display (format #f (_ "Invoking ~S") cmd) (current-error-port))
(newline (current-error-port)))
- (display "Converting to PS" (current-error-port))
+ (display (format #f "Converting to `~a.ps'...\n" base) (current-error-port))
)
(system cmd)))
#f " *%.*\n?"
(ly:kpathsea-expand-variable "$extra_mem_top")
'pre "" 'post)))
+ (base (basename name ".tex"))
(cmd (string-append
"latex \\\\nonstopmode \\\\input " name
(if (ly:get-option 'verbose)
(newline (current-error-port))
(display (format #f (_ "Invoking ~S") cmd) (current-error-port))
(newline (current-error-port)))
- (display "Converting to PDF" (current-error-port)))
+ (format (current-error-port) "Converting to `~a.dvi'...\n" base))
;; fixme: set in environment?
(if (ly:get-option 'safe)