power chord symbol

Added power chord definition, symbol and command to typeset this symbol.

diff --git a/ly/chord-modifiers-init.ly b/ly/chord-modifiers-init.ly
index 98b11b675242bcbd459c720a8adaf2499f27c4af..82d996d61b4cc6fc7f610bb8f7ab28c436e435b4 100644 (file)
--- a/ly/chord-modifiers-init.ly
+++ b/ly/chord-modifiers-init.ly
@@ -43,6 +43,11 @@ partialJazzMusic = {
     <c d es>-\markup { "m" }-\markup { \normal-size-super "sus2" }
 }
 
+powerChordSymbol = {
+    <c g>-\markup { \normal-size-super "5" }
+    <c g c'>1-\markup { \normal-size-super "5" }
+}
+
 
 %% TODO: compatibility ignatzek code
 fullJazzExceptions=
@@ -51,5 +56,8 @@ fullJazzExceptions=
 partialJazzExceptions=
 #(sequential-music-to-chord-exceptions partialJazzMusic #f)
 
+powerChordExceptions =
+  #(sequential-music-to-chord-exceptions powerChordSymbol #t)
+
 ignatzekExceptions  =
 #(sequential-music-to-chord-exceptions ignatzekExceptionMusic #t)

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 6c6a41a8312a39df1eca85f2a045547c5344910c..b08c572497740bcf0cc3aae7f048f01304b69915 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -123,6 +123,9 @@ italianChords = {
   \set chordRootNamer = #(chord-name->italian-markup #f)
   \set chordPrefixSpacer = #0.4
 }
+powerChords = {
+  \set chordNameExceptions = #powerChordExceptions
+}
 
 
 %% compressFullBarRests