From e17c54476334b66cdff60e9fd1eaac36cf67b98a Mon Sep 17 00:00:00 2001
From: tux <tux@goldenerreiter.org>
Date: Tue, 25 Jun 2024 12:17:54 +0200
Subject: [PATCH] Anteil der songinfo Breite an Gesamtbreite konfigurierbar

---
 default_style.ly        | 1 +
 footer_with_songinfo.ly | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/default_style.ly b/default_style.ly
index 4f221b7..d8264db 100644
--- a/default_style.ly
+++ b/default_style.ly
@@ -1,6 +1,7 @@
 songFormatAndSize = "a5"
 songMargin = 5
 songInfoFontSize = 0
+songInfoLineWidthFraction = 0.9
 songTitleFont = "LilyPond Sans"
 songChordFont = "LilyPond Sans"
 songLyricFont = "LilyPond Sans"
diff --git a/footer_with_songinfo.ly b/footer_with_songinfo.ly
index 5cae020..26d5b89 100644
--- a/footer_with_songinfo.ly
+++ b/footer_with_songinfo.ly
@@ -200,7 +200,7 @@
 #(define-markup-command (fractional-line-width layout props arg)(markup?)
   (interpret-markup layout props
     (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)))
 
 \paper {