From f2453ac250fece60689d121673afa6058950e6b7 Mon Sep 17 00:00:00 2001 From: Adam Spiers Date: Thu, 28 Jul 2011 01:06:40 -0700 Subject: [PATCH 5/5] 1503 - Allow choice of prefix for chord modifiers. This was previously "add", e.g. "Cmaj7 add6add9", but this results in too much clutter and is rarely used. --- 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 96d2813..37cd695 100644 --- a/ly/engraver-init.ly +++ b/ly/engraver-init.ly @@ -642,6 +642,7 @@ automatically when an output definition (a @code{\score} or %% chord names: chordNameFunction = #ignatzek-chord-names minorChordModifier = "m" + additionalPitchPrefix = "" % was "add" 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 bf3dac1..0302f35 100644 --- a/scm/chord-ignatzek-names.scm +++ b/scm/chord-ignatzek-names.scm @@ -171,7 +171,8 @@ work than classifying the pitches." (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)) addition-pitches)) (filtered-alterations (filter-alterations alteration-pitches)) (alterations (map name-step filtered-alterations)) diff --git a/scm/define-context-properties.scm b/scm/define-context-properties.scm index 2f7e763..e03cd10 100644 --- a/scm/define-context-properties.scm +++ b/scm/define-context-properties.scm @@ -45,6 +45,8 @@ ;; TODO FIXME (aDueText ,markup? "Text to print at a unisono passage.") + (additionalPitchPrefix ,string? "Text with which to prefix +additional pitches within a chord name.") (alignAboveContext ,string? "Where to insert newly created context in vertical alignment.") (alignBassFigureAccidentals ,boolean? "If true, then the accidentals -- 1.7.0.4