lilypond-common-includes/eps_file_from_song_dir.ly

19 lines
840 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 "")
(defaultmarkup #f))
(interpret-markup layout props
(let ((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 defaultmarkup
defaultmarkup
(ly:format "file does not exist ~a" filepath))
))))