Chordpro export

public_includes/layout_bottom.ily

@@ -39,6 +39,20 @@ TEXT = \markuplist {
     TEXT_PAGES
     (list TEXT))))
 
+%% Add invisible ChordPro write trigger to last TEXT_PAGES markuplist
+#(when (and (defined? 'chordpro-export-enabled) chordpro-export-enabled (pair? TEXT_PAGES))
+  (let* ((last-index (- (length TEXT_PAGES) 1))
+         (last-page (list-ref TEXT_PAGES last-index))
+         (modified-last-page #{
+           \markuplist {
+             #last-page
+             \chordpro-delayed-write
+           }
+         #}))
+    (set! TEXT_PAGES
+      (append (list-head TEXT_PAGES last-index)
+              (list modified-last-page)))))
+
 #(define (add-text-pages text-pages)
   (if (pair? text-pages)
     (begin
@@ -55,12 +69,34 @@ TEXT = \markuplist {
     (if header (set! $defaultheader header))
     (if paper (set! $defaultpaper paper))
   )
+
+  ;; ChordPro export: Store filename and extract metadata from basicSongInfo FIRST
+  (when (and (defined? 'chordpro-export-enabled) chordpro-export-enabled)
+    ;; Use ly:parser-output-name which returns the output basename
+    ;; This will write relative to current working directory (same as PDF)
+    (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)))))
+
   (add-score #{
     \score {
       \MUSIC
       \layout { \LAYOUT }
     }#})
   (add-text-pages TEXT_PAGES)
+
   (add-score #{
     \score {
       \unfoldRepeats { \MUSIC \INLINESCOREMUSIC }
@@ -75,4 +111,4 @@ TEXT = \markuplist {
         }
       }
     }#})
-))
+))