Re: conditionally eliminating lyric extender

[Alexander Kobel]

On 2012-06-12 09:40, Alexander Kobel wrote:

s/twice/thrice/ below. Anybody knows of issues with gnu.lists.org? (I 
can't remember to have changed anything affecting this mail address or 
the mailing list in the past few years...)

> On 2012-06-11 17:49, Alexander Kobel wrote:
> <this very same message>
> Looks like this message has not made it to the list; not sure if the problem 
> was on my or on the gnu.org side. I apologize in advance if it appears twice 
> now.

================================

Hi all,

digging out a very old thread: 
<http://lists.gnu.org/archive/html/lilypond-user/2009-08/msg00136.html>

It was about conditionally killing lyric extenders if they are in the 
source, but the engraving turns out too tight for them to be necessary. 
Several months ago, I wrote the following function for exactly this. I 
forgot about it and today hoped that Google helps me find it; turned out 
that I had to grep locally instead since I never posted it to the 
public. Ashamed of that, but here comes the code:

#(define (conditional-kill-lyric-extender-callback . args)
  (lambda (grob)
   (let* ((minimum-length
           (if (null? args)
            (ly:grob-property grob 'minimum-length 0)
            (car args)))
          (X-extent (ly:stencil-extent (ly:grob-property grob 'stencil 
empty-stencil) X))
          (length (- (cdr X-extent) (car X-extent))))
    (if (> minimum-length length)
     (ly:grob-suicide! grob)))))

\layout {
  \context {
    \Lyrics
    \override LyricExtender #'minimum-length = #0
    \override LyricExtender #'after-line-breaking = 
#(conditional-kill-lyric-extender-callback 1)
    %% change "1" (in staff-spaces) to whatever you feel is a suitable 
minimum length for extenders
  }
}


Best,
Alexander