unknown author and shiftChords

2024-02-16 20:00:10 +01:00
parent e72efbd156
commit 395e959432
2 changed files with 7 additions and 1 deletions
--- a/chord_settings.ly
+++ b/chord_settings.ly
@ -32,6 +32,12 @@ shiftChord = #(define-music-function (parser location xshift chord) (number? ly:
 	$chord
 #})

+shiftChords = #(define-music-function (parser location xshift chords) (number? ly:music?)
+#{
+	\override ChordName.extra-offset = #`(,xshift . 0)
+	$chords
+#})
+
 % 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))))