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