Text Spanner auto expand to end of duration

[Dimitris Marinakis]

Can this be adapted to work with Text Spanners? Does anyone have any
similar workarounds?
I just need to automatically extend TextSpanners to the end of the duration
without too many manual guesstimations.

 #(define (encompass-duration grob)
   (let* ((rb (ly:spanner-bound grob RIGHT))
          (sys (ly:grob-system grob))
          (cols (ly:grob-array->list (ly:grob-object sys 'columns)))
          (me-forward (memq rb cols)))
     (if (and me-forward (> (length me-forward) 1))
         (ly:spanner-set-bound! grob RIGHT (cadr me-forward)))
     (ly:piano-pedal-bracket::print grob)))

{
  \override Staff.PianoPedalBracket.stencil = #encompass-duration
 % \override Staff.PianoPedalBracket.shorten-pair = #'(0 . 0.5)
  \set Staff.pedalSustainStyle = #'bracket
  c'4\sustainOn c' c' c'\sustainOff
  c'4 c'\sustainOn c'\sustainOff c'
  c'4\sustainOn c' c' c'
  \break
  c'4\sustainOff c' c' c'
}