shorten a broken hairpin at a linebreak?

[harm6]

Hi,

how can I shorten the first part of a broken hairpin to avoid the printing
under a new KeySignature (or KeyCancellation, TimeSignature etc) at a
linebreak?

I tried (with no success):

\version "2.14.2"

\pointAndClickOff

\paper { ragged-right = ##f }

lengthHairpinBoth =
#(define-music-function (parser location min-length MIN-LENGTH)(number?
number?)
#{
  #(define (hairpinBoth-callBack grob)
  (let* (
         ; have we been split?
         (orig (ly:grob-original grob))

         ; if yes, get the split pieces (our siblings)
         (siblings (if (ly:grob? orig)
                     (ly:spanner-broken-into orig) '() )))

   (cond ((and (>= (length siblings) 2)(eq? (list-ref siblings 0) grob))
             (and(ly:grob-set-property! grob 'springs-and-rods
ly:spanner::set-spacing-rods)
                 (ly:grob-set-property! grob 'minimum-length $min-length))
                 )
             
         ((and (>= (length siblings) 2)
             (eq? (car (last-pair siblings)) grob))
             (and(ly:grob-set-property! grob 'springs-and-rods
ly:spanner::set-spacing-rods)
                 (ly:grob-set-property! grob 'minimum-length $MIN-LENGTH))
                 ))
             
   (ly:hairpin::print grob)))
     
     %\override Hairpin #'springs-and-rods = #ly:spanner::set-spacing-rods
     \override Hairpin #'stencil = #hairpinBoth-callBack
#})

\relative c' {
        \lengthHairpinBoth #5 #110
        \override Hairpin #'to-barline = ##t
        c'1\< \break
        \key cis\major
        d2  e\!
}

Thanks!
  Harm
-- 
View this message in context: 
http://old.nabble.com/shorten-a-broken-hairpin-at-a-linebreak--tp32343028p32343028.html
Sent from the Gnu - Lilypond - User mailing list archive at Nabble.com.