]> git.donarmstrong.com Git - lilypond.git/blob - scm/framework-scm.scm
Formatting from Ralph.
[lilypond.git] / scm / framework-scm.scm
1
2 (define-module (scm framework-scm)
3   #:export (output-framework)
4   )
5
6 (use-modules (ice-9 regex)
7              (ice-9 string-fun)
8              (guile)
9              (srfi srfi-1)
10              (ice-9 pretty-print)
11              (srfi srfi-13)
12              (scm page)
13              (lily))
14
15 (define-public (output-framework basename book scopes fields )
16   (let*
17       ((file (open-output-file (format #f "~a.scm" basename))))
18     
19     (display ";;Creator: LilyPond\n" file)
20     (display ";; raw SCM output\n" file)
21
22   (for-each
23    (lambda (page)
24      (display
25        ";;;;;;;;;;;;;;;;;;;;;;;;;;\n;;;PAGE\n" file)
26 ;     (pretty-print (ly:stencil-expr page) file)
27      (write (ly:stencil-expr page) file)
28      )
29    (map page-stencil (ly:paper-book-pages book)))))
30
31 (define-public output-classic-framework output-framework)
32
33
34 (define-public (convert-to-ps . args) #t)
35 (define-public (convert-to-pdf . args) #t)
36 (define-public (convert-to-png . args) #t)
37 (define-public (convert-to-dvi . args) #t)
38 (define-public (convert-to-tex . args) #t)