split Insert Tag -menu if it is long enough.

[lilypond.git] / ly / chord-modifiers-init.ly

diff --git a/ly/chord-modifiers-init.ly b/ly/chord-modifiers-init.ly
index 294feac5e6a0803365ea3c6f1dc76768e710c8ec..e941550a5b9a86dd0f89f57b351fb6afa24e3a11 100644 (file)
--- a/ly/chord-modifiers-init.ly
+++ b/ly/chord-modifiers-init.ly
@@ -1,19 +1,39 @@
 \version "1.7.18"
 
-
 \chordmodifiers #default-chord-modifier-list
 
+whiteTriangleMarkup = #(make-override-markup
+                       '(font-family . math) (make-simple-markup "M"))
 
-whiteTriangleMarkup =#(make-override-markup '(font-family . math) (make-simple-markup "M"))
-
-blackTriangleMarkup = #(make-override-markup '(font-family . math) (make-simple-markup "N"))
+blackTriangleMarkup = #(make-override-markup
+                       '(font-family . math) (make-simple-markup "N"))
 
-ignatzekExceptionMusic =  \notes {
+ignatzekExceptionMusic = \notes{
        <<c e gis>>1-\markup { "+" }
        <<c es ges>>-\markup { \super "o" } % should be $\circ$ ?
        <<c es ges bes>>-\markup { \super \combine "o" "/" }
        <<c es ges beses>>-\markup { \super  "o7" }
 }
 
-ignatzekExceptions = #(sequential-music-to-chord-exceptions ignatzekExceptionMusic)
+ignatzekExceptions = #(sequential-music-to-chord-exceptions
+                      ignatzekExceptionMusic #t)
+
+partialJazzMusic = \notes{
+    <<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" }
+}
+
+%% TODO: compatibility ignatzek code
+fullJazzExceptions = #(sequential-music-to-chord-exceptions
+                       ignatzekExceptionMusic #f)
+
+partialJazzExceptions = #(sequential-music-to-chord-exceptions
+                          partialJazzMusic #f)
 
+                      
\ No newline at end of file