Doc: CSS: Add a maximum width for the sidebar in the manuals

[lilypond.git] / input / regression / page-label.ly

diff --git a/input/regression/page-label.ly b/input/regression/page-label.ly
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..b0d426ea891a4a34e79157ecf2467ff7935219c9 100644 (file)
--- a/input/regression/page-label.ly
+++ b/input/regression/page-label.ly
@@ -0,0 +1,46 @@
+\version "2.17.6"
+
+\header {
+  texidoc = "Page labels may be placed inside music or at top-level,
+and referred to in markups."
+}
+
+#(set-default-paper-size "a6")
+
+#(define-markup-command (toc-line layout props label text) (symbol? markup?)
+  (interpret-markup layout props
+   (markup #:fill-line (text #:page-ref label "8" "?"))))
+
+\book {
+  \markup \huge \fill-line { \null "Title Page" \null }
+
+  \pageBreak
+
+  \label #'toc
+  \markup \column {
+    \large \fill-line { \null "Table of contents" \null }
+    \toc-line #'toc "Table of contents"
+    \toc-line #'firstScore "First Score"
+    \toc-line #'markA "Mark A"
+    \toc-line #'markB "Mark B"
+    \toc-line #'markC "Mark C"
+    \toc-line #'unknown "Unknown label"
+  }
+
+  \pageBreak
+
+  \label #'firstScore
+  \score {
+    { c'2 c'
+      \mark \markup { A (page \concat { \page-ref #'markA "0" "?" ) }} \label #'markA 
+      c' c'
+      \pageBreak
+      \mark "B" \label #'markB
+      d' d'
+      d' d'
+      \once \override Score.RehearsalMark.break-visibility = #begin-of-line-invisible
+      \mark "C" \label #'markC
+    }
+    \header { piece = "First score" }
+  }
+}