From a558a0b02f67c56d2c22b9700fff4dff0815feb6 Mon Sep 17 00:00:00 2001
From: Christoph Wagner <tux@goldenerreiter.org>
Date: Wed, 4 Dec 2024 20:37:44 +0100
Subject: [PATCH] tagged case in lyricmode

---
 basic_format_and_style_settings.ly | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/basic_format_and_style_settings.ly b/basic_format_and_style_settings.ly
index ccc6169..1036d5b 100644
--- a/basic_format_and_style_settings.ly
+++ b/basic_format_and_style_settings.ly
@@ -174,4 +174,13 @@ multiVerseSkips =
 
 alt =
 #(define-music-function (parser location a b) (ly:music? ly:music?)
-  #{ \tag #'firstVerse { #a } \tag #'multiVerse { #b } #})
\ No newline at end of file
+  #{ \tag #'firstVerse { #a } \tag #'multiVerse { #b } #})
+
+updown =
+#(define-music-function (parser location word) (string?)
+#{
+  \lyricmode {
+    \tag #'up { \markup { #(string-capitalize word) } }
+    \tag #'down { \markup { #(string-downcase word) } }
+  }
+#})
\ No newline at end of file