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              (ice-9 format)
   9              (guile)
  10              (srfi srfi-1)
  11              (ice-9 pretty-print)
  12              (srfi srfi-13)
  13              (lily))
  14
  15 (define-public (output-framework outputter book scopes fields basename)
  16   (ly:outputter-dump-string outputter ";; raw SCM output\n")
  17
  18   (for-each
  19    (lambda (page)
  20      (ly:outputter-dump-string
  21       outputter ";;;;;;;;;;;;;;;;;;;;;;;;;;\n;;;PAGE\n")
  22      (ly:outputter-dump-string
  23       outputter
  24       (call-with-output-string
  25        (lambda (port)
  26          (pretty-print (ly:stencil-expr page) port)))))
  27    (ly:paper-book-pages book)))
  28
  29
  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)