Compare commits

2 Commits

Author SHA1 Message Date
tux
99530b8fce new engraver for spacing in chordlyrics 2025-12-15 00:50:29 +01:00
c196d10b40 make verselayout really work 2025-12-15 00:50:07 +01:00
2 changed files with 10 additions and 7 deletions

View File

@@ -365,6 +365,9 @@ Chord_lyrics_spacing_engraver =
>>
\layout {
$verselayout
#(let
((custom-size (ly:output-def-lookup verselayout 'size #f)))
(if custom-size (layout-set-staff-size custom-size)))
ragged-right = ##t
\context {
\Lyrics

View File

@@ -1,12 +1,5 @@
MUSIC = { \transposable #TRANSPOSITION \MUSIC }
LAYOUT = \layout {
\LAYOUT
#(let
((custom-size (ly:output-def-lookup LAYOUT 'size #f)))
(if custom-size (layout-set-staff-size custom-size)))
}
verselayout = \layout {
\LAYOUT
\context {
@@ -15,6 +8,13 @@ verselayout = \layout {
}
}
LAYOUT = \layout {
\LAYOUT
#(let
((custom-size (ly:output-def-lookup LAYOUT 'size #f)))
(if custom-size (layout-set-staff-size custom-size)))
}
TEXT = \markuplist {
\override #`(transposition . ,TRANSPOSITION)
\override #`(verselayout . ,verselayout)