Thank you Caio, I'm glad you like it.
Here are some minor corrections:
sustOn =
#(define-event-function (parser location)()
#{
\tweak bound-details.left.text \markup\concat { \musicglyph #"pedal.Ped" ". " }
%\tweak bound-details.left-broken.text \markup\concat { \musicglyph #"pedal.Ped" ". " }
%%% Optional:
\tweak bound-details.left-broken.text \markup\normal-text\concat { "(" \musicglyph #"pedal.Ped" ".) " }
\tweak style #'line
\tweak bound-details.left.stencil-align-dir-y #-1
\tweak bound-details.left.padding -2
\tweak bound-details.left-broken.attach-dir -1
\tweak bound-details.left-broken.padding 4
\tweak bound-details.right-broken.padding 0
\tweak bound-details.right.attach-dir -1
\tweak bound-details.right-broken.text ##f
\tweak bound-details.right.text \markup\draw-line #'(0 . 1)
\tweak padding #1
\tweak direction #-1
\startTextSpan
#})