From f57b1c4ec302fb969847b407fd088135c8545a8a Mon Sep 17 00:00:00 2001 From: Christoph Wagner Date: Mon, 15 Dec 2025 01:47:05 +0100 Subject: [PATCH] customize text chord distance in old system, too --- private_includes/base/verses_with_chords.ily | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/private_includes/base/verses_with_chords.ily b/private_includes/base/verses_with_chords.ily index 92f9c7a..712a7a0 100644 --- a/private_includes/base/verses_with_chords.ily +++ b/private_includes/base/verses_with_chords.ily @@ -60,13 +60,14 @@ % Text über Text mittig darstellen #(define-markup-command (textup layout props text uptext) (markup? markup?) - #:properties ((verselayout generalLayout)) + #:properties ((verselayout generalLayout) + (verse-text-chord-distance songTextChordDistance)) "Markup über Text mittig darstellen." (interpret-markup layout props #{\markup { \size-box-to-box-style-dependent ##t ##f - \general-align #X #LEFT \override #`(direction . ,UP) \override #'(baseline-skip . 1.0) \dir-column \chord-alignment-style-dependent { - \pad-to-box #'(0 . 0) #'(0 . 2.0) { #text } + \general-align #X #LEFT \override #`(direction . ,UP) \override #'(baseline-skip . 1) \dir-column \chord-alignment-style-dependent { + \pad-to-box #'(0 . 0) #`(0 . ,(- verse-text-chord-distance 0.8)) { #text } \size-box-to-box ##f ##t #uptext \score { \chords { g4:m a } \layout { $verselayout } } } #text