Chordpro export

private_includes/base/all.ily

@@ -40,7 +40,6 @@
 \include "chord_settings.ily"
 \include "chordpro.ily"
 \include "transposition.ily"
-\include "markup_tag_groups_hack.ily"
 \include "verses_with_chords.ily"
 \include "arrows_in_scores.ily"
 \include "swing_style.ily"

private_includes/base/chordpro.ily

@@ -115,7 +115,7 @@
          ((char=? first-char #\h)
           (unless (member chord-str chordpro-h-chords-used)
             (set! chordpro-h-chords-used (cons chord-str chordpro-h-chords-used))))
-
+         
          ;; B/b chords (German B = English Bb)
          ((char=? first-char #\B)
           (unless (member chord-str chordpro-b-chords-used)
@@ -123,17 +123,17 @@
          ((char=? first-char #\b)
           (unless (member chord-str chordpro-b-chords-used)
             (set! chordpro-b-chords-used (cons chord-str chordpro-b-chords-used))))
-
+         
          ;; Chords with accidentals (is/es)
          (has-accidental
           (unless (member chord-str chordpro-accidental-chords-used)
             (set! chordpro-accidental-chords-used (cons chord-str chordpro-accidental-chords-used))))
-
+         
          ;; Other lowercase chords (minor without B/H/accidentals)
          ((char-lower-case? first-char)
           (unless (member chord-str chordpro-minor-chords-used)
             (set! chordpro-minor-chords-used (cons chord-str chordpro-minor-chords-used)))))
-
+        
         ;; Always return original
         chord-str)))
 
@@ -486,7 +486,50 @@
                  (cons (list (car pending-syllable) (cadr pending-syllable) #f (caddr pending-syllable))
                        chordpro-syllables-collected))
            (set! pending-syllable #f))
-       )))))
+
+         ;; Write debug output (overwrite each time, final version will be complete)
+         (with-output-to-file "/tmp/chordpro_debug.txt"
+           (lambda ()
+             (display (format #f "ChordPro: Collected ~a syllables, ~a chords (unfiltered), ~a breaks, ~a verses\n"
+                            (length chordpro-syllables-collected)
+                            (length chordpro-chords-collected)
+                            (length chordpro-breaks-collected)
+                            chordpro-current-verse-index))
+             (display "All syllables:\n")
+             (for-each
+               (lambda (syl)
+                 (display (format #f "  V~a: '~a' hyphen=~a at ~a\n"
+                                (cadddr syl) (cadr syl) (if (caddr syl) "YES" "NO") (car syl))))
+               (reverse chordpro-syllables-collected))
+             (newline)
+             (display "Breaks:\n")
+             (for-each
+               (lambda (brk)
+                 (display (format #f "  V~a at ~a\n" (cdr brk) (car brk))))
+               (reverse chordpro-breaks-collected))
+             (newline)
+             (display "All chords (after visibility filtering):\n")
+             (for-each
+               (lambda (chord)
+                 (display (format #f "  V~a: ~a at ~a\n"
+                                (caddr chord) (cadr chord) (car chord))))
+               (reverse chordpro-chords-collected))
+             (newline)
+             (display "Stanza numbers:\n")
+             (for-each
+               (lambda (stanza-entry)
+                 (display (format #f "  V~a: '~a' (type: ~a, real: ~a)\n"
+                                (car stanza-entry) (cadr stanza-entry) (caddr stanza-entry) (cadddr stanza-entry))))
+               (reverse chordpro-stanza-numbers))
+             (newline)
+             (display "Inline texts (repStart/repStop etc.):\n")
+             (for-each
+               (lambda (inline-entry)
+                 (display (format #f "  V~a: '~a' at ~a (dir: ~a)\n"
+                                (cadr inline-entry) (caddr inline-entry) (car inline-entry) (cadddr inline-entry))))
+               (reverse chordpro-inline-texts-collected)))))
+
+       ))))
 
 %% Helper functions to format and write ChordPro
 #(define (chordpro-write-from-engraver-data num-verses)
@@ -510,7 +553,7 @@
         (when (and (defined? 'chordpro-header-authors) chordpro-header-authors)
           (display (format #f "{artist: ~a}\n"
                           (format-chordpro-authors chordpro-header-authors))))
-
+        
         ;; Write {define:} directives for all used minor chords
         (unless (null? chordpro-minor-chords-used)
           (newline)
@@ -520,7 +563,7 @@
               (let ((major-form (german-minor-to-major-form minor-chord)))
                 (display (format #f "{define: ~a copy ~a}\n" minor-chord major-form))))
             (reverse chordpro-minor-chords-used)))
-
+        
         ;; Write {define:} directives for all used B chords (German B = English Bb)
         (unless (null? chordpro-b-chords-used)
           (for-each
@@ -529,7 +572,7 @@
               (let ((bb-form (german-b-to-bb-form b-chord)))
                 (display (format #f "{define: ~a copy ~a}\n" b-chord bb-form))))
             (reverse chordpro-b-chords-used)))
-
+        
         ;; Write {define:} directives for all used H chords (German H = English B)
         (unless (null? chordpro-h-chords-used)
           (for-each
@@ -538,7 +581,7 @@
               (let ((b-form (german-h-to-b-form h-chord)))
                 (display (format #f "{define: ~a copy ~a}\n" h-chord b-form))))
             (reverse chordpro-h-chords-used)))
-
+        
         ;; Write {define:} directives for chords with accidentals (is/es -> #/b)
         (unless (null? chordpro-accidental-chords-used)
           (for-each
@@ -547,7 +590,7 @@
               (let ((intl-form (german-accidentals-to-international accidental-chord)))
                 (display (format #f "{define: ~a copy ~a}\n" accidental-chord intl-form))))
             (reverse chordpro-accidental-chords-used)))
-
+        
         (newline)
 
         ;; Write each verse in reverse order (they were collected backwards)

private_includes/base/markup_tag_groups_hack.ily

@@ -1,13 +0,0 @@
-% We have to record the tag groups for markup, so we use the right tag groups during markup interpretiton.
-recordedTagGroups = #'()
-
-tagGroup =
-#(define-void-function (tags) (symbol-list?)
-   (let ((err (define-tag-group tags)))
-     (if err (ly:parser-error err (*location*))
-         (set! recordedTagGroups (cons tags recordedTagGroups)))))
-
-#(define-markup-command (handle-tag-groups layout props recorded-groups m) (list? markup?)
-   (resetTagGroups)
-   (every (lambda (group) (define-tag-group group)) recorded-groups)
-   (interpret-markup layout props m))

public_includes/layout_bottom.ily

@@ -18,7 +18,6 @@ TEXT = \markuplist {
   \override #`(verselayout . ,verselayout)
   \override #`(verse-chords . ,#{ \chords { \verseChords } #})
   \override #`(verse-reference-voice . ,#{ \global \firstVoice  #})
-  \handle-tag-groups \recordedTagGroups
   \TEXT
 }
 
@@ -30,7 +29,6 @@ TEXT = \markuplist {
         \override #`(verselayout . ,verselayout)
         \override #`(verse-chords . ,#{ \chords { \verseChords } #})
         \override #`(verse-reference-voice . ,#{ \global \firstVoice  #})
-        \handle-tag-groups \recordedTagGroups
         #text
       }
     #})