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)
-    }
   }
 #}))