From 199f515be9c601d684fdda9fb5fec6410f94ba61 Mon Sep 17 00:00:00 2001
From: Christoph Wagner <tux@goldenerreiter.org>
Date: Sun, 12 May 2024 16:13:56 +0200
Subject: [PATCH] fix verse-chord multiple transpose problem

---
 verses_with_chords.ly | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/verses_with_chords.ly b/verses_with_chords.ly
index 396b71b..7537c9b 100644
--- a/verses_with_chords.ly
+++ b/verses_with_chords.ly
@@ -232,12 +232,12 @@
     #{
       \markup {
         \override #`(baseline-skip . ,intraverse-vspace)
-        \pad-left #-10
+        \pad-left #-5
         \score-equal-height #verse-line-height \score-lines {
           \transposable
           <<
             \new Devnull { #(if (ly:music? verse-break-voice) verse-break-voice) }
-            #(if (ly:music? verse-chords) verse-chords #{ \chords { \verseChords } #})
+            #(if (ly:music? verse-chords) (music-clone verse-chords) #{ \chords { \verseChords } #})
             \new NullVoice { #(if (ly:music? verse-reference-voice) verse-reference-voice #{ \global \firstVoice #}) }
             \addlyrics { #lyrics }
           >>
@@ -245,7 +245,7 @@
             \lyricsWithChordsLayout
             \context {
               \Staff
-              \override LeftEdge.space-alist.first-note = #'(fixed-space . 10.0)
+              \override LeftEdge.space-alist.first-note = #'(fixed-space . 5.0)
             }
           }
         }