From 05c0f172f441661b3fa5c21483e8350e5c93b0b0 Mon Sep 17 00:00:00 2001 From: Christoph Wagner 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 ce8d882..dbd59ca 100644 --- 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 + eq? + realAuthorIds (append poetIds translatorIds (map car versePoetData) composerIds (map car verseComposerData) (map car voiceComposerData) compositionIds adaptionIds bridgeIds interludeIds)) )) (let*