Anteil der songinfo Breite an Gesamtbreite konfigurierbar

This commit is contained in:
tux 2024-06-25 12:17:54 +02:00
parent 3c2f27b477
commit e17c544763
2 changed files with 2 additions and 1 deletions

View File

@ -1,6 +1,7 @@
songFormatAndSize = "a5" songFormatAndSize = "a5"
songMargin = 5 songMargin = 5
songInfoFontSize = 0 songInfoFontSize = 0
songInfoLineWidthFraction = 0.9
songTitleFont = "LilyPond Sans" songTitleFont = "LilyPond Sans"
songChordFont = "LilyPond Sans" songChordFont = "LilyPond Sans"
songLyricFont = "LilyPond Sans" songLyricFont = "LilyPond Sans"

View File

@ -200,7 +200,7 @@
#(define-markup-command (fractional-line-width layout props arg)(markup?) #(define-markup-command (fractional-line-width layout props arg)(markup?)
(interpret-markup layout props (interpret-markup layout props
(make-override-markup (make-override-markup
`(line-width . ,(* (chain-assoc-get 'header:songinfo-size-factor props 0.9) (ly:output-def-lookup layout 'line-width))) `(line-width . ,(* (chain-assoc-get 'header:songinfo-size-factor props songInfoLineWidthFraction) (ly:output-def-lookup layout 'line-width)))
arg))) arg)))
\paper { \paper {