refactor include system

private_includes/base/all.ily

@@ -1,3 +1,9 @@
+#(define include_dir_not_added? (if (defined? 'include_dir_not_added?) include_dir_not_added? #t))
+#(if include_dir_not_added?
+   (let* ((common-include-dir (dirname (dirname (dirname (current-filename))))))
+      (ly:parser-append-to-include-path common-include-dir)
+      (set! include_dir_not_added? #f)))
+
 #(define noStandaloneOutput (if (defined? 'noStandaloneOutput) noStandaloneOutput #f))
 
 #(define windows? (string-prefix-ci? "windows" (utsname:sysname (uname))))
@@ -19,15 +25,15 @@
 #(define AUTHOR_DATA (if (defined? 'AUTHOR_DATA) AUTHOR_DATA (parse-yml-file "../../lilypond-song-includes/data/authors.yml")))
 #(define SONG_DATA (if (defined? 'SONG_DATA) SONG_DATA (parse-yml-file "../../lilypond-song-includes/data/songs.yml")))
 
-\include "basic_format_and_style_settings.ly"
+\include "basic_format_and_style_settings.ily"
-\include "eps_file_from_song_dir.ly"
+\include "eps_file_from_song_dir.ily"
-\include "title_with_category_images.ly"
+\include "title_with_category_images.ily"
-\include "chord_settings.ly"
+\include "chord_settings.ily"
-\include "transposition.ly"
+\include "transposition.ily"
-\include "verses_with_chords.ly"
+\include "verses_with_chords.ily"
-\include "arrows_in_scores.ly"
+\include "arrows_in_scores.ily"
-\include "swing_style.ly"
+\include "swing_style.ily"
-\include "inline_score.ly"
+\include "inline_score.ily"
 \include "custom_indentation.ily"
 \include "include_from_song.ily"
 

private_includes/base/basic_format_and_style_settings.ily

@@ -1,10 +1,10 @@
 \language "deutsch"
 
-\include "default_style.ly"
+\include "default_style.ily"
-\include "default_songinfo_style.ly"
+\include "default_songinfo_style.ily"
-\include "footer_with_songinfo.ly"
+\include "footer_with_songinfo.ily"
 
-\include #(if (defined? 'customStyleOverridesFile) customStyleOverridesFile "void.ly")
+\include #(if (defined? 'customStyleOverridesFile) customStyleOverridesFile "../void.ily")
 
 #(set-default-paper-size songFormatAndSize)
 #(set-global-staff-size globalSize)

private_includes/base/include_from_song.ily

@@ -5,7 +5,7 @@ includeFromSong =
     (ly:parser-parse-string (ly:parser-clone)
       (ly:format "\\include \"~a\""
       (string-append
-        (dirname (dirname (current-filename)))
+        (dirname (dirname (dirname (dirname (current-filename)))))
         file-name-separator-string
         "lilypond-song-includes"
         file-name-separator-string

public_includes/book_top.ily

@@ -0,0 +1,3 @@
+\include "../private_includes/book/book_include.ily"
+\include "../private_includes/book/toc_include.ily"
+\include "../private_includes/book/appendix.ily"

public_includes/layout_top.ily

@@ -1,6 +1,5 @@
-\version "2.25.8"
 #(ly:set-option 'relative-includes #t)
 
 #(define noDefaultOutput #t)
 
-\include "all_base_includes.ly"
+\include "../private_includes/base/all.ily"

public_includes/pool_bottom.ily

@@ -4,4 +4,4 @@ HEADER = \bookpart {
     \basicSongInfo
   }
 }
-\include #(if noDefaultOutput "void.ly" "standalone_output.ly")
+\include #(if noDefaultOutput "../private_includes/void.ily" "layout_bottom.ily")

public_includes/pool_top.ily

@@ -2,4 +2,4 @@
 
 #(define noDefaultOutput (if (defined? 'noDefaultOutput) noDefaultOutput #f))
 
-\include #(if noDefaultOutput "void.ly" "all_base_includes.ly")
+\include #(if noDefaultOutput "../private_includes/void.ily" "../private_includes/base/all.ily")

styles.ly

@@ -1,16 +0,0 @@
-#(define bookStyle
-  (if (not (defined? 'bookStyle))
-      #f
-      bookStyle))
-
-#(define songStyle
-  (if (not (defined? 'songStyle))
-      (if (not (defined? 'defaultSongStyle)) 'default defaultSongStyle)
-      songStyle))
-
-#(if (not (boolean? bookStyle))
-         (set! songStyle bookStyle))
-
-#(define (bock-style layout props)
-  "Whether we have bockstyle or not"
-  (eq? songStyle 'bock))