2 (define-module (scm framework-scm)
3 #:export (output-framework)
6 (use-modules (ice-9 regex)
15 (define-public (output-framework basename book scopes fields )
17 ((file (open-output-file (format #f "~a.scm" basename))))
19 (display ";;Creator: LilyPond\n" file)
20 (display ";; raw SCM output\n" file)
25 ";;;;;;;;;;;;;;;;;;;;;;;;;;\n;;;PAGE\n" file)
26 ; (pretty-print (ly:stencil-expr page) file)
27 (write (ly:stencil-expr page) file)
29 (map page-stencil (ly:paper-book-pages book)))))
31 (define-public output-classic-framework output-framework)
34 (define-public (convert-to-ps . args) #t)
35 (define-public (convert-to-pdf . args) #t)
36 (define-public (convert-to-png . args) #t)