make columns configurable

This commit is contained in:
tux 2023-07-23 12:18:14 +02:00
parent 7e7d6820fb
commit ed81b5c903
4 changed files with 5 additions and 2 deletions

View File

@ -10,5 +10,6 @@ songScoreChordFontSize = 3
songTextChordFontSize = 2 songTextChordFontSize = 2
songTextLineHeigth = 5.5 songTextLineHeigth = 5.5
songInfoPoetAndComposerStacked = ##f songInfoPoetAndComposerStacked = ##f
songTocColumns = 3
globalSize = 15 globalSize = 15
lyricSize = 1.6 lyricSize = 1.6

View File

@ -10,5 +10,6 @@ songScoreChordFontSize = 0
songTextChordFontSize = \songScoreChordFontSize songTextChordFontSize = \songScoreChordFontSize
songTextLineHeigth = 5 songTextLineHeigth = 5
songInfoPoetAndComposerStacked = ##f songInfoPoetAndComposerStacked = ##f
songTocColumns = 3
globalSize = 15 globalSize = 15
lyricSize = 1.6 lyricSize = 1.6

View File

@ -10,5 +10,6 @@ songScoreChordFontSize = 2
songTextChordFontSize = 2 songTextChordFontSize = 2
songTextLineHeigth = 5 songTextLineHeigth = 5
songInfoPoetAndComposerStacked = ##t songInfoPoetAndComposerStacked = ##t
songTocColumns = 2
globalSize = 15 globalSize = 15
lyricSize = 1.6 lyricSize = 1.6

View File

@ -236,7 +236,7 @@
(ly:output-def-lookup layout 'indexTitleMarkup)))) (ly:output-def-lookup layout 'indexTitleMarkup))))
(cons title (cons title
(interpret-markup-list layout props (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))) (let ((h (- (ly:output-def-lookup layout 'paper-height) 12)))
(cons (- h (interval-length (ly:stencil-extent title Y))) h)) (cons (- h (interval-length (ly:stencil-extent title Y))) h))
(prepare-item-markup index-items layout)))))) (prepare-item-markup index-items layout))))))
@ -249,7 +249,7 @@
(ly:output-def-lookup layout 'categoryTitleMarkup)))) (ly:output-def-lookup layout 'categoryTitleMarkup))))
(cons title (cons title
(interpret-markup-list layout props (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))) (let ((h (- (ly:output-def-lookup layout 'paper-height) 12)))
(cons (- h (interval-length (ly:stencil-extent title Y))) h)) (cons (- h (interval-length (ly:stencil-extent title Y))) h))
(prepare-item-markup category-index-items layout))))))) (prepare-item-markup category-index-items layout)))))))