Compare commits

2 Commits

Author SHA1 Message Date
tux
295a841a37 new engraver for spacing in chordlyrics 2025-12-15 01:26:54 +01:00
e530bdf090 make verselayout really work 2025-12-15 01:26:19 +01:00
2 changed files with 7 additions and 10 deletions

View File

@@ -365,9 +365,6 @@ 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,5 +1,12 @@
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 {
@@ -8,13 +15,6 @@ 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)