From 7b166f6fc3cbdcd8df509086d188acaf47a64fea Mon Sep 17 00:00:00 2001 From: Christoph Wagner Date: Sun, 22 Feb 2026 13:22:45 +0100 Subject: [PATCH] pad left for stanzas to have a minimum distance to SystemStartBar --- .../base/basic_format_and_style_settings.ily | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/private_includes/base/basic_format_and_style_settings.ily b/private_includes/base/basic_format_and_style_settings.ily index 957ac9e..e195866 100644 --- a/private_includes/base/basic_format_and_style_settings.ily +++ b/private_includes/base/basic_format_and_style_settings.ily @@ -149,10 +149,11 @@ override-stanza = (stanza-style (ly:assoc-get 'style (ly:context-grob-definition context 'StanzaNumber))) (roman-format (lambda (stanzanumber) (format #f "~@r" stanzanumber)))) (ly:context-set-property! context 'stanza - (number-formater - (if (eq? stanza-style 'roman) - (map roman-format stanzanumbers) - stanzanumbers))))) + (make-pad-left-markup 1 + (number-formater + (if (eq? stanza-style 'roman) + (map roman-format stanzanumbers) + stanzanumbers)))))) #(define (stanza . stanzanumbers) #{ @@ -304,4 +305,4 @@ rufWithMarkup = #}) ruf = #(define-music-function (text) (string?) - (rufWithMarkup (make-ruf-style-markup text))) \ No newline at end of file + (rufWithMarkup (make-ruf-style-markup text)))