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

just real persons for author toc

Browse Source
This commit is contained in:
Christoph Wagner
2026-01-24 10:00:47 +01:00
parent 71c8c0385c
commit 782b8d3fd7
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
private_includes/book/toc_include.ily
View File

@@ -287,8 +287,11 @@ headerToTOC = #(define-music-function (parser location header label) (ly:book? s
(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) (map car voiceComposerData) compositionIds adaptionIds bridgeIds interludeIds)) (append poetIds translatorIds (map car versePoetData) composerIds (map car verseComposerData) (map car voiceComposerData) compositionIds adaptionIds bridgeIds interludeIds))
)) ))
(let* (let*