diff --git a/private_includes/base/chord_settings.ily b/private_includes/base/chord_settings.ily index 3150771..a61b617 100644 --- a/private_includes/base/chord_settings.ily +++ b/private_includes/base/chord_settings.ily @@ -80,41 +80,8 @@ capoTranspose = (ly:make-pitch 0 0) chords)) -% kleine Mollakkorde und Alteration ausgeschrieben -#(define (note-name->german-markup-nosym pitch lowercase?) - (define (pitch-alteration-semitones pitch) (inexact->exact (round (* (ly:pitch-alteration pitch) 2)))) - (define (accidental->markup alteration name) - (if (= alteration 0) - (make-line-markup (list empty-markup)) - (if (= alteration FLAT) - (if (equal? name "B") - "" - ; (make-line-markup (list (make-hspace-markup 0.2) - ; (make-tiny-markup (make-raise-markup 1.2 - ; (make-musicglyph-markup (assoc-get alteration standard-alteration-glyph-name-alist "")))) - ; )) - (if (or (equal? name "E") (equal? name "A")) "s" "es")) - "is") - )) - (define (conditional-string-downcase str condition) - (if condition (string-downcase str) str)) - - (let* ((name (ly:pitch-notename pitch)) - (alt-semitones (pitch-alteration-semitones pitch)) - (n-a (if (member (cons name alt-semitones) `((6 . -1) (6 . -2))) - (cons 7 (+ 0 alt-semitones)) - (cons name alt-semitones)))) - (make-line-markup - (list - (make-simple-markup - (conditional-string-downcase - (vector-ref #("C" "D" "E" "F" "G" "A" "H" "B") (car n-a)) - lowercase?)) - (accidental->markup (/ (cdr n-a) 2) (vector-ref #("C" "D" "E" "F" "G" "A" "H" "B") (car n-a)) )))) -) - % additional bass notes should get uppercased -#(define (bassnote-name->german-markup-nosym pitch lowercase?)(note-name->german-markup-nosym pitch #f)) +#(define (bassnote-name->german-markup-nosym pitch lowercase?)((chord-name:name-markup 'deutsch) pitch #f)) defaultChordPrintings = { -\markup { \super "5" } @@ -157,15 +124,14 @@ generalLayout = \layout { \generalLayout \context { \ChordNames - \semiGermanChords \override ChordName.font-size = \songScoreChordFontSize \override ChordName.font-series = \songChordFontSeries \override ChordName.font-family = #'serif chordNameLowercaseMinor = ##t chordChanges = ##t - % eigenen chordRootNamer damit F# = Fis und Gb = Ges (also alteration ausgeschrieben) - chordRootNamer = #note-name->german-markup-nosym + chordRootNamer = #(chord-name:name-markup 'deutsch) chordNoteNamer = #bassnote-name->german-markup-nosym + majorSevenSymbol = "maj7" chordNameExceptions = \chordNameExceptions } @@ -214,4 +180,4 @@ Ignoring_newline_chord_changes_engraver = ((chord-name-interface this-engraver grob source-engraver) (when (and (ly:context-property ctx 'chordChanges #f) (ly:grob-property grob 'begin-of-line-visible #f)) (ly:grob-suicide! grob) - ))))) \ No newline at end of file + ))))) diff --git a/private_includes/book/toc_include.ily b/private_includes/book/toc_include.ily index ce8d882..a2fbfea 100644 --- a/private_includes/book/toc_include.ily +++ b/private_includes/book/toc_include.ily @@ -441,6 +441,6 @@ headerToTOC = #(define-music-function (parser location header label) (ly:book? s ; we use a delayed stencil to have all the page references available (ly:make-stencil `(delay-stencil-evaluation - ,(delay (let* ((table (ly:output-def-lookup layout 'label-page-table))) + ,(delay (let* ((table (ly:output-def-lookup layout 'label-absolute-page-table))) (generate-toc-csv (if (list? table) table '())) empty-stencil)))))