scm/framework-gnome.scm

   1 ;;;; framework-gnome.scm --
   2 ;;;;
   3 ;;;;  source file of the GNU LilyPond music typesetter
   4 ;;;;
   5 ;;;; (c)  2004 Jan Nieuwenhuizen <janneke@gnu.org>
   6
   7 (define-module (scm framework-gnome))
   8
   9 (use-modules
  10  (guile)
  11  (lily))
  12
  13 ;; dump?
  14 (define (dump-page outputter page page-number page-count)
  15   (ly:outputter-dump-stencil outputter (ly:page-stencil page)))
  16
  17 (define-public (output-framework-gnome outputter book scopes fields basename)
  18   (let* ((bookpaper (ly:paper-book-book-paper book))
  19          (pages (ly:paper-book-pages book))
  20          (page-number 0)
  21          (page-count (length pages)))
  22
  23     ;;(header)
  24     ;; FIXME: should output command, not stencil?
  25     ;;(ly:outputter-dump-string outputter '(header))
  26     ;; hmm, probably need (ly:outputter-command but its too late for that
  27     ;; kind of elegancy now :-)
  28     (ly:outputter-dump-stencil outputter (ly:make-stencil '(header)
  29                                                           '(0 . 0) '(0 . 0)))
  30
  31     (for-each
  32      (lambda (page)
  33        (set! page-number (1+ page-number))
  34        (dump-page outputter page page-number page-count))
  35      pages)
  36
  37     (ly:outputter-dump-stencil outputter (ly:make-stencil '(end-output)
  38                                                           '(0 . 0) '(0 . 0)))))