Index: scm/chord-ignatzek-names.scm |
diff --git a/scm/chord-ignatzek-names.scm b/scm/chord-ignatzek-names.scm |
index 696d02fc7af43ab3ae2383f670a51ecc98afde9d..0302f35e82f7ab8472ac1f222f5d3b0515bf3597 100644 |
--- a/scm/chord-ignatzek-names.scm |
+++ b/scm/chord-ignatzek-names.scm |
@@ -130,7 +130,8 @@ work than classifying the pitches." |
(define (prefix-modifier->markup mod) |
(if (and (= 3 (pitch-step mod)) |
(= FLAT (ly:pitch-alteration mod))) |
- (make-simple-markup (if lowercase-root? "" "m")) |
+ (if lowercase-root? (empty-markup) |
+ (ly:context-property context 'minorChordModifier)) |
(make-simple-markup "huh"))) |
(define (filter-alterations alters) |
@@ -168,8 +169,10 @@ work than classifying the pitches." |
(make-line-markup total))) |
(let* ((sep (ly:context-property context 'chordNameSeparator)) |
+ (invsep (ly:context-property context 'chordInversionSeparator)) |
(root-markup (name-root root lowercase-root?)) |
- (add-markups (map (lambda (x) (glue-word-to-step "add" x)) |
+ (add-pitch-prefix (ly:context-property context 'additionalPitchPrefix)) |
+ (add-markups (map (lambda (x) (glue-word-to-step add-pitch-prefix x)) |
Trevor Daniels
2011/09/10 21:49:26
tab
|
addition-pitches)) |
(filtered-alterations (filter-alterations alteration-pitches)) |
(alterations (map name-step filtered-alterations)) |
@@ -183,7 +186,7 @@ work than classifying the pitches." |
suffixes |
add-markups) sep)) |
(base-stuff (if (ly:pitch? bass-pitch) |
- (list sep (name-note bass-pitch #f)) |
+ (list invsep (name-note bass-pitch #f)) |
Trevor Daniels
2011/09/10 21:49:26
tabs
|
'()))) |
(set! base-stuff |