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 %% Note: this file works from version 2.12.0
   4 \version "2.13.1"
   5 \header {
   6   lsrtags = "spacing"
   7   texidoc = "Page labels may be placed inside music or at top-level,
   8 and referred to in markups."
   9   doctitle = "Page label"
  10 } % begin verbatim
  11
  12
  13 #(set-default-paper-size "a6")
  14
  15 #(define-markup-command (toc-line layout props label text)
  16   (symbol? markup?)
  17   (interpret-markup layout props
  18    (markup #:fill-line (text #:page-ref label "8" "?"))))
  19
  20 \book {
  21   \markup \huge \fill-line { \null Title Page \null }
  22
  23   \pageBreak
  24
  25   \label #'toc
  26   \markup \column {
  27     \large \fill-line { \null Table of contents \null }
  28     \toc-line #'toc "Table of contents"
  29     \toc-line #'firstScore "First Score"
  30     \toc-line #'markA "Mark A"
  31     \toc-line #'markB "Mark B"
  32     \toc-line #'markC "Mark C"
  33     \toc-line #'unknown "Unknown label"
  34   }
  35
  36   \pageBreak
  37
  38   \label #'firstScore
  39   \score {
  40     \new Staff \relative c' {
  41       c2 c
  42       \mark \markup {
  43         A (page \concat { \page-ref #'markA "0" "?" ) }
  44       } \label #'markA
  45       c2 c
  46       \pageBreak
  47       \mark "B" \label #'markB
  48       d2 d
  49       d2 d
  50       \once \override Score.RehearsalMark #'break-visibility =
  51         #begin-of-line-invisible
  52       \mark "C" \label #'markC
  53     }
  54     \header { piece = "First score" }
  55   }
  56 }