From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 22 Oct 2004 22:38:03 +0000 (+0000)
Subject: (convert-to-ps): add -E if filename
X-Git-Tag: release/2.3.23~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=961ea00b513b96bc7a55dea7e98cf5cbd2e135af;p=lilypond.git

(convert-to-ps): add -E if filename
contains .preview.
---

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 6204512aa0..24cffa36f8 100644
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -275,10 +275,16 @@
 
 (define-public (convert-to-ps book name)
   (let* ((paper (ly:paper-book-paper book))
+	 (preview? (string-contains name ".preview"))
 	 (papersizename (ly:output-def-lookup paper 'papersizename))
 	 (landscape? (eq? #t (ly:output-def-lookup paper 'landscape)))
-	 (cmd (string-append "dvips -t " papersizename
-			     (if landscape? " -t landscape " " ") 
+	 (cmd (string-append "dvips "
+			     
+			     (if preview?
+				 " -E "
+				 (string-append " -t " papersizename))
+
+			     (if landscape? " -t landscape " " ")
 			     "  -u+ec-mftrace.map -u+lilypond.map -Ppdf "
 			     (basename name ".tex"))))