new engraver for spacing in chordlyrics

book_include.ly

@@ -1,5 +1,4 @@
 #(define song-list '())
-#(define song-number 0)
 
 #(define (files-in-directory dirname)
       ;;; Generate list containing filenames
@@ -186,17 +185,15 @@ songs =
               \markup { \pagecenter { \epsfile #X #xsize #filename } }
           } #}
           )
-          (let* ((newnumber (+ 1 song-number))
-                 (header #{ \bookpart { $(assq-ref songvars 'header) \header {
+          (let ((header #{ \bookpart { $(assq-ref songvars 'header) \header {
                   songfilename = $(symbol->string filename)
                   myindexlabel = #(assq-ref songvars 'label)
-                   songnumber = #(number->string newnumber)
                 } } #})
+                ;(header (assq-ref songvars 'header))
                 (music (assq-ref songvars 'music))
                 (layout (assq-ref songvars 'layout))
                 (text-pages (assq-ref songvars 'text-pages))
                 (label (assq-ref songvars 'label)))
-            (set! song-number newnumber)
             #{
               \bookpart {
                 $header

eps_file_from_song_dir.ly

@@ -4,15 +4,15 @@
   (interpret-markup-list layout (prepend-alist-chain 'songfilename songfilename props) markuplist))
 
 #(define-markup-command (customEps layout props ysize filename)(number? string?)
-   #:properties ((songfilename ""))
+   #:properties ((songfilename "")
+                 (defaultmarkup #f))
    (interpret-markup layout props
-     (let ((defaulttitlemarkup (ly:output-def-lookup layout 'defaultTitleMarkup))
-           (filepath (if (string-null? songfilename)
+     (let ((filepath (if (string-null? songfilename)
                           filename
                           (ly:format "~a/~a/~a" songPath songfilename filename))))
        (if (file-exists? filepath)
              (make-epsfile-markup Y ysize filepath)
-             (if defaulttitlemarkup
-                 defaulttitlemarkup
+             (if defaultmarkup
+                 defaultmarkup
                  (ly:format "file does not exist ~a" filepath))
 ))))

title_with_category_images.ly

@@ -1,6 +1,16 @@
 #(define-markup-command (bookTitleMarkupCustom layout props)()
    (interpret-markup layout
-     (prepend-alist-chain 'songfilename (chain-assoc-get 'header:songfilename props "") props)
+     (prepend-alist-chain 'defaultmarkup #{
+\markup {
+  \override #'(baseline-skip . 3.5)
+  \center-column {
+    \override #`(font-name . ,songTitleFont) { \fontsize #songTitleSize \fromproperty #'header:title }
+    \large \bold \fromproperty #'header:subtitle
+    \smaller \bold \fromproperty #'header:subsubtitle
+  }
+}
+                           #}
+     (prepend-alist-chain 'songfilename (chain-assoc-get 'header:songfilename props "") props))
      (make-column-markup
        (list
          (make-vspace-markup (chain-assoc-get 'header:titletopspace props 0))
@@ -53,12 +63,4 @@
   scoreTitleMarkup = \markup \null
   oddHeaderMarkup = \markup { \if \on-first-page-of-part \title-with-category-images ##t }
   evenHeaderMarkup = \markup { \if \on-first-page-of-part \title-with-category-images ##f }
-  defaultTitleMarkup = \markup {
-    \override #'(baseline-skip . 3.5)
-    \center-column {
-      \override #`(font-name . ,songTitleFont) { \fontsize #songTitleSize \fromproperty #'header:title }
-      \large \bold \fromproperty #'header:subtitle
-      \smaller \bold \fromproperty #'header:subsubtitle
-    }
-  }
 }