scm/framework-socket.scm

   1 ;;;; framework-socket.scm
   2
   3 (define-module (scm framework-socket)
   4   #:export (output-framework)
   5   )
   6
   7 (use-modules (ice-9 regex)
   8              (ice-9 string-fun)
   9              (scm paper-system)
  10              (ice-9 format)
  11              (guile)
  12              (srfi srfi-1)
  13              (ice-9 pretty-print)
  14              (srfi srfi-13)
  15              (lily))
  16
  17 (define-public (output-framework channel book scopes fields )
  18   (let*
  19       ((ctor-arg (if (string? channel)
  20                      (open-output-file (format "~a.socket" channel))
  21                      channel))
  22        (outputter (ly:make-paper-outputter
  23                    ctor-arg
  24                    'socket))
  25        (systems (ly:paper-book-systems book)))
  26
  27     (if (pair? systems)
  28         (ly:outputter-dump-stencil outputter
  29                                    (paper-system-stencil (car systems))))
  30     ))
  31
  32 (define-public output-classic-framework output-framework)
  33
  34
  35 (define-public (convert-to-ps . args) #t)
  36 (define-public (convert-to-pdf . args) #t)
  37 (define-public (convert-to-png . args) #t)