(variable-set! var value)
var))
-(defmacro-public define-session (name value)
+(defmacro define-session (name value)
"This defines a variable @var{name} with the starting value
@var{value} that is reinitialized at the start of each session.
A@tie{}session basically corresponds to one LilyPond file on the
(cons (make-session-variable name value) lilypond-declarations)))
`(,add-session-variable ',name ,value))
-(defmacro-public define-session-public (name value)
+(defmacro define-session-public (name value)
"Like @code{define-session}, but also exports @var{name} into parser modules."
(define (add-session-variable name value)
(set! lilypond-exports
#f
"Pad left edge of the output EPS bounding box by
given amount (in mm).")
+ (font-export-dir
+ #f
+ "Directory for exporting fonts as PostScript files.")
(gs-load-fonts
#f
"Load fonts via Ghostscript.")
(gs-load-lily-fonts
#f
"Load only LilyPond fonts via Ghostscript.")
+ (gs-never-embed-fonts
+ #f
+ "Make Ghostscript embed only TrueType fonts and no other font format.")
(gui
#f
"Run LilyPond from a GUI and redirect stderr to
(remove string-null?
(append-map
(lambda (f)
- (string-split (string-delete (ly:gulp-file f) #\cr) #\nl))
+ (string-split
+ (if (guile-v2)
+ (string-delete #\cr (ly:gulp-file f))
+ (string-delete (ly:gulp-file f) #\cr))
+ #\nl))
files))))
(if (and (number? (ly:get-option 'job-count))
(>= (length files) (ly:get-option 'job-count)))