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

just real persons for author toc

Browse Source
This commit was merged in pull request #1484.
This commit is contained in:
tux authored and tux committed 2026-10-27 17:43:27 +01:00
1 parent d23524f729
commit 0d9db52750
1 file changed
+5 -2
Download Patch File Download Diff File Expand all files Collapse all files
private_includes/book/toc_include.ily
+5 -2
View File
@@ -318,8 +318,11 @@ indexSection =
(compositionIds (find-author-ids-by 'composition authors)) (compositionIds (find-author-ids-by 'composition authors))
(adaptionIds (find-author-ids-by 'adaption authors)) (adaptionIds (find-author-ids-by 'adaption authors))
(bridgeIds (find-author-ids-by 'bridge authors)) (bridgeIds (find-author-ids-by 'bridge authors))
(interludeIds (find-author-ids-by 'interlude authors))) (interludeIds (find-author-ids-by 'interlude authors))
(delete-duplicates (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)) (append poetIds translatorIds (map car versePoetData) composerIds (map car verseComposerData) refComposerIds (map car voiceComposerData) compositionIds adaptionIds bridgeIds interludeIds))
)) ))
(let* (let*