+%% common definition for all note head styles reverting
+%% (palm mute, harmonics, dead notes, ...)
+defaultNoteHeads =
+#(define-music-function (parser location) ()
+ (_i "Revert to the default note head style.")
+ (revert-head-style '(NoteHead TabNoteHead)))
+
+
+accidentalStyle =
+#(define-music-function
+ (parser location context style) ((symbol?) string?)
+ (_i "Set accidental style to @var{style}, a string. If an optional
+@var{context} symbol is given, e.g. @code{#'Staff} or @code{#'Voice},
+the settings are applied to that context. Otherwise, the context
+defaults to @samp{Staff}, except for piano styles, which use
+@samp{GrandStaff} as a context." )
+ (if context
+ (set-accidental-style (string->symbol style) context)
+ (set-accidental-style (string->symbol style))))