+
+% For drawing vertical chord brackets with \arpeggio
+% This is a shorthand for the value of the molecule-callback property
+% of either Staff.Arpeggio or PianoStaff.Arpeggio, depending whether
+% cross-staff brackets are desired.
+
+arpeggioBracket = #(lambda (grob) (Arpeggio::brew_chord_bracket grob))
+arpeggio = #(make-music-by-name 'ArpeggioEvent)
+glissando = #(make-music-by-name 'GlissandoEvent)
+
+fermataMarkup = \markup { \musicglyph #"scripts-ufermata" }
+
+setMmRestFermata =
+ \once \property Voice.MultiMeasureRestNumber \override #'text =
+ #fermataMarkup