% property-init.ly
-\version "2.14.0"
+\version "2.15.10"
%% for dashed slurs, phrasing slurs, and ties
#(define (make-simple-dash-definition dash-fraction dash-period)
(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))))
%% arpeggios
(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
\revert TabVoice.Flag #'style
\revert TabVoice.Stem #'details
\revert TabVoice.Stem #'transparent
+ \revert TabVoice.Flag #'transparent
\override TabVoice.Stem #'stencil = #tabvoice::draw-double-stem-for-half-notes
\set autoBeaming = ##t
\revert NoteColumn #'ignore-collision