;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
(define-module (scm framework-tex)
#:export (output-framework-tex
(define-public (output-framework basename book scopes fields)
(let* ((filename (format "~a.tex" basename))
- (outputter (ly:make-paper-outputter (open-file filename "wb") "tex"))
+ (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)))
(last-page (car (last-pair pages)))
basename book scopes fields)
(let* ((filename (format "~a.tex" basename))
(outputter (ly:make-paper-outputter
- (open-file filename "w") "tex"))
+ (open-file filename "w") 'tex))
(paper (ly:paper-book-paper book))
(lines (ly:paper-book-systems book))
(last-line (car (last-pair lines))))
basename book scopes fields)
(let* ((filename (format "~a.tex" basename))
(outputter (ly:make-paper-outputter (open-file filename "wb")
- "tex"))
+ 'tex))
(paper (ly:paper-book-paper book))
(lines (ly:paper-book-systems book))
(first-notes-index (list-index