Dies ist das Archiv des alten Forums (bis März 2017). Das aktuelle Forum ist unter https://lilypondforum.de zu finden. This is the archive of the old forum (until March 2017). You can find the current forum at https://lilypondforum.de.
\version "2.19.48"#(define-markup-command (page-ref layout props label gauge default) (symbol? markup? markup?) #:category other "@cindex referencing page numbers in textReference to a page number. @var{label} is the label set on the referencedpage (using the @code{\\label} command), @var{gauge} a markup used to estimatethe maximum width of the page number, and @var{default} the value to displaywhen @var{label} is not found.(If the current book or bookpart is set to use roman numerals for page numbers,the reference will be formatted accordingly -- in which case the @var{gauge}'swidth may require additional tweaking.)" (let* ((gauge-stencil (interpret-markup layout props gauge)) (x-ext (ly:stencil-extent gauge-stencil X)) (y-ext (ly:stencil-extent gauge-stencil Y))) (ly:stencil-add (make-transparent-box-stencil x-ext y-ext)) (ly:make-stencil `(delay-stencil-evaluation ,(delay (ly:stencil-expr (let* ((table (ly:output-def-lookup layout 'label-page-table)) (page-number (if (list? table) (assoc-get label table) #f)) (number-type 'arabic) ;(ly:output-def-lookup layout 'page-number-type)) (page-markup (if page-number (number-format number-type page-number) default)) (page-stencil (interpret-markup layout props page-markup)) (gap (- (interval-length x-ext) (interval-length (ly:stencil-extent page-stencil X))))) (interpret-markup layout props (markup #:hspace gap page-markup)))))) x-ext y-ext))) \paper { print-first-page-number = ##t }\bookpart { \paper { ragged-last-bottom = ##t page-number-type = #'roman-lower } \markuplist \table-of-contents \pageBreak \markuplist \table-of-contents}\score { { \tocItem "foo" c'1 }}