better chord lyric distance handling

private_includes/base/scm/yaml_parser.scm

@@ -1,5 +1,8 @@
 (use-modules (ice-9 rdelim) (ice-9 regex) (ice-9 pretty-print) (srfi srfi-1))
 
+;; Hauptparsingfunktion
+(define (yml-file->scm filename)
+
   ;; Utility: Zeile einlesen
   (define (read-lines filename)
     (call-with-input-file filename
@@ -54,10 +57,6 @@
        ((string=? s "null") '())
        (else s))))
 
-;; Hauptparsingfunktion
-(define (yml-file->scm filename)
-  (let ((lines (read-lines filename)))
-    (parse-lines lines 0)))
 
   ;; Hilfsfunktion: Zeilen mit gleicher oder höherer Einrückung sammeln
   (define (take-indented lines min-indent)
@@ -149,4 +148,7 @@
                      (loop (cdr ls) result))))
              )))))
 
+  (let ((lines (read-lines filename)))
+    (parse-lines lines 0)))
+
 (define (parse-yml-file filename) (resolve-inherits (yml-file->scm filename)))

private_includes/base/verses_with_chords.ily

@@ -280,6 +280,7 @@
             \context {
               \Lyrics
               \override VerticalAxisGroup.nonstaff-relatedstaff-spacing.basic-distance = #verse-text-chord-distance
+              \override VerticalAxisGroup.nonstaff-relatedstaff-spacing.padding = #(- verse-text-chord-distance songTextChordDistance)
               \override LyricText.parent-alignment-X = #LEFT
               \override LyricText.self-alignment-X = #LEFT
               \override LyricText.word-space = 0.8