From 0d9db527500e0a36789b7ba840aae6567dbeba4d Mon Sep 17 00:00:00 2001
From: Christoph Wagner <tux@goldenerreiter.org>
Date: Sat, 24 Jan 2026 10:00:47 +0100
Subject: [PATCH] just real persons for author toc

---
 private_includes/book/toc_include.ily | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/private_includes/book/toc_include.ily b/private_includes/book/toc_include.ily
index 1c96cce..2b90d17 100644
--- a/private_includes/book/toc_include.ily
+++ b/private_includes/book/toc_include.ily
@@ -318,8 +318,11 @@ indexSection =
             (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) refComposerIds (map car voiceComposerData) compositionIds adaptionIds bridgeIds interludeIds))
     ))
     (let*