;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 2004--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
(define-module (scm framework-texstr)
#:export (output-framework-tex
\\end{document}
")
-
(define-public (output-classic-framework basename book scopes fields)
(let* ((filename (format "~a.texstr" basename))
- (outputter (ly:make-paper-outputter filename
- (ly:output-backend)))
+ (outputter (ly:make-paper-outputter filename (ly:output-backend)))
(paper (ly:paper-book-paper book))
- (lines (ly:paper-book-systems book))
- )
+ (lines (ly:paper-book-systems book)))
(ly:outputter-dump-string outputter (header basename))
(for-each
(lambda (system)
(define-public (output-framework basename book scopes fields )
(let* ((filename (format "~a.texstr" basename))
- (outputter (ly:make-paper-outputter filename
- (ly:output-backend)))
+ (outputter (ly:make-paper-outputter filename (ly:output-backend)))
(paper (ly:paper-book-paper book))
- (pages (ly:paper-book-pages book))
- )
+ (pages (ly:paper-book-pages book)))
(ly:outputter-dump-string outputter (header basename))
(for-each
(lambda (page)