How to glue markup with parameter passed note in define-music-function environment?

[Paweł Różański]

Hello,

I'm trying to define music function, a note with baroque descriptions.
So it boils down to achieving (simplified example):

 c'_\markup{s}

via:

fun = #(define-music-function
               (parser location note)
               (ly:music?)
 #{
 $note \mark \markup{ s }
#})

{
 \fun c'
}

-----------

\mark enters another object (I think) and s is misplaced. The question
is,  how to achieve

 $note_\markup{ s }

in define-music-function definition.. because $note_ can't be parsed correctly.

Thanks,
-- 
Paweł Różański