From 973d72301c8f8f5574b17397c18926d4b656470b Mon Sep 17 00:00:00 2001
From: Christoph Wagner <wagner@webit.de>
Date: Thu, 10 Aug 2023 09:39:07 +0200
Subject: [PATCH] =?UTF-8?q?shiftChord=20f=C3=BCr=20manuelle=20Feinjustieru?=
 =?UTF-8?q?ng=20eingef=C3=BChrt=20#1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 chord_settings.ly | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/chord_settings.ly b/chord_settings.ly
index befee4f..8637930 100644
--- a/chord_settings.ly
+++ b/chord_settings.ly
@@ -16,6 +16,12 @@ bchord =
 	\revert ChordName.font-series
 #})
 
+shiftChord = #(define-music-function (parser location xshift chord) (number? ly:music?)
+#{
+	\once \override ChordName.extra-offset = #`(,xshift . 0)
+	$chord
+#})
+
 % kleine Mollakkorde und Alteration ausgeschrieben
 #(define (note-name->german-markup-nosym pitch lowercase?)
    (define (pitch-alteration-semitones pitch) (inexact->exact (round (* (ly:pitch-alteration pitch) 2))))