(convert-to-ps): add -E if filename

contains .preview.

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 6204512aa059ab46b9a93f55fbd6bd829157f45c..24cffa36f804922fe268743087b087c0b9be6d44 100644 (file)
--- 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"))))