just real persons for author toc

private_includes/base/all.ily

@@ -56,5 +56,3 @@ TEXT_PAGES = #f
 verseChords = {}
 firstVoice = {}
 global = {}
-
-\resetTagGroups

private_includes/base/title_with_category_images.ily

@@ -1,5 +1,6 @@
 #(define-markup-command (bookTitleMarkupCustom layout props)()
-   (interpret-markup layout props
+   (interpret-markup layout
+     (prepend-alist-chain 'songfilename (chain-assoc-get 'header:songfilename props "") props)
      (make-column-markup
        (list
          (make-vspace-markup (chain-assoc-get 'header:titletopspace props 0))
@@ -37,24 +38,23 @@
       ;'(0 . 0) '(0 . 0)
       )))
 
-#(define-markup-command (build-full-title layout props right)(boolean?)
-   (interpret-markup layout (prepend-alist-chain 'songfilename (chain-assoc-get 'header:songfilename props "") props)
+#(define-markup-command (title-with-category-images layout props right)(boolean?)
+   (interpret-markup layout props
      (let* ((title (chain-assoc-get 'header:title props ""))
             (starttext (chain-assoc-get 'header:starttext props #f))
-            (pdfbookmark (if starttext (string-append starttext " | " title) title))
-            (title-markup (ly:output-def-lookup layout (if right 'oddTitleLineMarkup 'evenTitleLineMarkup))))
+            (pdfbookmark (if starttext (string-append starttext " | " title) title)))
      (if title
-       (markup #:title-to-pdf-toc pdfbookmark title-markup)
-       make-null-markup)
+       (if right
+         #{\markup { \title-to-pdf-toc #pdfbookmark \fill-line \general-align #Y #UP { \null \bookTitleMarkupCustom \category-images } } #}
+         #{\markup { \title-to-pdf-toc #pdfbookmark \fill-line \general-align #Y #UP { \category-images \bookTitleMarkupCustom \null } } #})
+      #{ \markup { " " } #})
      )))
 
 \paper {
   bookTitleMarkup = \markup \null
   scoreTitleMarkup = \markup \null
-  oddHeaderMarkup = \markup { \if \on-first-page-of-part \build-full-title ##t }
-  evenHeaderMarkup = \markup { \if \on-first-page-of-part \build-full-title ##f }
-  oddTitleLineMarkup = \markup { \fill-line \general-align #Y #UP { \null \bookTitleMarkupCustom \category-images } }
-  evenTitleLineMarkup = \markup { \fill-line \general-align #Y #UP { \category-images \bookTitleMarkupCustom \null } }
+  oddHeaderMarkup = \markup { \if \on-first-page-of-part \title-with-category-images ##t }
+  evenHeaderMarkup = \markup { \if \on-first-page-of-part \title-with-category-images ##f }
   defaultTitleMarkup = \markup {
     \override #'(baseline-skip . 3.5)
     \center-column {
@@ -63,4 +63,4 @@
       \smaller \bold \fromproperty #'header:subsubtitle
     }
   }
-}
+}

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
+          equal?
+          realAuthorIds
           (append poetIds translatorIds (map car versePoetData) composerIds (map car verseComposerData) (map car voiceComposerData) compositionIds adaptionIds bridgeIds interludeIds))
     ))
     (let*