+% For drawing vertical chord brackets with \arpeggio
+% This is a shorthand for the value of the print-function property
+% of either Staff.Arpeggio or PianoStaff.Arpeggio, depending whether
+% cross-staff brackets are desired.
+
+arpeggio = #(make-music 'ArpeggioEvent)
+
+arpeggioUp = \sequential {
+ \revert Arpeggio #'stencil
+ \override Arpeggio #'arpeggio-direction = #UP
+}
+arpeggioDown = \sequential {
+ \revert Arpeggio #'stencil
+ \override Arpeggio #'arpeggio-direction = #DOWN
+}
+arpeggioNeutral = \sequential {
+ \revert Arpeggio #'stencil
+ \revert Arpeggio #'arpeggio-direction
+}
+arpeggioBracket = \sequential {
+ \override Arpeggio #'stencil = #ly:arpeggio::brew-chord-bracket