19 lines
890 B
Plaintext
19 lines
890 B
Plaintext
% songfilename auch im Markup verfügbar machen
|
|
#(define-markup-list-command (setsongfilename layout props songfilename markuplist)
|
|
(string? markup-list?)
|
|
(interpret-markup-list layout (prepend-alist-chain 'songfilename songfilename props) markuplist))
|
|
|
|
#(define-markup-command (customEps layout props ysize filename)(number? string?)
|
|
#:properties ((songfilename ""))
|
|
(interpret-markup layout props
|
|
(let ((defaulttitlemarkup (ly:output-def-lookup layout 'defaultTitleMarkup))
|
|
(filepath (if (string-null? songfilename)
|
|
filename
|
|
(ly:format "~a/~a/~a" songPath songfilename filename))))
|
|
(if (file-exists? filepath)
|
|
(make-epsfile-markup Y ysize filepath)
|
|
(if defaulttitlemarkup
|
|
defaulttitlemarkup
|
|
(ly:format "file does not exist ~a" filepath))
|
|
))))
|