From b7f005cbf2757c8c1d3383a0ccc935cf5e3c2e38 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 12 Jun 2005 14:11:19 +0000 Subject: [PATCH] * scm/ps-to-png.scm (make-ps-images): fix rename-page-1 functionality. * scm/backend-library.scm (postscript->png): set rename-page-1 to true. --- ChangeLog | 9 +++++++++ scm/backend-library.scm | 6 +++--- scm/ps-to-png.scm | 2 +- 3 files changed, 13 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index a8950a084f..7800f284b8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2005-06-12 Han-Wen Nienhuys + + * scm/ps-to-png.scm (make-ps-images): fix rename-page-1 functionality. + + * scm/backend-library.scm (postscript->png): set rename-page-1 to + true. + 2005-06-11 Graham Percival * Documentation/user/lilypond-book.itely: add warning about @@ -5,6 +12,8 @@ 2005-06-11 Han-Wen Nienhuys + * THANKS: typo + * mf/GNUmakefile ($(outdir)/$(redhat-package)): Fedora-4 url. * GNUmakefile.in: remove links for .map, .enc diff --git a/scm/backend-library.scm b/scm/backend-library.scm index 8a9de3b665..25b2ae9e7b 100644 --- a/scm/backend-library.scm +++ b/scm/backend-library.scm @@ -93,10 +93,10 @@ ;;(ly:message (_ "Converting to `~a'...") ;; (string-append (basename name ".ps") "-page1.png" ))) (let ((paper-size (sanitize-command-option paper-size-name)) - (verbose? (ly:get-option 'verbose)) - (rename-page-1? #f)) + (verbose (ly:get-option 'verbose)) + (rename-page-1 #t)) (ly:message (_ "Converting to ~a...") "PNG") - (make-ps-images name resolution paper-size rename-page-1? verbose?) + (make-ps-images name resolution paper-size rename-page-1 verbose) (ly:progress "\n"))) (define-public (postprocess-output paper-book module filename formats) diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm index b18176de68..5df74ca516 100644 --- a/scm/ps-to-png.scm +++ b/scm/ps-to-png.scm @@ -147,5 +147,5 @@ (format #f (_ "~a exited with status: ~S") "GS" status)) (exit 1))) (if (and rename-page-1? multi-page?) - (rename (re-sub "%d" "1" pngn) png1)) + (rename-file (re-sub "%d" "1" pngn) png1)) (append (dir-re "." png1) (dir-re "." pngn-re))))) -- 2.39.2