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

Add meloref to author system

Browse Source
This commit is contained in:
žuk
2026-05-12 10:42:14 +02:00
parent 92a129f346
commit aed11a70a7
3 changed files with 18 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
private_includes/base/footer_with_songinfo.ily
+3 -1
View File
@@ -101,6 +101,7 @@
#:versePoetData (find-author-id-with-part-numbers 'verse authors)
#:composerIds (find-author-ids-by 'melody authors)
#:verseComposerData (find-author-id-with-part-numbers 'meloverse authors)
#:refComposerIds (find-author-ids-by 'meloref authors)
#:voiceComposerData (find-author-id-with-part-numbers 'voice authors)
#:compositionIds (find-author-ids-by 'composition authors)
#:adaptionTextIds (find-author-ids-by 'adaption_text authors)
@@ -110,6 +111,7 @@
#:year_text (chain-assoc-get 'header:year_text props #f)
#:year_translation (chain-assoc-get 'header:year_translation props #f)
#:year_melody (chain-assoc-get 'header:year_melody props #f)
#:year_melody_meloref (chain-assoc-get 'header:year_melody_meloref props #f)
#:year_composition (chain-assoc-get 'header:year_composition props #f)
#:year_adaption_text (chain-assoc-get 'header:year_adaption_text props #f)
#:year_adaption_music (chain-assoc-get 'header:year_adaption_music props #f)
@@ -123,7 +125,7 @@
#:adaptionMusicPrefix (ly:output-def-lookup layout 'adaptionMusicPrefix)
#:bridgePrefix (ly:output-def-lookup layout 'bridgePrefix)
#:interludePrefix (ly:output-def-lookup layout 'interludePrefix)
)
#:refPrefix (ly:output-def-lookup layout 'refPrefix))
(list #f #f)
)
)