diff --git a/chord_settings.ly b/chord_settings.ly index 9db4688..f6fedcc 100644 --- a/chord_settings.ly +++ b/chord_settings.ly @@ -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)))) diff --git a/footer_with_songinfo.ly b/footer_with_songinfo.ly index 962652a..a99bf95 100644 --- a/footer_with_songinfo.ly +++ b/footer_with_songinfo.ly @@ -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)))