diff --git a/basic_format_and_style_settings.ly b/basic_format_and_style_settings.ly index 765e251..bc7e882 100644 --- a/basic_format_and_style_settings.ly +++ b/basic_format_and_style_settings.ly @@ -218,4 +218,16 @@ dottedExtender = { } melisOff = \set ignoreMelismata = ##t -melisOn = \unset ignoreMelismata \ No newline at end of file +melisOn = \unset ignoreMelismata + +cue = +#(define-music-function (zahlen) (number-list?) + #{ + \tag #'cues { + \tweak self-alignment-X #LEFT + \mark + #(make-on-the-fly-markup + (lambda (layout props m) (interpret-markup layout (prepend-alist-chain 'cues zahlen props) (ly:output-def-lookup layout 'cueMarkup))) + (make-null-markup)) + } + #}) \ No newline at end of file diff --git a/default_style.ly b/default_style.ly index 4c13a77..0f651b6 100644 --- a/default_style.ly +++ b/default_style.ly @@ -22,3 +22,13 @@ refStringWithNumbers = "Ref. ~a:" % hübsche Wiederholungszeichen für den Liedtext repStart = "𝄆" repStop = "𝄇" + +\paper { + cueMarkup = \markup { + \italic + #(make-on-the-fly-markup (lambda (layout props m) + (interpret-markup layout props + (string-join (map (lambda (n) (format #f "~@r." n)) (chain-assoc-get 'cues props)) ", "))) + (make-null-markup)) + } +}