From 754682afcf4cbbd42998a597a028816b6eab9db0 Mon Sep 17 00:00:00 2001
From: tux <tux@goldenerreiter.org>
Date: Sun, 3 Nov 2024 17:29:00 +0100
Subject: [PATCH] multiVerseSkips and alt functions

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

diff --git a/basic_format_and_style_settings.ly b/basic_format_and_style_settings.ly
index dae7681..c6f3b18 100644
--- a/basic_format_and_style_settings.ly
+++ b/basic_format_and_style_settings.ly
@@ -158,4 +158,12 @@ rightHyphen = \lyricmode {
 leftHyphen = \lyricmode {
   \once \override StanzaNumber.font-series = #'normal
   \set stanza = "-"
-}
\ No newline at end of file
+}
+
+multiVerseSkips =
+#(define-music-function (parser location skips) (number?)
+  #{ \tag #'multiVerse { \repeat unfold #skips { \skip4 } } #})
+
+alt =
+#(define-music-function (parser location a b) (ly:music? ly:music?)
+  #{ \tag #'firstVerse { #a } \tag #'multiVerse { #b } #})
\ No newline at end of file