Alternativchords mit Klammern

chord_settings.ly

@@ -38,6 +38,32 @@ shiftChords = #(define-music-function (parser location xshift chords) (number? l
 	$chords
 #})
 
+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 }
+      \layout {
+        \LAYOUT
+        \context {
+          \ChordNames
+          \override ChordName.extra-spacing-width = #'(0 . 0.3)
+        }
+        \context {
+          \Score
+          \override SpacingSpanner.spacing-increment = 0
+        }
+      }
+    }
+  }
+#})
+#{
+  \once \set chordNameFunction = #chord-namer
+	#mainchord
+#})
+
 % 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))))

verses_with_chords.ly

@@ -276,6 +276,7 @@
             \context {
               \ChordNames
               \override VerticalAxisGroup.staff-affinity = ##f
+              \override ChordName.extra-spacing-width = #'(-0.1 . 0.1)
             }
             \context {
               \Score
@@ -313,8 +314,8 @@
               \NullVoice
               \consists Rest_engraver
               \omit Rest
-              \undo \omit NoteHead
-              \hide NoteHead
+             % \undo \omit NoteHead
+             % \hide NoteHead
             }
           }
         }