(WAS: alteration-default-glyph-name-alist). Also define alteration-default-glyph-name-alist as an alias for standard-alteration-glyph-name-alist.
\relative c'' {
\time 3/4
+ % FIXME: standard vs default, alteration-FOO vs FOO-alteration
+ \override Staff.Accidental #'glyph-name-alist = #standard-alteration-glyph-name-alist
cis^\markup { \typewriter default } c ces
\override Staff.Accidental #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
sub_acc_name, str)
str = re.sub (r"(KeySignature|Accidental[A-Za-z]*)\s*#'style\s*=\s*#'([a-z]+)",
r"\1 #'glyph-name-alist = #alteration-\2-glyph-name-alist", str)
-
+ ## FIXME: standard vs default, alteration-FOO vs FOO-alteration
+ str = str.replace ('alteration-default-glyph-name-alist',
+ 'standard-alteration-glyph-name-alist')
return str
conversions.append (((2, 11, 6), conv, """Rename accidental glyphs, use glyph-name-alist."""))
(-3/4 . "accidentals.mirroredflat.flat")
))
+;; FIXME: standard vs default, alteration-FOO vs FOO-alteration
+(define-public alteration-default-glyph-name-alist standard-alteration-glyph-name-alist)
+
(define-public makam-alteration-glyph-name-alist
'((1 . "accidentals.doublesharp")
(8/9 . "accidentals.sharp.slashslashslash.stemstem")