From 958efca6aa90d7ff0dd39ae018c05a11bd90da42 Mon Sep 17 00:00:00 2001
From: tux <tux@goldenerreiter.org>
Date: Thu, 18 Jul 2024 23:04:38 +0200
Subject: [PATCH] set spacing for rests in chordlyrics

---
 verses_with_chords.ly | 25 ++++++++++++++++++-------
 1 file changed, 18 insertions(+), 7 deletions(-)

diff --git a/verses_with_chords.ly b/verses_with_chords.ly
index 9ca6212..2783dee 100644
--- a/verses_with_chords.ly
+++ b/verses_with_chords.ly
@@ -253,21 +253,17 @@
     #{
       \markup {
         \override #`(baseline-skip . ,intraverse-vspace)
-        \pad-left #-7
         \score-equal-height #verse-line-height \score-lines {
           \transposable #transposition
           <<
             \new Devnull { #verse-break-voice }
+            \new NullVoice = "dummyvoice" { #verse-reference-voice }
             #(music-clone verse-chords)
-            \new NullVoice { #verse-reference-voice }
-            \addlyrics { #lyrics }
+            \new Lyrics \lyricsto "dummyvoice" { #lyrics }
           >>
           \layout {
             \verselayout
-            \context {
-              \Staff
-              \override LeftEdge.space-alist.first-note = #'(fixed-space . 7.0)
-            }
+            ragged-right = ##t
             \context {
               \Lyrics
               \override VerticalAxisGroup.nonstaff-relatedstaff-spacing.basic-distance = #verse-text-chord-distance
@@ -277,9 +273,15 @@
               \override LyricSpace.minimum-distance = 0.8
               \override LyricText.stencil = #custom-lyric-text::print
             }
+            \context {
+              \ChordNames
+              \override VerticalAxisGroup.staff-affinity = ##f
+              \override ChordName.extra-spacing-width = #'(-0.1 . 0.1)
+            }
             \context {
               \Score
               \override PaperColumn.keep-inside-line = ##f
+             % \override SpacingSpanner.strict-note-spacing = ##t
               \override SpacingSpanner.uniform-stretching = ##t
               \override SpacingSpanner.spacing-increment = 0
               \remove Bar_number_engraver
@@ -292,6 +294,8 @@
               \remove Staff_symbol_engraver
               \remove Clef_engraver
               \remove Time_signature_engraver
+              \remove Bar_engraver
+              \remove Separating_line_group_engraver
               \omit KeySignature
               \omit KeyCancellation
             }
@@ -306,6 +310,13 @@
               \remove Dynamic_engraver
               \remove Note_heads_engraver
             }
+            \context {
+              \NullVoice
+              \consists Rest_engraver
+              \omit Rest
+             % \undo \omit NoteHead
+             % \hide NoteHead
+            }
           }
         }
       }