input/lsr/page-label.ly

   1 %% Do not edit this file; it is auto-generated from input/new
   2 %% This file is in the public domain.
   3 \version "2.11.38"
   4 \layout { ragged-right= ##t }
   5 \header {
   6   lsrtags = "spacing"
   7   texidoc = "Page labels may be placed inside music or at top-level,
   8 and refered to in markups."
   9   doctitle = "Page label"
  10 } % begin verbatim
  11
  12 #(set-default-paper-size "a6")
  13
  14 #(define-markup-command (toc-line layout props label text) (symbol? markup?)
  15   (interpret-markup layout props
  16    (markup #:fill-line (text #:page-ref label "8" "?"))))
  17
  18 \book {
  19   \markup \huge \fill-line { \null "Title Page" \null }
  20
  21   \pageBreak
  22
  23   \label #'toc
  24   \markup \column {
  25     \large \fill-line { \null "Table of contents" \null }
  26     \toc-line #'toc "Table of contents"
  27     \toc-line #'firstScore "First Score"
  28     \toc-line #'markA "Mark A"
  29     \toc-line #'markB "Mark B"
  30     \toc-line #'markC "Mark C"
  31     \toc-line #'unknown "Unknown label"
  32   }
  33
  34   \pageBreak
  35
  36   \label #'firstScore
  37   \score {
  38     { c'2 c'
  39       \mark \markup { A (page \concat { \page-ref #'markA "0" "?" ) }} \label #'markA
  40       c' c'
  41       \pageBreak
  42       \mark "B" \label #'markB
  43       d' d'
  44       d' d'
  45       \once \override Score . RehearsalMark #'break-visibility = #begin-of-line-invisible
  46       \mark "C" \label #'markC
  47     }
  48     \header { piece = "First score" }
  49   }
  50 }