Attached you find two scheme scripts to output chord symbols in German
style using the Lilypond commands \germanChords and \set
ChordNames.chordNameLowercaseMinor = ##t, respectively. Are you
interested to take those scripts over?
Andreas
;;;GermanChords
(let ((tag "GermanChords"))
(if (d-Directive-score? tag)
(d-DirectiveDelete-score tag)
(d-DirectivePut-score-prefix tag
"\\layout { \\germanChords }")));;;ChordMinorLowercase
(let ((tag "ChordMinorLowercase"))
(if (d-Directive-score? tag)
(d-DirectiveDelete-score tag)
(d-DirectivePut-score-prefix tag
"\\layout { \\set ChordNames.chordNameLowercaseMinor = ##t }")))
