Re: scheme function help

[David Kastrup]

Madoka Machitani <address@hidden> writes:

> Now, is it correct to assume you are trying to achieve something like
> this?  \insMark "a" musical-sequence
>
> If so, the function would be:
>
> insMark =
> #(define-music-function (parser location mark mus)
>    (markup? ly:music?)
>    (set! (ly:music-property mus 'elements)
>          (cons (make-music 'MarkEvent 'label mark)
>                (ly:music-property mus 'elements)))
>    mus)
>
> This is a crude example and won't work with single note events like c'4

Why wouldn't you do

insMark =
#(define-music-function (parser location mark mus)
   (markup? ly:music?)
   #{ \mark #mark #mus #})

instead?  Note that depending on the version, #mark and/or #mus might
need to be $mark or $mus instead.

-- 
David Kastrup