Am Di., 28. Mai 2019 um 15:48 Uhr schrieb Thomas Morley
<[email protected]>:
> 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
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
