From 7ece3b9c10f861f2c7c254ecff6a4999e75968e0 Mon Sep 17 00:00:00 2001
From: Christoph Wagner <tux@goldenerreiter.org>
Date: Mon, 9 Mar 2026 17:01:21 +0100
Subject: [PATCH] underline for LyricText

---
 .../base/basic_format_and_style_settings.ily       | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/private_includes/base/basic_format_and_style_settings.ily b/private_includes/base/basic_format_and_style_settings.ily
index 8794edf..2826352 100644
--- 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
+   #})