#(define (extend text . padding)
   (let ((extender (make-music 'ExtenderEvent))
         ;; optional padding
         (padding (if (pair? padding)
                      (car padding)
                      0)))

     (set! (ly:music-property extender 'tweaks)
           (acons 'stencil (lambda (grob)
                             (ly:stencil-combine-at-edge
                              (ly:lyric-extender::print grob)
                              X RIGHT
                              (grob-interpret-markup grob text)
                              padding))
                  (ly:music-property extender 'tweaks)))

     extender))

%Define custom extenders, first with extra padding
extendComma = #(extend "," 0.2)
extendExclaim = #(extend "!")

\paper { ragged-right = ##t }
\score {  
  <<
    \new Staff \new Voice = melody \relative c' {
      c4( d e f \break
      g4 f e2)
    }
    \new Lyrics \lyricsto melody {
      Aah \extendComma
      Ooh \extendExclaim
    }
  >>
  \layout {
    \context {
      \Lyrics
      \consists "Tweak_engraver"
    }
  }
}