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 #1484

Open
tux wants to merge 1 commits from filter-authors into main
pull from: filter-authors
merge into: Notenbund:main
Conversation 0 Commits 1 Files Changed 1 +5 -2
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))
(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*