fix altChord for SVG Output

chord_settings.ly

@@ -40,30 +40,33 @@ shiftChords = #(define-music-function (parser location xshift chords) (number? l
 
 altChord =
 #(define-music-function (parser location mainchord altchord) (ly:music? ly:music?)
-(define (chord-namer in-pitches bass inversion context)
+  (let* ((remove-point-and-click
-#{
+           (lambda (grob)
-  \markup {
+             (ly:grob-set-property! grob 'cause #f)
-    \translate #'(-0.5 . 0)
+             (ly:text-interface::print grob)))
-    \score {
+         (chord-name (lambda (in-pitches bass inversion context) #{
-      \chords { \transposable #TRANSPOSITION { #(music-clone mainchord) \klamm #(music-clone altchord) } }
+           \markup {
-      \layout {
+             \translate #'(-0.5 . 0)
-        \LAYOUT
+             \score {
-        \context {
+               \chords { \transposable #TRANSPOSITION { #(music-clone mainchord) \klamm #(music-clone altchord) } }
-          \ChordNames
+               \layout {
-          \override ChordName.extra-spacing-width = #'(0 . 0.3)
+                 \LAYOUT
-        }
+                 \context {
-        \context {
+                   \ChordNames
-          \Score
+                   \override ChordName.extra-spacing-width = #'(0 . 0.3)
-          \override SpacingSpanner.spacing-increment = 0
+                   \override ChordName.stencil = #remove-point-and-click
-        }
+                 }
-      }
+                 \context {
-    }
+                   \Score
-  }
+                   \override SpacingSpanner.spacing-increment = 0
-#})
+                 }
-#{
+               }
-  \once \set chordNameFunction = #chord-namer
+             }
-	#mainchord
+           }#})))
-#})
+    #{
+      \once \set chordNameFunction = #chord-name
+      #mainchord
+    #}))
 
 % kleine Mollakkorde und Alteration ausgeschrieben
 #(define (note-name->german-markup-nosym pitch lowercase?)