Mehrere Lieder auf eine Seite

public_includes/layout_bottom.ily

@@ -1,5 +1,10 @@
 MUSIC = { \transposable #TRANSPOSITION \MUSIC }
 
+%% Eingebettete Lieder (siehe embedded_songs.ily) im Header des Hauptlieds
+%% vermerken, daraus bauen Footer, PDF-Lesezeichen und Verzeichnisse.
+#(if (and (pair? EMBEDDED_SONGS) (ly:book? HEADER) (ly:book-header HEADER))
+  (module-define! (ly:book-header HEADER) 'embeddedsongs EMBEDDED_SONGS))
+
 LAYOUT = \layout {
   \LAYOUT
   #(customized-layout LAYOUT)
@@ -79,18 +84,21 @@ TEXT = \markuplist {
     (let ((output-name (ly:parser-output-name)))
       (set! chordpro-current-filename output-name))
 
-    ;; Try to extract metadata from basicSongInfo \header block
-    (when (defined? 'basicSongInfo)
-      (let* ((header-alist (ly:module->alist basicSongInfo))
-             (title (assoc-ref header-alist 'title))
-             (authors (assoc-ref header-alist 'authors)))
-        (when title
-          (set! chordpro-header-title
-                (if (markup? title)
-                    (markup->string title)
-                    (if (string? title) title "Untitled"))))
-        (when authors
-          (set! chordpro-header-authors authors)))))
+    ;; Try to extract metadata from the HEADER (falls back to basicSongInfo)
+    (let ((header-module (if (and (ly:book? HEADER) (ly:book-header HEADER))
+                             (ly:book-header HEADER)
+                             (and (defined? 'basicSongInfo) basicSongInfo))))
+      (when header-module
+        (let* ((header-alist (ly:module->alist header-module))
+               (title (assoc-ref header-alist 'title))
+               (authors (assoc-ref header-alist 'authors)))
+          (when title
+            (set! chordpro-header-title
+                  (if (markup? title)
+                      (markup->string title)
+                      (if (string? title) title "Untitled"))))
+          (when authors
+            (set! chordpro-header-authors authors))))))
 
   (add-score #{
     \score {