-% 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.
+improvisationOff = {
+ \unset squashedPosition
+ \revert NoteHead #'style
+ \revert Accidental #'stencil
+}
+
+textSpannerUp = \override TextSpanner #'direction = #UP
+textSpannerDown = \override TextSpanner #'direction = #DOWN
+textSpannerNeutral = \revert TextSpanner #'direction
+
+
+
+bassFigureExtendersOn = {
+ \set useBassFigureExtenders = ##t
+ \set Staff.useBassFigureExtenders = ##t
+}
+
+bassFigureExtendersOff = {
+ \set useBassFigureExtenders = ##f
+ \set Staff.useBassFigureExtenders = ##f
+}
+
+bassFigureStaffAlignmentDown = {
+ \override Staff.BassFigureAlignmentPositioning #'direction = #DOWN
+}
+
+bassFigureStaffAlignmentUp = {
+ \override Staff.BassFigureAlignmentPositioning #'direction = #UP
+}
+
+bassFigureStaffAlignmentNeutral = {
+ \revert Staff.BassFigureAlignmentPositioning #'direction
+}
+
+predefinedFretboardsOff = {
+ \set FretBoards.predefinedDiagramTable = ##f
+}
+
+predefinedFretboardsOn = {
+ \set FretBoards.predefinedDiagramTable = #fretboard-table
+}
+
+pointAndClickOff = #(define-music-function (parser location) ()
+ (ly:set-option 'point-and-click #f)
+ (make-music 'SequentialMusic 'void #t))