Run `make grand-replace'.

[lilypond.git] / scm / framework-tex.scm

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 1cf3a08e08502c9df1c3b1a4105969f578375a54..5a602e4e489ec4f2d914b5ba5282f4f01d1e7f90 100644 (file)
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;; source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 2004--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 (define-module (scm framework-tex)
   #:export (output-framework-tex       
@@ -19,6 +19,8 @@
             (scm kpathsea)
             (lily))
 
+(define format ergonomic-simple-format)
+
 (define (output-formats)
   (define formats (ly:output-formats))
   (set! formats (completize-formats formats))
@@ -67,7 +69,7 @@
 (define-public (tex-font-command-raw name magnification)
   (string-append
    "magfont"
-   (digits->letters (format #f "~a" name))
+   (digits->letters (format "~a" name))
    "m"
    (string-encode-integer
     (inexact->exact (round (* 1000 magnification))))))
@@ -82,7 +84,7 @@
      (apply string-append
            (map
             (lambda (sub-name)
-              (format #f "\\font\\~a=~a scaled ~a%\n"
+              (format "\\font\\~a=~a scaled ~a%\n"
                       (tex-font-command-raw
                        sub-name (ly:font-magnification font))
                       sub-name
@@ -173,7 +175,7 @@
 (define (dump-page putter page last? with-extents?)
   (ly:outputter-dump-string
    putter
-   (format #f "\\lybox{~a}{~a}{%\n"
+   (format "\\lybox{~a}{~a}{%\n"
           (if with-extents?
               (interval-start (ly:stencil-extent page X))
               0.0)
@@ -188,7 +190,7 @@
        "}%\n\\vfill\n\\lilypondpagebreak\n")))
 
 (define-public (output-framework basename book scopes fields)
-  (let* ((filename (format #f "~a.tex" basename))
+  (let* ((filename (format "~a.tex" basename))
         (outputter  (ly:make-paper-outputter (open-file filename "wb") 'tex))
         (paper (ly:paper-book-paper book))
         (page-stencils (map page-stencil (ly:paper-book-pages book)))
@@ -215,7 +217,7 @@
 (define (dump-line putter line last?)
   (ly:outputter-dump-string
    putter
-   (format #f "\\lybox{~a}{~a}{%\n"
+   (format "\\lybox{~a}{~a}{%\n"
           (ly:number->string
            (max 0 (interval-end (paper-system-extent line X))))
           (ly:number->string
@@ -230,7 +232,7 @@
 
 (define-public (output-classic-framework
                basename book scopes fields)
-  (let* ((filename (format #f "~a.tex" basename))
+  (let* ((filename (format "~a.tex" basename))
         (outputter  (ly:make-paper-outputter
                      (open-file filename "w") 'tex))
         (paper (ly:paper-book-paper book))
@@ -257,7 +259,7 @@
 
 (define-public (output-preview-framework
                basename book scopes fields)
-  (let* ((filename (format #f "~a.tex" basename))
+  (let* ((filename (format "~a.tex" basename))
         (outputter  (ly:make-paper-outputter (open-file filename "wb")
                                              'tex))
         (paper (ly:paper-book-paper book))
@@ -294,7 +296,7 @@
         (output-scale (ly:output-def-lookup defs 'output-scale)))
     (postscript->pdf (* paper-width output-scale (/ (ly:bp 1)))
                     (* paper-height output-scale (/ (ly:bp 1)))
-                    (string-append (basename name ".tex") ".ps"))))
+                    (string-append (dir-basename name ".tex") ".ps"))))
 
 (define-public (convert-to-png book name)
   (let* ((defs (ly:paper-book-paper book))
@@ -310,15 +312,15 @@
      (* paper-width output-scale (/ (ly:bp 1)))
      (* paper-height output-scale (/ (ly:bp 1)))
 
-     (string-append (basename name ".tex") ".ps"))))
+     (string-append (dir-basename name ".tex") ".ps"))))
 
 (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)))
-        (base (basename name ".tex"))
-        (ps-name (format #f "~a.ps"  base ".ps"))
+        (base (dir-basename name ".tex"))
+        (ps-name (format "~a.ps"  base ".ps"))
         (cmd (string-append "dvips"
                             (if preview?
                                 " -E"
@@ -350,7 +352,7 @@
            #f " *%.*\n?"
            (ly:kpathsea-expand-variable "extra_mem_top")
            'pre "" 'post)))
-        (base (basename name ".tex"))
+        (base (dir-basename name ".tex"))
         (cmd (format
               #f "latex \\\\nonstopmode \\\\input '~a'" name)))