From: hanwen <hanwen>
Date: Fri, 22 Oct 2004 22:38:03 +0000 (+0000)
Subject: (convert-to-ps): add -E if filename
X-Git-Tag: release/2.3.24^2~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=64c69c8df7f92c4062f0762353626d257010773f;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"))))