sandbox.ly

   1 \version "2.13.33"
   2 #(define ten
   3   (define-music-function (parser location music) (ly:music?)
   4    (if
   5      (equal? (ly:music-property music 'name) 'EventChord)
   6      (set! (ly:music-property music 'elements)
   7            (append (ly:music-property music 'elements)
   8                   (list (make-music 'TextScriptEvent 'text
   9                     (markup #:translate-scaled (cons 4 0)
  10                     #:italic "(ten.)"))))))
  11                  music))
  12
  13 { \ten c1 }