Hi Alexander!
Here's a first shot. Please test thoroughly...
#(define (has-hyphen? event)
(let* ((art (ly:music-property event 'articulations))
(is-hyphen? (lambda (ev) (eq? (ly:music-property ev 'name)
'HyphenEvent))))
(find is-hyphen? art)))
[....]
Thanks a lot for that code. Works fine together with my
0001-Better-lyric-extender-handling.patch.
cu,
Knut
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user