Chordpro export

private_includes/base/chordpro.ily

@@ -218,7 +218,7 @@
 #(define chordpro-accidental-chords-used '())
 
 %% Configuration and metadata (set by layout_bottom.ily or song file)
-#(define chordpro-export-enabled #f)
+#(define chordpro-export-enabled #t)
 #(define chordpro-current-filename "output")
 #(define chordpro-header-title "Untitled")
 #(define chordpro-header-authors #f)

private_includes/base/transposition.ily

@@ -2,12 +2,7 @@ TRANSPOSITION = #(cons #f #f)
 
 transposeGlobal =
 #(define-void-function (from to) (ly:pitch? ly:pitch?)
-   (if (not (car TRANSPOSITION))
-       (set! TRANSPOSITION (cons from to))
-       (let ((current_to (cdr TRANSPOSITION))
-             (interval (ly:pitch-diff to from)))
-         (set! TRANSPOSITION (cons (car TRANSPOSITION) 
-                                    (ly:pitch-transpose current_to interval))))))
+   (set! TRANSPOSITION (cons from to)))
 
 transposable =
 #(define-music-function (fromto music) (pair? ly:music?)

private_includes/book/toc_include.ily

@@ -287,11 +287,8 @@ 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))
-            (realAuthorIds (map car AUTHOR_DATA)))
-        (lset-intersection
-          equal?
-          realAuthorIds
+            (interludeIds (find-author-ids-by 'interlude authors)))
+        (delete-duplicates
           (append poetIds translatorIds (map car versePoetData) composerIds (map car verseComposerData) (map car voiceComposerData) compositionIds adaptionIds bridgeIds interludeIds))
     ))
     (let*