Add \accidentalStyle command

[lilypond.git] / ly / property-init.ly

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 2de518fb461e706e684b950baabf79e1eec60a7c..c5bf597b6e428dd8b0945cece03e2c944a25b73b 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -14,6 +14,13 @@ defaultNoteHeads =
    (revert-head-style '(NoteHead TabNoteHead)))
 
 
+accidentalStyle =
+#(define-music-function
+   (parser location style) (string-or-symbol?)
+   (_i "Set @var{style} as the accidental style to use.")
+   (set-accidental-style (if (string? style)
+                             (string->symbol style)
+                             style)))
 
 %% arpeggios
 
@@ -343,6 +350,10 @@ back to the lilypond source statement.")
    (ly:set-option 'point-and-click #f)
    (make-music 'SequentialMusic 'void #t))
 
+pointAndClickTypes =
+#(define-void-function (parser location types) (list-or-symbol?)
+  (_i "Set a type or list of types (such as @code{#'note-event}) for which point-and-click info is generated.")
+  (ly:set-option 'point-and-click types))
 
 %% predefined fretboards