unknown author and shiftChords
This commit is contained in:
parent
e72efbd156
commit
395e959432
@ -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))))
|
||||
|
@ -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)))
|
||||
|
Loading…
Reference in New Issue
Block a user