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              (scm page)
  14              (lily))
  15
  16 (define-public (output-framework basename book scopes fields )
  17   (let*
  18       ((file (open-output-file (format "~a.scm" basename))))
  19
  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)