Notenbund/lilypond-common-includes
15
0
Fork 0
Code Issues 24 Pull Requests 2 Packages Projects Releases Wiki Activity

Fix double melody year in songinfo

Browse Source
This commit was merged in pull request #1490.
This commit is contained in:
žuk
2026-05-03 22:22:59 +02:00
parent bb940b2a3b
commit 92a129f346
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
private_includes/base/footer_with_songinfo.ily
+1 -1
View File
@@ -143,7 +143,7 @@
(translation (chain-assoc-get 'header:translation props #f)) (translation (chain-assoc-get 'header:translation props #f))
(pronunciation (chain-assoc-get 'header:pronunciation props #f)) (pronunciation (chain-assoc-get 'header:pronunciation props #f))
(year_text (if (string? (car poet-and-composers)) #f (chain-assoc-get 'header:year_text props #f))) (year_text (if (string? (car poet-and-composers)) #f (chain-assoc-get 'header:year_text props #f)))
(year_melody (if (string? (car poet-and-composers)) #f (chain-assoc-get 'header:year_melody props #f)))) (year_melody (if (string? (cadr poet-and-composers)) #f (chain-assoc-get 'header:year_melody props #f))))
(markup (markup
#:override (cons 'songinfo:poet-maybe-with-composer #:override (cons 'songinfo:poet-maybe-with-composer
(if (and poet-maybe-with-composer (not (and (string? poet-maybe-with-composer) (string-null? poet-maybe-with-composer)))) poet-maybe-with-composer #f)) (if (and poet-maybe-with-composer (not (and (string? poet-maybe-with-composer) (string-null? poet-maybe-with-composer)))) poet-maybe-with-composer #f))