multiVerseSkips and alt functions

2024-11-03 17:29:00 +01:00 · 2024-11-03 17:29:00 +01:00 · 754682afcf
commit 754682afcf
parent 88f0dc9f8f
1 changed files with 9 additions and 1 deletions
--- 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 = "-"
-}
+}
+
+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 } #})