Notenbund/lilypond-common-includes
15
0
Fork 0
Code Issues 19 Pull Requests Packages Projects Releases Wiki Activity

pad left for stanzas to have a minimum distance to SystemStartBar

Browse Source
This commit is contained in:
Christoph Wagner
2026-02-22 13:22:45 +01:00
parent 9c437d0f06
commit 7b166f6fc3
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
private_includes/base/basic_format_and_style_settings.ily
View File

@@ -149,10 +149,11 @@ override-stanza =
(stanza-style (ly:assoc-get 'style (ly:context-grob-definition context 'StanzaNumber))) (stanza-style (ly:assoc-get 'style (ly:context-grob-definition context 'StanzaNumber)))
(roman-format (lambda (stanzanumber) (format #f "~@r" stanzanumber)))) (roman-format (lambda (stanzanumber) (format #f "~@r" stanzanumber))))
(ly:context-set-property! context 'stanza (ly:context-set-property! context 'stanza
(number-formater (make-pad-left-markup 1
(if (eq? stanza-style 'roman) (number-formater
(map roman-format stanzanumbers) (if (eq? stanza-style 'roman)
stanzanumbers))))) (map roman-format stanzanumbers)
stanzanumbers))))))
#(define (stanza . stanzanumbers) #(define (stanza . stanzanumbers)
#{ #{
@@ -304,4 +305,4 @@ rufWithMarkup =
#}) #})
ruf = ruf =
#(define-music-function (text) (string?) #(define-music-function (text) (string?)
(rufWithMarkup (make-ruf-style-markup text))) (rufWithMarkup (make-ruf-style-markup text)))