Hi Nicolas,
Thank you for your help and an elegant solution. Would have been very
lost otherwise.
Very much appreciated.
Simon
Sample result attached. The language is Thai
On Fri, 12 Dec 2008 23:37:07 +0100, "Nicolas Sceaux"
<nicolas.sce...@free.fr> said:
> Le 12 déc. 08 à 07:59, Simon J Mackenzie a écrit :
>
> > Hi
> >
> > I have a table of contents which contains the following...
> >
> > 1. Joy to the
> > Universe 1
> > 56. Woe Beyond Hope 3
> > 112.
> > Frankly
> > 9
> > 2001. Same Old Same Old 26
> > [...]
> >
> > Is it possible to right align the preceding numbers in each \tocItem
> > entry above
> >
>
> One possible trick is to add space at the left of the number, for
> instance:
>
> \version "2.11.65"
>
> #(define-markup-command (toc-number layout props text) (string?)
> (let* ((gauge-stencil (interpret-markup layout props "0000."))
> (x-ext (ly:stencil-extent gauge-stencil X))
> (y-ext (ly:stencil-extent gauge-stencil Y))
> (stencil (interpret-markup layout props text))
> (gap (- (interval-length x-ext)
> (interval-length (ly:stencil-extent stencil X)))))
> (interpret-markup layout props
> (markup #:concat (#:hspace gap text #:hspace 1)))))
>
> numTocItem =
> #(define-music-function (parser location num text) (string? string?)
> "Add a line to the table of content, using the
> @code{tocItemMarkup} paper
> variable markup"
> (add-toc-item! 'tocItemMarkup (markup #:small #:line (#:toc-number
> num text))))
>
> \markuplines \table-of-contents
>
> \numTocItem "1." "Joy to the Universe"
> \numTocItem "56." "Woe Beyond Hope"
> \numTocItem "112." "Frankly"
> \numTocItem "2001." "Same Old Same Old"
> \markup \null
>
>
> nicolas
>
--------------------------------------------------
Reverend Simon J Mackenzie <simon.macken...@lca.org.au>
LUTHERAN CHURCH OF AUSTRALIA
197 Archer Street,
North Adelaide,
South Australia,
AUSTRALIA, 5006
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
