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))))

verses_with_chords.ly

@@ -253,17 +253,21 @@
     #{
       \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 Lyrics \lyricsto "dummyvoice" { #lyrics }
+            \new NullVoice { #verse-reference-voice }
+            \addlyrics { #lyrics }
           >>
           \layout {
             \verselayout
-            ragged-right = ##t
+            \context {
+              \Staff
+              \override LeftEdge.space-alist.first-note = #'(fixed-space . 7.0)
+            }
             \context {
               \Lyrics
               \override VerticalAxisGroup.nonstaff-relatedstaff-spacing.basic-distance = #verse-text-chord-distance
@@ -273,15 +277,9 @@
               \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
@@ -294,8 +292,6 @@
               \remove Staff_symbol_engraver
               \remove Clef_engraver
               \remove Time_signature_engraver
-              \remove Bar_engraver
-              \remove Separating_line_group_engraver
               \omit KeySignature
               \omit KeyCancellation
             }
@@ -310,13 +306,6 @@
               \remove Dynamic_engraver
               \remove Note_heads_engraver
             }
-            \context {
-              \NullVoice
-              \consists Rest_engraver
-              \omit Rest
-             % \undo \omit NoteHead
-             % \hide NoteHead
-            }
           }
         }
       }