chapter toc

private_includes/book/book_include.ily

@@ -216,6 +216,12 @@ songs =
                        (end (if (null? (cdr chs)) total (cdadr chs)))
                        (cnt (count-bookmark-songs start end)))
                   (loop (cdr chs) (cons (list start title cnt) acc))))))
+        ;; Aktuell aktives Kapitel (Titel-String) waehrend des Durchlaufs. Wird
+        ;; gesetzt, sobald ein Kapitel aktiviert (aus `pending` entfernt) wird --
+        ;; egal ob auf einer Seite (chapter-prefixed-markup) oder auf dem ersten
+        ;; Song. Jeder danach folgende Song erhaelt dieses Kapitel als
+        ;; chapterref-Header-Feld, woraus toc_include.ily den Kapitel-Index baut.
+        (current-chapter #f)
         ;; Stellt einer beliebigen Seite (markup-/image-/emptyPage) den Kapitel-
         ;; Eintrag (chapter-to-pdf-toc) bei, falls an Position `this-index` ein
         ;; Kapitel faellig ist, und entfernt es aus `pending`. So fuehrt die
@@ -230,6 +236,7 @@ songs =
                 (let ((cnt (caddr (car pending)))
                       (title (cadr (car pending))))
                   (set! pending (cdr pending))
+                  (set! current-chapter title)
                   (make-combine-markup
                     base-markup
                     (make-with-dimensions-markup '(0 . 0) '(0 . 0.1)
@@ -275,18 +282,25 @@ songs =
                    (chaptertitle (if (and (pair? pending) (<= (car (car pending)) this-index))
                                      (cadr (car pending)) #f))
                    (chaptercount (if chaptertitle (caddr (car pending)) 0))
+                   ;; Startet das Kapitel erst auf diesem Song (nicht schon auf
+                   ;; einer vorangehenden Seite), wird current-chapter jetzt
+                   ;; gesetzt und pending entfernt -- vor dem Bau des Headers,
+                   ;; damit chapterref bereits das neue Kapitel enthaelt.
+                   (_ (if chaptertitle
+                          (begin (set! current-chapter chaptertitle)
+                                 (set! pending (cdr pending)))))
                    (header #{ \bookpart { $(assq-ref songvars 'header) \header {
                      songfilename = $(symbol->string filename)
                      myindexlabel = #(assq-ref songvars 'label)
                      songnumber = #(number->string newnumber)
                      chaptertitle = #chaptertitle
                      chaptercount = #chaptercount
+                     chapterref = #current-chapter
                    } } #})
                    (music (assq-ref songvars 'music))
                    (layout (assq-ref songvars 'layout))
                    (text-pages (assq-ref songvars 'text-pages))
                    (label (assq-ref songvars 'label)))
-            (if chaptertitle (set! pending (cdr pending)))
             (set! song-number newnumber)
             #{
               \bookpart {