patch::: 1.3.96.jcn9

[lilypond.git] / input / test / chords.ly

diff --git a/input/test/chords.ly b/input/test/chords.ly
index c74d5024304f974f5f42f14fb7c90d8d143e89e6..76e1ca73954c41e1661711a9d66ce44c7796c47b 100644 (file)
--- a/input/test/chords.ly
+++ b/input/test/chords.ly
@@ -1,4 +1,4 @@
-\version "1.2.0";
+\version "1.3.97";
 
 %{
 Would this be acceptable/good enough/convenient for entry?
@@ -9,7 +9,7 @@ Would this be acceptable/good enough/convenient for entry?
    Cb                     ces
    Cm; Cmin               c:3-; c:m; c:min
    Caug                   c:5+; c:aug;
-   Cdim                   c:3-:5-; c:dim
+   Cdim                   c:3-.5-; c:dim
    Cmaj7                  c:7+; c:maj
    C7                     c:7
    Csus; Csus4            c:4; c:sus
@@ -37,21 +37,21 @@ keys = \notes{
                 s1 s1 s1
                 s1 s1
                 s1
-                \key g; s1
-                \key d; s1 
-                \key a; s1 
-                \key e; s1 
-                \key b; s1 
-                \key fis; s1
-                \key c; s1 
-                \key f; s1 
-                \key bes; s1
-                \key es; s1
-                \key as; s1
-                \key des; s1
-                \key ges; s1
-                \key c; s1*2
-                \key c; s1*6
+                \key g \major; s1
+                \key d \major; s1 
+                \key a \major; s1 
+                \key e \major; s1 
+                \key b \major; s1 
+                \key fis \major; s1
+                \key c \major; s1 
+                \key f \major; s1 
+                \key bes \major; s1
+                \key es \major; s1
+                \key as \major; s1
+                \key des \major; s1
+                \key ges \major; s1
+                \key c \major; s1*2
+                \key c \major; s1*6
        }
 
 \score{
@@ -59,4 +59,10 @@ keys = \notes{
                \context ChordNames \scales
                \context Staff < \scales \keys >
        >
+       \paper{
+               \translator { 
+                       \ChordNamesContext
+                       ChordNames \push #'word-space = #1 
+               }
+       }
 }