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
  14 (map (lambda (x) (module-define! this-module x dummy))
  15      (ly:all-stencil-expressions))
  16
  17 (define-public (grob-cause . x) "")
  18 (define-public (no-origin . x) "")
  19 (define-public (placebox
  20                 x y what)
  21   (if (string? what)
  22       what
  23       ""))
  24
  25 (define-public (text font s)
  26   (call-with-output-string
  27    (lambda (port)
  28      (write (list
  29              (ly:font-file-name font)
  30              (ly:font-magnification font)
  31              s) port)
  32      (newline port))))