]> git.donarmstrong.com Git - lilypond.git/blobdiff - ly/chord-modifiers-init.ly
replace tabs with spaces and fix indentation in ly/chord-modifiers-init.ly
[lilypond.git] / ly / chord-modifiers-init.ly
index 9eb3d8cb8f1173e06d3aadc785d0d32c6582f0a3..dc5e58d02717639bf4773ed4fba7ba08a3be49ac 100644 (file)
@@ -1,4 +1,4 @@
-\version "2.10.0"
+\version "2.14.0"
 
 chordmodifiers = #default-chord-modifier-list
 
@@ -23,24 +23,29 @@ blackTriangleMarkup = \markup {
 }
 
 ignatzekExceptionMusic = {
-       <c e gis>1-\markup { "+" }
-       <c es ges>-\markup { \super "o" } % should be $\circ$ ?
-       <c es ges bes>-\markup {
-         %%  f8 is o with slash.
-         \super #(ly:export (ly:wide-char->utf-8 #x00f8))
-       }
-       <c es ges beses>-\markup { \super  "o7" }
+  <c e gis>1-\markup { "+" }
+  <c es ges>-\markup { \super "o" } % should be $\circ$ ?
+  <c es ges bes>-\markup {
+    %%  f8 is o with slash.
+    \super #(ly:export (ly:wide-char->utf-8 #x00f8))
+  }
+  <c es ges beses>-\markup { \super  "o7" }
 }
 
 partialJazzMusic = {
-    <c d>1-\markup { \normal-size-super "2" }
-    <c es>-\markup { "m" }
-    <c f>-\markup { \normal-size-super "sus4" }
-    <c g>-\markup { \normal-size-super "5" }
-    
-    %% TODO, partial exceptions
-    <c es f>-\markup { "m" }-\markup { \normal-size-super "sus4" }
-    <c d es>-\markup { "m" }-\markup { \normal-size-super "sus2" }
+  <c d>1-\markup { \normal-size-super "2" }
+  <c es>-\markup { "m" }
+  <c f>-\markup { \normal-size-super "sus4" }
+  <c g>-\markup { \normal-size-super "5" }
+
+  %% TODO, partial exceptions
+  <c es f>-\markup { "m" }-\markup { \normal-size-super "sus4" }
+  <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" }
 }
 
 
@@ -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)