From 140bc611d172abd7cb6571fb299a5eddc464cac2 Mon Sep 17 00:00:00 2001
From: tux <tux@goldenerreiter.org>
Date: Thu, 17 Apr 2025 20:22:21 +0200
Subject: [PATCH] fix altChord transposition

---
 chord_settings.ly | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/chord_settings.ly b/chord_settings.ly
index e62089b..64866c2 100644
--- a/chord_settings.ly
+++ b/chord_settings.ly
@@ -38,13 +38,14 @@ shiftChords = #(define-music-function (parser location xshift chords) (number? l
 	$chords
 #})
 
-altChord = #(define-music-function (parser location mainchord altchord) (ly:music? ly:music?)
+altChord =
+#(define-music-function (parser location mainchord altchord) (ly:music? ly:music?)
 (define (chord-namer in-pitches bass inversion context)
 #{
   \markup {
     \translate #'(-0.5 . 0)
     \score {
-      \chords { #mainchord \klamm #altchord }
+      \chords { \transposable #TRANSPOSITION { #(music-clone mainchord) \klamm #(music-clone altchord) } }
       \layout {
         \LAYOUT
         \context {