]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/chord-name-exceptions.ly
Coverage fix: add skyline-debug test.
[lilypond.git] / input / regression / chord-name-exceptions.ly
1 \version "2.10.0"
2 \header {
3
4     texidoc = "The property @code{chordNameExceptions} can used
5     to store a list of special notations for specific chords."
6
7 }
8
9
10                                 % 7sus4 denoted with ^7 wahh
11 chExceptionMusic =  {
12     <c f g bes>1-\markup { \super "7" "wahh" }}
13
14                                 % add to existing exceptions.
15 chExceptions = #(append
16                  (sequential-music-to-chord-exceptions chExceptionMusic #t)
17                  ignatzekExceptions)
18
19 theMusic = \chordmode {
20     c:7sus4 c:dim7/+f
21     \set chordNameExceptions = #chExceptions
22     c:7sus4 c:dim7/+f
23 }
24
25 \layout { ragged-right = ##t }
26
27 << \context ChordNames \theMusic
28    \context Voice \theMusic
29 >>