From f9ecf98833f416412f377123745d912b3b43339a Mon Sep 17 00:00:00 2001 From: Adam Spiers Date: Thu, 28 Jul 2011 01:05:12 -0700 Subject: [PATCH 4/5] Issue 1503 - Allow choice of minor chord modifier. For example, often it is preferred to use a hyphen instead of "m". This can now be achieved via: \set minorChordModifier = \markup { "-" } --- ly/engraver-init.ly | 1 + scm/chord-ignatzek-names.scm | 3 ++- scm/define-context-properties.scm | 2 ++ 3 files changed, 5 insertions(+), 1 deletions(-) diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly index 013f41a..96d2813 100644 --- a/ly/engraver-init.ly +++ b/ly/engraver-init.ly @@ -641,6 +641,7 @@ automatically when an output definition (a @code{\score} or %% chord names: chordNameFunction = #ignatzek-chord-names + minorChordModifier = "m" majorSevenSymbol = #whiteTriangleMarkup chordNameLowercaseMinor = ##f chordNameSeparator = #(make-hspace-markup 0.5) diff --git a/scm/chord-ignatzek-names.scm b/scm/chord-ignatzek-names.scm index 08eb118..bf3dac1 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) diff --git a/scm/define-context-properties.scm b/scm/define-context-properties.scm index 9df745d..2f7e763 100644 --- a/scm/define-context-properties.scm +++ b/scm/define-context-properties.scm @@ -375,6 +375,8 @@ page turn to be allowed.") (minimumRepeatLengthForPageTurn ,ly:moment? "Minimum length of a repeated section for a page turn to be allowed within that section.") + (minorChordModifier ,markup? "How should minor chords be formatted +in a chord name?") (noChordSymbol ,markup? "Markup to be displayed for rests in a ChordNames context.") -- 1.7.0.4