set spacing for rests in chordlyrics

chord_settings.ly

@@ -38,32 +38,6 @@ 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))))

footer_with_songinfo.ly

@@ -104,10 +104,7 @@
             )
         (if (and (equal? poetIds composerIds) (null? translatorIds) (null? versePoetData) (null? verseComposerData) (null? voiceComposerData) (null? compositionIds) (null? bridgeIds) (null? interludeIds))
           (list
-            (join-present (list
             (render-contribution-group (ly:output-def-lookup layout 'poetAndComposerEqualPrefix) poetIds)
-              (if (equal? year_text year_melody) year_text (join-present (list year_text year_melody) "/"))
-            ) ", ")
             #f)
           (list
             (if (and (null? poetIds) (null? versePoetData) (null? translatorIds)) #f

toc_include.ly

@@ -167,11 +167,11 @@
                (reverse (map (lambda (m)
                                (make-size-box-to-box-markup #f #t m target-size-markup))
                           (cons
-                           (make-with-link-symbol-ref-markup 'index:label (make-fill-with-pattern-markup 1 RIGHT "." (car revlist) page))
+                           (make-fill-with-pattern-markup 1 RIGHT "." (car revlist) page)
                            (cdr revlist)))))))))
 
 \paper {
-  indexItemMarkup = \markup {
+  indexItemMarkup = \markup \with-link-symbol-ref #'index:label {
     \index-item-with-pattern
   }
   indexSectionMarkup = \markup \override #'(baseline-skip . 1.5) \left-column {

verses_with_chords.ly

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