From 4d9e3b11f7456a3ae31fdd1ba3cbce023c0149f6 Mon Sep 17 00:00:00 2001 From: hanwen Date: Sun, 24 Oct 2004 17:01:36 +0000 Subject: [PATCH] (convert-to-dvi): redirect output to /dev/null for non-verbose. --- scm/framework-tex.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm index 6fc83dcfc4..93c5fedbc3 100644 --- a/scm/framework-tex.scm +++ b/scm/framework-tex.scm @@ -275,6 +275,7 @@ (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 " @@ -283,7 +284,7 @@ " -t landscape " " ") " -u+ec-mftrace.map -u+lilypond.map -Ppdf " - (basename name ".tex") + base (if (ly:get-option 'verbose) " " @@ -296,7 +297,7 @@ (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))) @@ -307,6 +308,7 @@ #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) @@ -320,7 +322,7 @@ (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) -- 2.39.5