;;;;
;;;; 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-texstr)
#:export (output-framework-tex
(use-modules (ice-9 regex)
(scm paper-system)
(ice-9 string-fun)
- (ice-9 format)
(guile)
(srfi srfi-1)
(srfi srfi-13)
(lily))
+(define format ergonomic-simple-format)
+
(define (header filename)
(format "% header
\\input{lilypond-tex-metrics}
")
(define-public (output-classic-framework basename book scopes fields)
- (let* ((filename (format "~a.texstr" basename))
+ (let* ((filename (format #f "~a.texstr" basename))
(outputter (ly:make-paper-outputter
(open-file filename "wb")
- (ly:output-backend)))
+ (ly:get-option 'backend)))
(paper (ly:paper-book-paper book))
(lines (ly:paper-book-systems book)))
(ly:outputter-dump-string outputter (header basename))
(ly:outputter-dump-string outputter (footer))))
(define-public (output-framework basename book scopes fields )
- (let* ((filename (format "~a.texstr" basename))
+ (let* ((filename (format #f "~a.texstr" basename))
(outputter
(ly:make-paper-outputter
(open-file filename "wb")
- (ly:output-backend)))
+ (ly:get-option 'backend)))
(paper (ly:paper-book-paper book))
(pages (ly:paper-book-pages book)))
(ly:outputter-dump-string outputter (header basename))