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

Compare commits

base: Notenbund:chordpro
Branches Tags
Notenbund:main Notenbund:chordpro Notenbund:filter-authors Notenbund:chord-spacing-experimental Notenbund:tocSubtitleText-Variable
...
compare: Notenbund:7ed0e43b186a4aaed817960198271713b67386a6
Branches Tags
Notenbund:chordpro Notenbund:main Notenbund:filter-authors Notenbund:chord-spacing-experimental Notenbund:tocSubtitleText-Variable

1 Commits
chordpro ... 7ed0e43b18

Author SHA1 Message Date
Christoph Wagner
7ed0e43b18 just real persons for author toc 2026-01-24 16:44:04 +01:00
1 changed files with 5 additions and 2 deletions
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*