boernel/lilypond-common-includes
10
0
Fork 0
Code Issues 10 Pull Requests Packages Projects Releases Wiki Activity

unknown author and shiftChords

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
chord_settings.ly
View File

@ -32,6 +32,12 @@ shiftChord = #(define-music-function (parser location xshift chord) (number? ly:
$chord $chord
#}) #})
shiftChords = #(define-music-function (parser location xshift chords) (number? ly:music?)
#{
\override ChordName.extra-offset = #`(,xshift . 0)
$chords
#})
% kleine Mollakkorde und Alteration ausgeschrieben % kleine Mollakkorde und Alteration ausgeschrieben
#(define (note-name->german-markup-nosym pitch lowercase?) #(define (note-name->german-markup-nosym pitch lowercase?)
(define (pitch-alteration-semitones pitch) (inexact->exact (round (* (ly:pitch-alteration pitch) 2)))) (define (pitch-alteration-semitones pitch) (inexact->exact (round (* (ly:pitch-alteration pitch) 2))))

2
footer_with_songinfo.ly
View File

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