\version "2.20.0"

#(set-global-staff-size 18)

title = ""
n = 0

includePattern = #(define-void-function (pattern) (string?)
  (let ((re  (make-regexp pattern))
        (dir (opendir "."))
        (inc '()))
    (do ((entry (readdir dir) (readdir dir)))
        ((eof-object? entry))
      (if (regexp-exec re entry)
        (set! inc (append inc (list (string-append "\\include \"" entry "\""))))))
    (closedir dir)
    (ly:parser-include-string (string-join (sort inc string<?) " "))))

piece = #(define-scheme-function (piece) (markup?) #{ \markup \larger \bold #piece #})
modo  = #(define-scheme-function () () (set! n (1+ n)) #{ \markup \italic \line { "Modo" #(number->string n) } #} )

\paper {
  tocFormatMarkup = #make-normal-text-markup
  tocTitleMarkup = \markup \bold \huge \column {
    \vspace #2
    \fill-line { \null "Table of Contents" \null }
    \vspace #2
  }
}

\layout {
  indent = 0\pt
}

\book {
  \bookpart {
    \header { title=##f subtitle=##f composer=##f }
    \paper { print-page-number=##f line-width = 150\mm }
    \markuplist { \table-of-contents }
  }

  \bookpart {
    \includePattern "^[0-9][0-9][0-9]-.+.\\.ly$"
  }
}