just real persons for author toc

2026-01-24 16:44:04 +01:00
1 changed files with 5 additions and 2 deletions
--- a/private_includes/book/toc_include.ily
+++ b/private_includes/book/toc_include.ily
@@ -287,8 +287,11 @@ headerToTOC = #(define-music-function (parser location header label) (ly:book? s
            (compositionIds (find-author-ids-by 'composition authors))
            (adaptionIds (find-author-ids-by 'adaption authors))
            (bridgeIds (find-author-ids-by 'bridge authors))
-            (interludeIds (find-author-ids-by 'interlude authors)))
-        (delete-duplicates
+            (interludeIds (find-author-ids-by 'interlude authors))
+            (realAuthorIds (map car AUTHOR_DATA)))
+        (lset-intersection
+          equal?
+          realAuthorIds
          (append poetIds translatorIds (map car versePoetData) composerIds (map car verseComposerData) (map car voiceComposerData) compositionIds adaptionIds bridgeIds interludeIds))
    ))
    (let*