transposeGlobal kann ganzen Song transponieren

general_include.ly

@@ -12,9 +12,11 @@
 \include "footer_with_songinfo.ly"
 \include "auto_rest_merging.ly"
 \include "chord_settings.ly"
+\include "transposition.ly"
 \include "verses_with_chords.ly"
 \include "arrows_in_scores.ly"
 \include "swing_style.ly"
+\include "inline_score.ly"
 
 % reset important variables
 LAYOUT = \layout { \generalLayout }

inline_score.ly

@@ -0,0 +1,5 @@
+inline-score =
+#(define-music-function (music) (ly:music?)
+    #{
+      \transposable #music
+    #})

standalone_output.ly

@@ -1,6 +1,8 @@
 % set the speed of the midi music
 #(define midiQuarterNoteSpeed (if (defined? 'midiQuarterNoteSpeed) midiQuarterNoteSpeed 90))
 
+MUSIC = { \transposable \MUSIC }
+
 % nur Output wenn noStandaloneOutput auf false steht
 output = #(if (not noStandaloneOutput)
 #{

transposition.ly

@@ -0,0 +1,13 @@
+TRANSPOSITION = ##f
+
+transposeGlobal =
+#(define-void-function (from to) (ly:pitch? ly:pitch?)
+   (set! TRANSPOSITION (cons from to)))
+
+transposable =
+#(define-music-function (music) (ly:music?)
+  (if TRANSPOSITION
+    #{
+      \transpose #(car TRANSPOSITION) #(cdr TRANSPOSITION) #music
+    #}
+    music))

verses_with_chords.ly

@@ -119,7 +119,7 @@
                (regexp-substitute/global #f "\\(( *)([^,()]*)( *),([^)]*)\\)"
                  (regexp-substitute/global #f "(([^ \n]*\\([^()]*\\)[^ \n]*)+)" verse
                                          'pre " \\concat { " 1 " } " 'post)
-                'pre "\\textup \\line { \"" 1 "\" " 2 " \"" 3 "\" } \\score { " transp " \\chords { s4 " 4 " } \\layout { \\verseChordLayout } }" 'post))
+                'pre "\\textup \\line { \"" 1 "\" " 2 " \"" 3 "\" } \\score { \\transposable " transp " \\chords { s4 " 4 " } \\layout { \\verseChordLayout } }" 'post))
      ))))
 
 % Kompletter Vers aus dem Akkorde entfernt werden