+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
+
+
+hideNotes =\sequential {
+ % hide notes, accidentals, etc.
+ \property Voice.Dots \override #'transparent = ##t
+ \property Voice.NoteHead \override #'transparent = ##t
+ \property Voice.Stem \override #'transparent = ##t
+ \property Voice.Beam \override #'transparent = ##t
+ \property Staff.Accidental \override #'transparent = ##t
+}
+
+
+unHideNotes = \sequential {
+ \property Staff.Accidental \revert #'transparent
+ \property Voice.Beam \revert #'transparent
+ \property Voice.Stem \revert #'transparent
+ \property Voice.NoteHead \revert #'transparent
+ \property Voice.Dots \revert #'transparent
+}
+
+germanChords = {
+ \property ChordNames. chordRootNamer = #(chord-name->german-markup #t)
+ \property ChordNames. chordNoteNamer = #note-name->german-markup
+}
+semiGermanChords = {
+ \property ChordNames. chordRootNamer = #(chord-name->german-markup #f)
+ \property ChordNames. chordNoteNamer = #note-name->german-markup
+}