% Livret musical avec tables des matières et index
%Merci à Valentin V., Jean A.S., Pierre P-S. pour leur aide !

\version "2.20.0"

%***************************************
% définition d'un compteur (nombre de morceaux et  utilisation en table des matières)
#(define ctrToc 0)
#(define-markup-command (ctrToc layout props) ()
   (set! ctrToc (1+ ctrToc))
   (interpret-markup layout props (markup (number->string ctrToc))))

#(define counter 0)
#(define-markup-command (counter layout props) ()
   (set! counter (1+ counter))
   (interpret-markup layout props (markup (number->string counter))))

#(define-markup-command (ctrTot layout props) ()
   (interpret-markup layout props (markup (number->string counter))))
%------------------------------


%=== INDEX (source LSR) ===============
%% http://lsr.di.unimi.it/LSR/Item?id=763
%% see also http://www.lilypond.org/doc/v2.18/Documentation/notation/table-of-contents

% Usage:
% - define and index item with \indexItem $sortstring $markup
% - use \indexSection $sortstring $markup to divide the index into several sections
% - display the alphabetical index with \markuplist \index

% code ist mostly taken from ./ly/toc-init.ly and just renamed and slightly modfied

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% LSR workaround:
%#(set! paper-alist (cons '("snippet" . (cons (* 190 mm) (* 230 mm))) paper-alist))
%\paper {
%  #(set-paper-size "snippet")
%  indent = 0
%  tagline = ##f
%}

%\markup\vspace #.5
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%here starts the snippet:

%% defined later, in a closure
#(define-public (add-index-item! markup-symbol text sorttext) #f)
#(define-public (index-items) #f)

#(let ((index-item-list (list)))
   (set! add-index-item!
         (lambda (markup-symbol text sorttext)
           (let ((label (gensym "index")))
             (set! index-item-list
                   ;; We insert index items sorted from the beginning on and do
                   ;; not sort them later - this saves pretty much computing time
                   (insert-alphabetical-sorted! (list label markup-symbol text sorttext)
                     index-item-list))
             (make-music 'EventChord
               'page-marker #t
               'page-label label
               'elements (list (make-music 'LabelEvent
                                 'page-label label))))))
   (set! index-items (lambda ()
                       index-item-list)))

#(define (insert-alphabetical-sorted! iitem ilist)
   (if
    (null? ilist) (list iitem)
    (if
     (string-ci<? (cadddr iitem) (cadddr (car ilist))) (cons iitem ilist)
     (cons (car ilist) (insert-alphabetical-sorted! iitem (cdr ilist)))
     )
    )
   )

#(define-markup-list-command (index layout props) ()
   ( _i "Outputs an alphabetical sorted index, using the paper
  variable @code{indexTitleMarkup} for its title, then the list of
  lines built using the @code{indexItem} music function
  Usage: @code{\\markuplist \\index}" )
   (cons (interpret-markup layout props
           (ly:output-def-lookup layout 'indexTitleMarkup))
     (space-lines (chain-assoc-get 'baseline-skip props)
       (map (lambda (index-item)
              (let ((label (car index-item))
                    (index-markup (cadr index-item))
                    (text (caddr index-item)))
                (interpret-markup
                 layout
                 (cons (list (cons 'index:page
                               (markup #:page-ref label "XXX" "?"))
                         (cons 'index:text text))
                   props)
                 (ly:output-def-lookup layout index-markup))))
         (index-items)))))

indexItem =
#(define-music-function (parser location sorttext text) (string? markup?)
   "Add a line to the alphabetical index, using the @code{indexItemMarkup} paper variable markup."
   (add-index-item! 'indexItemMarkup text sorttext))

indexSection =
#(define-music-function (parser location sorttext text) (string? markup?)
   "Add a section line to the alphabetical index, using @code{indexSectionMarkup} paper variable markup. This can be used to divide the alphabetical index into different sections, for example one section for each first letter."
   (add-index-item! 'indexSectionMarkup text sorttext))

%---- définition des sections de l'index
\indexSection #"berry" \markup { "Berry" }
\indexSection #"alsace" \markup { "Alsace" }
\indexSection #"bretagne" \markup { "Bretagne" }
\indexSection #"morvan" \markup { "Morvan" }
\indexSection #"ecosse" \markup {"Écosse"}
%========== FIN DU PARAMÉTRAGE DE L'INDEX============

%===== définition du bloc \paper
\paper {
  % définition gérérale
  #(set-paper-size "a4")
  ragged-bottom = ##t
  top-margin = 15
  left-margin = 15
  right-margin = 15
  % présentation de l'index
  indexTitleMarkup = \markup \column {
    \fontsize #3 \sans \bold \with-color #blue \fill-line { \null "Index" \null }
    \hspace #1
  }
  indexItemMarkup = \markup \fill-line {
    \fromproperty #'index:text
    \fromproperty #'index:page
  }
  indexSectionMarkup = \markup \column {
    \hspace #1
    \fill-line { \sans \bold \fromproperty #'index:text }
    \hspace #1
  }
  
  % présentation de la table des matières 
  tocTitleMarkup = \markup \huge \column {
    \fill-line {
      \null \abs-fontsize #12 \bold \with-color #blue "Répertoire" \null
    }
    \vspace  #1
  }
  tocItemMarkup = \markup \huge \fill-line {
    \fromproperty #'toc:text \fromproperty #'toc:page
  }
  tocItemMarkup = \tocItemWithDotsMarkup
  
  % page de couverture
  bookTitleMarkup = \markup \fill-line {
    \override #'(baseline-skip . 3.5)
    \override #'(line-width . 20)
    \center-column {
      \fill-line \bold {
        \abs-fontsize #24
        \fromproperty #'header:title
      }
      \vspace #-0.25
      \abs-fontsize #12 \fill-line {
        \fromproperty #'header:subtitle
      }
      \vspace #0.5
      \abs-fontsize #12 \fill-line \bold {
        \fromproperty #'header:subsubtitle
      }
      \vspace #5
      \abs-fontsize #10 \fill-line {
        \fromproperty #'header:instrument
      }
      \vspace #5
    }
  }
  scoreTitleMarkup = \markup \column {
    \abs-fontsize #12 \bold \fromproperty #'header:titre
    \vspace #0.25
    \abs-fontsize #11 \italic \fromproperty #'header:origine
    \vspace #1
  }
}
%******** toute cette partie entre **** peut figurer dans un fichier séparé ***

%========== DOCUMENT PROPREMENT DIT ====================
% page de couverture
\header {
  title = "Mon livret musical"
  subtitle = "atelier de musique traditionnelle"
}
\markuplist \table-of-contents
%----------------
\pageBreak
%=== MON LIVRET
\pageBreak
% table des matières
\markuplist \table-of-contents
\pageBreak
%index
\markuplist \index


\pageBreak
\include"alaude.ly"
\pageBreak
\include"avant-deux.ly"
\pageBreak
\include"dindes.ly"


\markup \vspace #5
\markup { "Ce livret contient  " \ctrTot "pièces" }