native scheme yaml parser

private_includes/base/scm/yaml_parser.scm

@@ -1,8 +1,5 @@
 (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
@@ -57,6 +54,10 @@
      ((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)
@@ -148,7 +149,4 @@
                    (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,7 +280,6 @@
             \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