scm/output-texstr.scm

   1
   2 (define-module (scm output-texstr))
   3 (define this-module (current-module))
   4
   5 (use-modules
   6  (guile)
   7  (ice-9 regex)
   8  (srfi srfi-13)
   9  (lily))
  10
  11
  12 (define (dummy . foo) #f)
  13 (map (lambda (x) (module-define! this-module x dummy))
  14      (append
  15       (ly:all-stencil-expressions)
  16       (ly:all-output-backend-commands)))
  17
  18
  19 (define-public (text font s)
  20   (call-with-output-string
  21    (lambda (port)
  22      (write (list
  23              "HOI"
  24              (ly:font-file-name font)
  25              (ly:font-magnification font)
  26              s
  27              ) port))))
  28