pad left for stanzas to have a minimum distance to SystemStartBar

2026-02-22 13:22:45 +01:00
parent 9c437d0f06
commit 7b166f6fc3
1 changed files with 6 additions and 5 deletions
--- 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)
 #{