I am trying to figure out a way to change the way centering a slur or tied note above a syllable so that if the noteheads all fit within the width of the syllable that they would be centered above it, and otherwise left aligned.
I have changed the centering behavior before by putting \override LyricText #'X-offset = #center-on-word inside a Lyrics context, and defining center-on-word in scheme so that it would measure the width of the syllable without any surrounding punctuation. However, for what I'm asking about right now, I will need to also know the location of the final notehead attached to the syllable. I don't think there should be any cases of this, but if the final notehead for the current syllable is on a different system, I would only want to consider the last notehead on the current system. Here is what I had for center-on-word: #(define (center-on-word grob) (let* ( (text (ly:grob-property-data grob 'text)) (syllable (if (string? text) text "")) (word-position (if (integer? (string-skip syllable space-set)) (string-skip syllable space-set) 0)) (word-end (if (integer? (string-skip-right syllable space-set)) (+ (string-skip-right syllable space-set) 1) (string-length syllable))) (preword (substring syllable 0 word-position)) (word (substring syllable word-position word-end )) (preword-width (if (string? text) (width grob preword) 0)) (word-width (if (string? text) (width grob word) (width grob text))) (notehead (ly:grob-parent grob X)) (refp (ly:grob-common-refpoint notehead grob X)) (note-extent (ly:grob-extent notehead refp X)) (note-width (- (cdr note-extent) (car note-extent))) ) (if (= -1 (ly:grob-property-data grob 'self-alignment-X)) (- 0 preword-width) (- (/ (- note-width word-width) 2) preword-width) ) ) ) Any help is greatly appreciated. Thanks, *Benjamin Bloomfield*