% correction de bug transmis par Jean
#(let ((default-table-of-contents
make-table-of-contents-markup-list))
(define-markup-list-command (table-of-contents layout props) ()
(let* ((result (interpret-markup-list layout props
(default-table-of-contents)))
(alist (ly:output-def-lookup layout 'label-alist-table))
(parent (ly:output-def-parent layout)))
(when (not (null? parent))
(ly:output-def-set-variable! parent 'label-alist-table
alist))
result)))
\paper {
ragged-last-bottom = ##t
ragged-last = ##f
tocActMarkup = \markup
{ \vspace #1 \hspace #-4 \italic \fromproperty #'toc:text }
tocItemMarkup = \markup
\fill-line {
\fill-with-pattern #1.5 #CENTER .
\line {
\hspace #-4 %% Cancelling the first level's tocIndentMarkup
\fromproperty #'toc:indent \fromproperty #'toc:text
\hspace #2
}
\fromproperty #'toc:page
}
tocTitleMarkup =
\markup {
\column {
\vspace #3
\fill-line { \fontsize #9 "My Real Book" }
\vspace #1
\fill-line { \fontsize #3 "For C Instruments" }
\vspace #2
}
}
}
tocAct =
#(define-music-function (label text) (symbol-list-or-symbol?
markup?)
(add-toc-item! 'tocActMarkup text label))
--
Vincent Gay
Envoyé depuis mon saxo-phone :)
https://myrealbook.vintherine.org/ - http://photos.vintherine.org/