diff --git a/basic_format_and_style_settings.ly b/basic_format_and_style_settings.ly index e123b49..b960c5a 100644 --- a/basic_format_and_style_settings.ly +++ b/basic_format_and_style_settings.ly @@ -235,3 +235,19 @@ cue = (make-null-markup)) } #}) + +#(define-markup-command (ruf-style layout props text) (string?) + (interpret-markup layout props + (markup #:italic (string-append "(" text ")")))) +rufWithMarkup = +#(define-music-function (text) (markup?) + #{ + \lyricmode { + \once \override StanzaNumber.font-series = #'normal + \once \override StanzaNumber.direction = 1 + \set stanza = #text + } + #}) +ruf = +#(define-music-function (text) (string?) + (rufWithMarkup (make-ruf-style-markup text))) \ No newline at end of file