pad left for stanzas to have a minimum distance to SystemStartBar
This commit is contained in:
@@ -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)))
|
||||
(rufWithMarkup (make-ruf-style-markup text)))
|
||||
|
||||
Reference in New Issue
Block a user