new engraver for spacing in chordlyrics

basic_format_and_style_settings.ly

@@ -198,8 +198,10 @@ updown =
       (rest (substring word 1 (string-length word))))
 #{
   \lyricmode {
-    \tag #'up { \markup { #(string-append (string-capitalize first-char) rest) } }
+    \markup {
-    \tag #'down { \markup { #(string-append (string-downcase first-char) rest) } }
+      \tag #'up #(string-append (string-capitalize first-char) rest)
+      \tag #'down #(string-append (string-downcase first-char) rest)
+    }
   }
 #}))
 
@@ -235,3 +237,19 @@ cue =
             (make-null-markup))
       }
   #})
+
+#(define-markup-command (ruf-style layout props text) (string?)
+   (interpret-markup layout props
+                     (markup #:italic (string-append "(" text ")"))))
+rufWithMarkup =
+#(define-music-function (text) (markup?)
+   #{
+     \lyricmode {
+       \once \override StanzaNumber.font-series = #'normal
+       \once \override StanzaNumber.direction = 1
+       \set stanza = #text
+     }
+   #})
+ruf =
+#(define-music-function (text) (string?)
+   (rufWithMarkup (make-ruf-style-markup text)))