Re: Flexible lyric alignment

[Jean Abou Samra]

The bit with LyricHyphen was not working, this will be better:

\version "2.23.81"

#(ly:set-option 'compile-scheme-code)

\layout {
  \context {
    \Lyrics
    \consists
      #(lambda (context)
         (let ((previous #f))
           (make-engraver
            (acknowledgers
             ((lyric-syllable-interface engraver grob source-engraver)
              (when previous
                (set! (ly:grob-object previous 'right-syllable)
                      grob))
              (set! previous grob))))))
  }
  \override Score.PaperColumn.show-horizontal-skylines = ##t
}

autoMove = \once {
  \override LyricSpace.springs-and-rods = ##f
  \override LyricHyphen.springs-and-rods = ##f
  \override LyricText.extra-spacing-height = #'(+inf.0 . -inf.0)
  \override LyricText.after-line-breaking =
    #(lambda (grob)
       (let ((right (ly:grob-object grob 'right-syllable #f)))
         (when right
           (ly:grob-property right 'after-line-breaking)
           (let* ((refp (ly:grob-system grob))
                  (end (interval-end (ly:grob-extent grob refp X)))
                  (right-begin (interval-start (ly:grob-extent right 
refp X)))
                  (default-space (- right-begin end))
                  ;; Same as LyricSpace.minimum-distance default, should be
                  ;; read there ...
                  (padding 0.45))
             (when (< default-space padding)
               (ly:grob-translate-axis! grob
                                        (- default-space padding)
                                        X))))))
}


\paper {
  top-margin = 0.5\in
  left-margin = 0.5\in
  line-width = 6\in
  ragged-right = ##f
}

spacecase_notes = { R1 a'4 c'8 f' bes'4 a' g'8 8 \tuplet 3/2 { g'8 8 
fis' } g'2 }
spacecase_lyrics = \lyricmode { \autoMove Scraunched is the long -- est 
sin -- gle syl -- la -- ble word! }

\score {
  <<
    \new Staff \new Voice = "melody" \spacecase_notes
    \new Lyrics \lyricsto "melody" \spacecase_lyrics
  >>
}

OpenPGP_signature
Description: OpenPGP digital signature