Re: Make accidental styles available as context mods. (issue 4819064)

[Neil Puttock]

On 5 September 2011 20:10, David Kastrup <address@hidden> wrote:

> I suggest trying the following Lilypond fragment out.
>
> #(define (make-accidental-mod style)
>  "Make a context modification from accidental style @var{style}."
>  (let ((style-settings '(1 2 3 4)))
>   #{ \with { extraNatural = #(cadr $style-settings)
>              autoAccidentals = #(caddr $style-settings)
>              autoCautionaries = #(cadddr $style-settings) } #}))
> #(display (make-accidental-mod 'modern))

Heh, silly me.  I was rather stupidly testing it with \set, which
naturally causes the parser to complain.

I suppose this means ly:make-context-mod is redundant then.

Cheers,
Neil