;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2004--2006 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 2004--2008 Jan Nieuwenhuizen <janneke@gnu.org>
(define-module (scm framework-svg))
(srfi srfi-13)
(ice-9 regex))
+(define format ergonomic-simple-format)
+
(define-public (output-framework basename book scopes fields)
(let* ((filename (format "~a.svg" basename))
(outputter (ly:make-paper-outputter (open-file filename "wb")
'(version . "1.2")
;; Argggghhhh: SVG takes the px <-> mm mapping from the windowing system
- `(width . ,(format #f "~s" page-width))
- `(height . ,(format #f "~s" page-height))))
+ `(width . ,(format "~s" page-width))
+ `(height . ,(format "~s" page-height))))
(dump (dump-fonts outputter paper))
(dump
(define (dump-page outputter page page-number page-count landscape? page-set?)
(define (dump str) (display str (ly:outputter-port outputter)))
- (dump (comment (format #f "Page: ~S/~S" page-number page-count)))
+ (dump (comment (format "Page: ~S/~S" page-number page-count)))
(if (or landscape? page-set?)
(dump
(if landscape?