(FatalConversionError.conv): add style

covnersion rule.

* scm/chord-name.scm (set-chord-name-style): new function.
(new-chord-name-brew-molecule): revise to interpret markup only
(new-chord->markup): cleanuppish rewrite. To be called from the
new engraver.

* lily/new-chord-name-engraver.cc: new engraver: call Chord ->
Markup earlier, during interpreting.

* input/test/{banter,jazz,american}-chords.ly (scheme): update
style settings. Rename to chord-names-*.ly

diff --git a/scripts/convert-ly.py b/scripts/convert-ly.py
index 884a89e32ee09be17f039c565d7e69215d2bbdd8..f4689e1d8ee246de682f03793be9e1e571ce2dea 100644 (file)
--- a/scripts/convert-ly.py
+++ b/scripts/convert-ly.py
@@ -1112,6 +1112,17 @@ if 1:
                str = re.sub (r'([^_^-])\\(%s)\b' % origstr, r'\1-\\\2', str)
                return str
        conversions.append (((1,7,6), conv, 'note\\script -> note-\script'))
+
+
+if 1:
+       def conv(str):
+               str = re.sub (r"\\property *ChordNames *\. *ChordName *\\(set|override) *#'style *= *#('[a-z]+)",
+                             r"#(set-chord-name-style \2)", str)
+               str = re.sub (r"\\property *ChordNames *\. *ChordName *\\revert *#'style",
+                             r"", str)
+               return str
+       conversions.append (((1,7,10), conv, "\property ChordName #'style -> #(set-chord-name-style 'style)"))
+       
        
 
 ################################