unknown author and shiftChords

This commit is contained in:
Christoph Wagner 2024-02-16 20:00:10 +01:00
parent e72efbd156
commit 395e959432
2 changed files with 7 additions and 1 deletions

View File

@ -32,6 +32,12 @@ shiftChord = #(define-music-function (parser location xshift chord) (number? ly:
$chord
#})
shiftChords = #(define-music-function (parser location xshift chords) (number? ly:music?)
#{
\override ChordName.extra-offset = #`(,xshift . 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))))

View File

@ -16,7 +16,7 @@
(assoc-ref author "death_year")
(assoc-ref author "organization")
)
(ly:warning (ly:format "author with id ~a not found" authorId)))))
"unbekannt")))
(define (format-poet poetId)
(string-append (ly:output-def-lookup layout 'poetPrefix) " " (format-author poetId #f)))