einheitliche ref und stanza Formatierung

basic_format_and_style_settings.ly

@@ -98,3 +98,11 @@ schwarzkopf =
 % hübsche Wiederholungszeichen für den Liedtext
 repStart = "𝄆"
 repStop = "𝄇"
+
+stanzaFormat = "~a."
+stanza =
+  #(define-music-function (parser location stanzanumber) (number?)
+  #{ \set stanza = #(ly:format stanzaFormat stanzanumber) #})
+
+refString = "Ref.:"
+ref = { \set stanza = \refString }

verses_with_chords.ly

@@ -88,18 +88,18 @@
      ))
 
 #(define-markup-command (stanza-raw layout props arg)
-   (markup?)
+   (string-or-music?)
    (let ((verselayout (chain-assoc-get 'verselayout props generalLayout)))
    (interpret-markup layout props
      (if (and (string? arg) (string-null? arg))
          " "
          #{\markup
-           \score { \new Lyrics { \lyricmode { \set stanza = #arg "" } } \layout { \verselayout } }
+           \score { \new Lyrics { \lyricmode { #(if (ly:music? arg) arg #{ \set stanza = #arg #}) "" } } \layout { \verselayout } }
          #}
      ))))
 
 #(define-markup-command (stanza layout props arg)
-   (markup?)
+   (string-or-music?)
    (interpret-markup layout props
      (make-size-box-to-box-markup #f #t (make-stanza-raw-markup arg) (make-stanza-raw-markup "x"))))
 
@@ -119,7 +119,7 @@
               1 "\n" 2))))))
 
 % Kompletten Vers mit Akkorden
-#(define-markup-command (chordverse layout props stanza verse) (markup? string?)
+#(define-markup-command (chordverse layout props stanza verse) (string-or-music? string?)
    #:properties ((intraverse-vspace 0)(custom-verse-breaks '()))
    "Vers mit Akkorden"
    (let* ((fromto (chain-assoc-get 'transposition props #f))
@@ -137,7 +137,7 @@
      ))))
 
 % Kompletter Vers aus dem Akkorde entfernt werden
-#(define-markup-command (nochordverse layout props stanza verse) (markup? string?)
+#(define-markup-command (nochordverse layout props stanza verse) (string-or-music? string?)
    #:properties ((intraverse-vspace 0)(custom-verse-breaks '()))
    "Vers ohne Akkorde"
    (interpret-markup layout props