Add meloref to author system

private_includes/base/default_songinfo_style.ily

@@ -7,6 +7,7 @@
   poetAndComposerEqualPrefix = "Worte und Weise:"
   voicePrefix = "Stimme:"
   versePrefix = "Strophe:"
+  refPrefix = "Refrain:"
   translationAuthorPrefix = "Übersetzung:"
   translationPrefix = "Übersetzung:"
   pronunciationPrefix = "Aussprache:"
@@ -39,6 +40,7 @@
         (versePoetData '())
         (composerIds '())
         (verseComposerData '())
+        (refComposerIds '())
         (voiceComposerData '())
         (compositionIds '())
         (adaptionTextIds '())
@@ -48,6 +50,7 @@
         (year_text #f)
         (year_translation #f)
         (year_melody #f)
+        (year_melody_meloref #f)
         (year_composition #f)
         (year_adaption_text #f)
         (year_adaption_music #f)
@@ -60,12 +63,14 @@
         (adaptionTextPrefix "")
         (adaptionMusicPrefix "")
         (bridgePrefix "")
-        (interludePrefix ""))
+        (interludePrefix "")
+        (refPrefix ""))
       (if (and
             (equal? poetIds composerIds)
             (null? translatorIds)
             (null? versePoetData)
             (null? verseComposerData)
+            (null? refComposerIds)
             (null? voiceComposerData)
             (null? compositionIds)
             (null? adaptionTextIds)
@@ -104,6 +109,7 @@
                 (null? compositionIds)
                 (null? adaptionMusicIds)
                 (null? verseComposerData)
+                (null? refComposerIds)
                 (null? voiceComposerData)
                 (null? bridgeIds)
                 (null? interludeIds)) #f
@@ -116,6 +122,10 @@
                   year_melody
                 ) ", ")
                 (render-partial-contribution-group 'versePrefix verseComposerData)
+                (join-present (list
+                  (render-contribution-group refPrefix refComposerIds)
+                  year_melody_meloref
+                ) ", ")
                 (render-partial-contribution-group 'voicePrefix voiceComposerData)
                 (join-present (list
                   (render-contribution-group compositionPrefix compositionIds)

private_includes/base/footer_with_songinfo.ily

@@ -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)
     )
   )