underline for LyricText

2026-03-09 17:01:21 +01:00
parent 7fc99e8883
commit 7ece3b9c10
1 changed files with 14 additions and 0 deletions
--- a/private_includes/base/basic_format_and_style_settings.ily
+++ b/private_includes/base/basic_format_and_style_settings.ily
@@ -306,3 +306,17 @@ rufWithMarkup =
 ruf =
 #(define-music-function (text) (string?)
   (rufWithMarkup (make-ruf-style-markup text)))
+
+underlineOn =
+#(define-music-function () ()
+   #{
+     \override LyricText.stencil =
+     #(lambda (grob)
+        (grob-interpret-markup grob (make-underline-markup (ly:grob-property grob 'text))))
+   #})
+
+underlineOff =
+#(define-music-function () ()
+   #{
+     \revert LyricText.stencil
+   #})