Zwischenrufe als stanzas
This commit is contained in:
@@ -235,3 +235,19 @@ cue =
|
|||||||
(make-null-markup))
|
(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)))
|
Reference in New Issue
Block a user