]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/lsr/page-label.ly
lilypond-book robustness: ensure EOL at the end of @verbatim
[lilypond.git] / input / lsr / page-label.ly
index d8b282bbde09da5483bbd5672d7e38a58926c50d..f55e121821b825272848b3c2f9aeed6e9a1bc189 100644 (file)
@@ -1,16 +1,22 @@
-%% Do not edit this file; it is auto-generated from input/new
+%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
 %% This file is in the public domain.
-\version "2.11.55"
+\version "2.13.1"
+
 \header {
   lsrtags = "spacing"
-  texidoc = "Page labels may be placed inside music or at top-level,
-and referred to in markups."
+
+  texidoc = "
+Page labels may be placed inside music or at top-level, and referred to
+in markups.
+
+"
   doctitle = "Page label"
 } % begin verbatim
 
 #(set-default-paper-size "a6")
 
-#(define-markup-command (toc-line layout props label text) (symbol? markup?)
+#(define-markup-command (toc-line layout props label text)
+  (symbol? markup?)
   (interpret-markup layout props
    (markup #:fill-line (text #:page-ref label "8" "?"))))
 
@@ -34,15 +40,18 @@ and referred to in markups."
 
   \label #'firstScore
   \score {
-    {
-      c'2 c'
-      \mark \markup { A (page \concat { \page-ref #'markA "0" "?" ) } } \label #'markA
-      c'2 c'
+    \new Staff \relative c' {
+      c2 c
+      \mark \markup {
+        A (page \concat { \page-ref #'markA "0" "?" ) }
+      } \label #'markA
+      c2 c
       \pageBreak
       \mark "B" \label #'markB
-      d'2 d'
-      d'2 d'
-      \once \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
+      d2 d
+      d2 d
+      \once \override Score.RehearsalMark #'break-visibility =
+        #begin-of-line-invisible
       \mark "C" \label #'markC
     }
     \header { piece = "First score" }