2 (define-module (scm framework-scm)
3 #:export (output-framework)
6 (use-modules (ice-9 regex)
15 (define-public (output-framework outputter book scopes fields basename)
16 (ly:outputter-dump-string outputter ";; raw SCM output\n")
20 (ly:outputter-dump-string
21 outputter ";;;;;;;;;;;;;;;;;;;;;;;;;;\n;;;PAGE\n")
22 (ly:outputter-dump-string
24 (call-with-output-string
26 (pretty-print (ly:stencil-expr page) port)))))
27 (ly:paper-book-pages book)))
30 (define-public (convert-to-ps . args) #t)
31 (define-public (convert-to-pdf . args) #t)
32 (define-public (convert-to-png . args) #t)
33 (define-public (convert-to-dvi . args) #t)
34 (define-public (convert-to-tex . args) #t)