lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: bug in lyric syllable magnetic snap


From: Thomas Morley
Subject: Re: bug in lyric syllable magnetic snap
Date: Tue, 28 May 2019 18:12:51 +0200

Am Di., 28. Mai 2019 um 15:48 Uhr schrieb Thomas Morley
<address@hidden>:

> I then switched to brute-force, i.e. always throw away all
> line-starting LyricHyphens
>
> Seems to work, see attached revised file.

Grrrr, it does not.

Please try to replace `remove-line-starting-hyphens´ with belowe:

(define (remove-line-starting-hyphens hyphens)
  (append-map
    (lambda (h)
      (let* ((orig
               (if (ly:spanner? h)
                   (ly:grob-original h)
                   #f))
             (siblings (if (ly:grob? orig)
                           (ly:spanner-broken-into orig)
                           '())))

        (if (pair? siblings)
            (remove
              (lambda (sib)
                 (write siblings)
                 (and (pair? siblings)
                      (grob::has-interface
                        (ly:spanner-bound sib LEFT)
                        'paper-column-interface)))
              siblings)
              (list h))))
    hyphens))

Cheers,
  Harm



reply via email to

[Prev in Thread] Current Thread [Next in Thread]