From ed81b5c9034624529d3a066576e047e2ab9a43b6 Mon Sep 17 00:00:00 2001
From: tux <tux@goldenerreiter.org>
Date: Sun, 23 Jul 2023 12:18:14 +0200
Subject: [PATCH] make columns configurable

---
 styles/bock.ly   | 1 +
 styles/börnel.ly | 1 +
 styles/büdel.ly  | 1 +
 toc_include.ly   | 4 ++--
 4 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/styles/bock.ly b/styles/bock.ly
index 2a06db6..4780388 100644
--- a/styles/bock.ly
+++ b/styles/bock.ly
@@ -10,5 +10,6 @@ songScoreChordFontSize = 3
 songTextChordFontSize = 2
 songTextLineHeigth = 5.5
 songInfoPoetAndComposerStacked = ##f
+songTocColumns = 3
 globalSize = 15
 lyricSize = 1.6
\ No newline at end of file
diff --git a/styles/börnel.ly b/styles/börnel.ly
index e9cbbb8..3d84e6a 100644
--- a/styles/börnel.ly
+++ b/styles/börnel.ly
@@ -10,5 +10,6 @@ songScoreChordFontSize = 0
 songTextChordFontSize = \songScoreChordFontSize
 songTextLineHeigth = 5
 songInfoPoetAndComposerStacked = ##f
+songTocColumns = 3
 globalSize = 15
 lyricSize = 1.6
\ No newline at end of file
diff --git a/styles/büdel.ly b/styles/büdel.ly
index 714801f..c3fb82a 100644
--- a/styles/büdel.ly
+++ b/styles/büdel.ly
@@ -10,5 +10,6 @@ songScoreChordFontSize = 2
 songTextChordFontSize = 2
 songTextLineHeigth = 5
 songInfoPoetAndComposerStacked = ##t
+songTocColumns = 2
 globalSize = 15
 lyricSize = 1.6
\ No newline at end of file
diff --git a/toc_include.ly b/toc_include.ly
index f6a990e..3b98c1a 100644
--- a/toc_include.ly
+++ b/toc_include.ly
@@ -236,7 +236,7 @@
         (ly:output-def-lookup layout 'indexTitleMarkup))))
         (cons title
   (interpret-markup-list layout props
-    (make-columnlayout-markup-list 3 2
+    (make-columnlayout-markup-list songTocColumns 2
       (let ((h (- (ly:output-def-lookup layout 'paper-height) 12)))
         (cons (- h (interval-length (ly:stencil-extent title Y))) h))
       (prepare-item-markup index-items layout))))))
@@ -249,7 +249,7 @@
         (ly:output-def-lookup layout 'categoryTitleMarkup))))
         (cons title
   (interpret-markup-list layout props
-    (make-columnlayout-markup-list 3 2
+    (make-columnlayout-markup-list songTocColumns 2
       (let ((h (- (ly:output-def-lookup layout 'paper-height) 12)))
         (cons (- h (interval-length (ly:stencil-extent title Y))) h))
       (prepare-item-markup category-index-items layout)))))))