new engraver for spacing in chordlyrics

basic_format_and_style_settings.ly

@@ -198,10 +198,8 @@ updown =
       (rest (substring word 1 (string-length word))))
 #{
   \lyricmode {
-    \markup {
+    \tag #'up { \markup { #(string-append (string-capitalize first-char) rest) } }
-      \tag #'up #(string-append (string-capitalize first-char) rest)
+    \tag #'down { \markup { #(string-append (string-downcase first-char) rest) } }
-      \tag #'down #(string-append (string-downcase first-char) rest)
-    }
   }
 #}))
 
@@ -237,19 +235,3 @@ 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)))