add default chordName exceptions
This commit is contained in:
parent
9a9ef8e8df
commit
57bcf94167
@ -104,11 +104,42 @@ altChord =
|
||||
% additional bass notes should get uppercased
|
||||
#(define (bassnote-name->german-markup-nosym pitch lowercase?)(note-name->german-markup-nosym pitch #f))
|
||||
|
||||
defaultChordPrintings = {
|
||||
<c g>-\markup { \super "5" }
|
||||
%% Dur
|
||||
<c e g a>-\markup { \super "6" } %Standardverhalten
|
||||
<c e a >-\markup { \super "6(no5)" }
|
||||
<c e g a d'>-\markup { \super "6/9" }
|
||||
<c e g b d'>-\markup { \super "9" } %Standardverhalten
|
||||
<c e g b d' f'>-\markup { \super "11" } %Standardverhalten
|
||||
<c e g b d' a'>-\markup { \super "13" }
|
||||
%add chords
|
||||
<c e g d'>-\markup { \super "add9" }
|
||||
<c e g f'>-\markup { \super "add11" }
|
||||
<c e g a'>-\markup { \super "add13" }
|
||||
%major chords
|
||||
<c e g h d'>-\markup { \super "maj9" }
|
||||
%% Moll
|
||||
<c es g a>-\markup { \super "6" } %Standardverhalten
|
||||
<c es a >-\markup { \super "6(no5)" }
|
||||
<c es g a d'>-\markup { \super "6/9" }
|
||||
<c es g b d'>-\markup { \super "9" } %Standardverhalten
|
||||
<c es g b d' f'>-\markup { \super "11" } %Standardverhalten
|
||||
<c es g b d' a'>-\markup { \super "13" }
|
||||
%add chords
|
||||
<c es g d'>-\markup { \super "add9" }
|
||||
<c es g f'>-\markup { \super "add11" }
|
||||
<c es g a'>-\markup { \super "add13" }
|
||||
%major chords
|
||||
<c es g h d'>-\markup { \super "maj9" }
|
||||
}
|
||||
|
||||
#(define chordNameExceptions
|
||||
(if (defined? 'customChordPrintings)
|
||||
(sequential-music-to-chord-exceptions customChordPrintings #t)
|
||||
'()))
|
||||
(append
|
||||
(if (defined? 'customChordPrintings)
|
||||
(sequential-music-to-chord-exceptions customChordPrintings #t)
|
||||
'())
|
||||
(sequential-music-to-chord-exceptions defaultChordPrintings #t)))
|
||||
|
||||
generalLayout = \layout {
|
||||
\generalLayout
|
||||
|
@ -22,12 +22,13 @@ refStringWithNumbers = "Ref. ~a:"
|
||||
% hübsche Wiederholungszeichen für den Liedtext
|
||||
repStart = "𝄆"
|
||||
repStop = "𝄇"
|
||||
customChordPrintings = {}
|
||||
|
||||
\paper {
|
||||
cueMarkup = \markup {
|
||||
\italic
|
||||
#(make-on-the-fly-markup (lambda (layout props m)
|
||||
(interpret-markup layout props
|
||||
(interpret-markup layout props
|
||||
(string-join (map (lambda (n) (format #f "~@r." n)) (chain-assoc-get 'cues props)) ", ")))
|
||||
(make-null-markup))
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user