From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 27 Mar 2005 17:39:08 +0000 (+0000)
Subject: (convert-to-ps): add -ofoo.ps to dvips
X-Git-Tag: release/2.5.17~33
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7a21260db9acfe84488bdcf96cc6d049faf61528;p=lilypond.git

(convert-to-ps): add -ofoo.ps to dvips
options.
---

diff --git a/ChangeLog b/ChangeLog
index 33ceb29764..fc6c24acd4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2005-03-27  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* scm/framework-tex.scm (convert-to-ps): add -ofoo.ps to dvips
+	options.
+
 	* lily/slur-scoring.cc (get_base_attachments): only look at stem
 	extent for visible stems.
 
diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 69bdf09afe..af6ea94548 100644
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -316,6 +316,7 @@
 	 (papersizename (ly:output-def-lookup paper 'papersizename))
 	 (landscape? (eq? #t (ly:output-def-lookup paper 'landscape)))
 	 (base (basename name ".tex"))
+	 (ps-name (format "~a.ps"  base ".ps"))
 	 (cmd (string-append "dvips "
 			     (if preview?
 				 "-E "
@@ -330,10 +331,10 @@
 			     (if (ly:kpathsea-find-file "ecrm10.pfa")
 				 "-u+ec-mftrace.map " "")
 			     "-u+lilypond.map -Ppdf " ""
+			     "-o" ps-name
 			     base)))
-    (let ((ps-name (string-append base ".ps")))
-      (if (access? ps-name W_OK)
-	  (delete-file ps-name)))
+    (if (access? ps-name W_OK)
+	(delete-file ps-name)))
     (if (not (ly:get-option 'verbose))
 	(begin
 	  (format (current-error-port) (_ "Converting to `~a'...")