in Snippets - LilyPond

Staff notation 123
}
}
}
\remove "Staff_collecting_engraver"
Incipit
A
1
Incipits can be added using the instrument name grob, but keeping separate the instrument
name definition and the incipit definition.
incipit =
#(define-music-function (parser location incipit-music) (ly:music?)
#{
\once \override Staff.InstrumentName #'self-alignment-X = #RIGHT
\once \override Staff.InstrumentName #'self-alignment-Y = #UP
\once \override Staff.InstrumentName #'Y-offset =
#(lambda (grob)
(+ 4 (system-start-text::calc-y-offset grob)))
\once \override Staff.InstrumentName #'padding = #0.3
\once \override Staff.InstrumentName #'stencil =
#(lambda (grob)
(let* ((instrument-name (ly:grob-property grob 'long-text)))
(set! (ly:grob-property grob 'long-text)
#{ \markup
\score
{
{ \context MensuralStaff \with {
instrumentName = #instrument-name
\override VerticalAxisGroup
#'Y-extent = #'(-4 . 4)
} $incipit-music
}
\layout { $(ly:grob-layout grob)
line-width = \indent
indent =
% primitive-eval is probably easiest for
% escaping lexical closure and evaluating
% everything respective to (current-module).
#(primitive-eval
'(or (false-if-exception (- indent (* mm incipit-widt
(* 0.5 indent)))
ragged-right = ##f
ragged-last = ##f
system-count = #1 }
}
#})
(system-start-text::print grob)))