support für römische Zahlen in den Strophen

basic_format_and_style_settings.ly

@@ -72,6 +72,7 @@ textp = \lyricmode { \markup { \raise #1 \musicglyph #"rests.3" } }
 % zweite Stimme alles grau
 secondVoiceStyle = {
   \override NoteHead.color = #grey
+  \override Dots.color = #grey
   \override Stem.color = #grey
   \override Flag.color = #grey
   \override Beam.color = #grey
@@ -79,6 +80,7 @@ secondVoiceStyle = {
 
 firstVoiceStyle = {
   \override NoteHead.color = #black
+  \override Dots.color = #black
   \override Stem.color = #black
   \override Flag.color = #black
   \override Beam.color = #black
@@ -93,8 +95,16 @@ schwarzkopf =
    \override NoteHead.color = #grey
   #})
 
+romanStanza =
+  #(define-music-function (parser location) ()
+  #{ \override StanzaNumber.style = #'roman #})
+
 stanza =
 #(define-music-function (parser location stanzanumber) (number?)
-  #{ \set stanza = #(ly:format stanzaFormat stanzanumber) #})
+  (make-apply-context
+    (lambda (context)
+      (let* ((stanzastyle (ly:assoc-get 'style (ly:context-grob-definition context 'StanzaNumber)))
+             (formattedStanzaNumber (format #f (if (eq? stanzastyle 'roman) romanStanzaFormat stanzaFormat) stanzanumber)))
+        (ly:context-set-property! context 'stanza formattedStanzaNumber)))))
 
 ref = { \set stanza = \refString }

default_style.ly

@@ -15,6 +15,7 @@ songTocColumns = 3
 globalSize = 15
 lyricSize = 1.6
 stanzaFormat = "~a."
+romanStanzaFormat = "~@r."
 refString = "Ref.:"
 % hübsche Wiederholungszeichen für den Liedtext
 repStart = "𝄆"