+
+frenchChords = {
+ \set chordRootNamer = #(chord-name->italian-markup #t)
+ \set chordPrefixSpacer = #0.4
+}
+
+italianChords = {
+ \set chordRootNamer = #(chord-name->italian-markup #f)
+ \set chordPrefixSpacer = #0.4
+}
+
+improvisationOn = {
+ \set squashedPosition = #0
+ \override NoteHead #'style = #'slash
+}
+
+improvisationOff = {
+ \unset squashedPosition
+ \revert NoteHead #'style
+}
+
+textSpannerUp = \override TextSpanner #'direction = #1
+textSpannerDown = \override TextSpanner #'direction = #-1
+textSpannerNeutral = \revert TextSpanner #'direction
+