better override system

This commit is contained in:
tux 2023-07-24 08:39:30 +02:00
parent 5a2ead5510
commit 8e6eff1cad
3 changed files with 9 additions and 15 deletions

View File

@ -3,6 +3,8 @@
\include "styles.ly"
\include #(ly:format "styles/~a.ly" songStyle)
\include #(if (defined? 'customStyleOverridesFile) customStyleOverridesFile "void.ly")
#(set-default-paper-size songFormatAndSize)
#(set-global-staff-size globalSize)

View File

@ -52,6 +52,12 @@ bchord =
% additional bass notes should get uppercased
#(define (bassnote-name->german-markup-nosym pitch lowercase?)(note-name->german-markup-nosym pitch #f))
#(define chordNameExceptions
(if (defined? 'customChordPrintings)
(sequential-music-to-chord-exceptions customChordPrintings #t)
'()))
generalLayout = \layout {
\generalLayout
\context {
@ -66,6 +72,7 @@ generalLayout = \layout {
chordRootNamer = #note-name->german-markup-nosym
chordNoteNamer = #bassnote-name->german-markup-nosym
majorSevenSymbol = "maj7"
chordNameExceptions = \chordNameExceptions
% der baseline-skip der Akkorde beeinflusst, wie hoch die Hochstellung ist
\override ChordName.baseline-skip = #1.0
}

View File

@ -1,15 +0,0 @@
generalLayout = \layout {
\generalLayout
\context {
\ChordNames
chordNameExceptions = #(sequential-music-to-chord-exceptions customChordPrintings #t)
}
}
verseChordLayout = \layout {
\verseChordLayout
\context {
\ChordNames
chordNameExceptions = #(sequential-music-to-chord-exceptions customChordPrintings #t)
}
}