From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 4 Jan 2003 02:21:41 +0000 (+0000)
Subject: (FatalConversionError.conv): add style
X-Git-Tag: release/1.7.11~19
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0e83feb30ad5d3a14362167425a40639c45f1027;p=lilypond.git

(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 884a89e32e..f4689e1d8e 100644
--- 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)"))
+	
 	
 
 ################################