(postscript->pdf): Invoke gs instead of

going through ps2pdf wrappers.

diff --git a/ChangeLog b/ChangeLog
index 6f5e58f0f1edf962883fc18b6106ca51b6f8860f..abb2e764ecf7b9b9a3ce5125ac978ffdc536f3e1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-05-10  Jan Nieuwenhuizen  <janneke@gnu.org>
+
+       * scm/backend-library.scm (postscript->pdf): Invoke gs instead of
+       going through ps2pdf wrappers.
+
 2005-05-09  Jürgen Reuter  <reuter@ipd.uka.de>
 
        * Documentation/user/instrument-notation.itely: petrucci note

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index a008fd28dd57816b38cfe68133eaf627a1a68cc4..ceac0725e45feb7ad2d06ab4075dcabd3b8fdc27 100644 (file)
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -32,9 +32,23 @@
    "\""))
 
 (define-public (postscript->pdf papersizename name)
-  (let* ((cmd (format #f "ps2pdf -sPAPERSIZE=~a '~a'"
-                     (sanitize-command-option papersizename) name))
-        (pdf-name (string-append (basename name ".ps") ".pdf" )))
+  (let* ((pdf-name (string-append (basename name ".ps") ".pdf" ))
+        (cmd (format #f
+                     "gs\
+ -dCompatibilityLevel=1.2\
+ -dSAFER\
+ -sPAPERSIZE=~a\
+ -q\
+ -dNOPAUSE\
+ -dBATCH\
+ -sDEVICE=pdfwrite\
+ -sOutputFile='~a'\
+ -c .setpdfwrite\
+ -f'~a'\
+"
+                     (sanitize-command-option papersizename)
+                     pdf-name
+                     name)))
 
     (if (access? pdf-name W_OK)
        (delete-file pdf-name))