X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Ftoc-init.ly;h=488e22ba2a6eb823a43f048dac5bdcfef344abec;hb=928bfc525857997de35e1017d711da4eb0199262;hp=334c983d0b793d5fb81630658a3c6cd5f7b53749;hpb=7c24df07725a38d5643efe86b23c26dec71058fa;p=lilypond.git diff --git a/ly/toc-init.ly b/ly/toc-init.ly index 334c983d0b..488e22ba2a 100644 --- a/ly/toc-init.ly +++ b/ly/toc-init.ly @@ -1,4 +1,4 @@ -\version "2.11.26" +\version "2.12.0" %% defined later, in a closure #(define-public (add-toc-item! markup-symbol text) @@ -31,11 +31,14 @@ } } +tocItemWithDotsMarkup = \markup \fill-with-pattern #1 #RIGHT . + \fromproperty #'toc:text \fromproperty #'toc:page + #(define-markup-list-command (table-of-contents layout props) () - "Outputs the table of contents, using the paper variable + ( _i "Outputs the table of contents, using the paper variable @code{tocTitleMarkup} for its title, then the list of lines built using the @code{tocItem} music function -Usage: @code{\\markuplines \\table-of-contents}" +Usage: @code{\\markuplines \\table-of-contents}" ) (cons (interpret-markup layout props (ly:output-def-lookup layout 'tocTitleMarkup)) (space-lines (chain-assoc-get 'baseline-skip props)