LSR: add Nicolas' examples of TOC and breakable markups.

diff --git a/input/new/non-music/toc.ly b/input/new/non-music/toc.ly
new file mode 100644 (file)
index 0000000..e6164ea
--- /dev/null
+++ b/input/new/non-music/toc.ly
@@ -0,0 +1,29 @@
+\version "2.11.26"
+
+\header {
+  texidoc = "A table of contents is included using
+@code{\\markuplines \\table-of-contents}. The toc items are added with
+the @code{\\tocItem} command."
+}
+
+#(set-default-paper-size "a6")
+
+\book {
+  \markuplines \table-of-contents
+  \pageBreak
+
+  \tocItem \markup "The first score"
+  \score {
+    { 
+      c'1 \pageBreak
+      \mark "A" \tocItem \markup "Mark A"
+      d'
+    }
+  }
+  \pageBreak
+  \tocItem \markup "The second score"
+  \score {
+    { e' }
+    \header { piece = "Second score" }
+  }
+}
\ No newline at end of file

diff --git a/input/new/spacing/page-label.ly b/input/new/spacing/page-label.ly
new file mode 100644 (file)
index 0000000..cb02387
--- /dev/null
+++ b/input/new/spacing/page-label.ly
@@ -0,0 +1,46 @@
+\version "2.11.26"
+
+\header {
+  texidoc = "Page labels may be placed inside music or at top-level,
+and refered 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" }
+  }
+}
\ No newline at end of file

diff --git a/input/new/text/markup-lines.ly b/input/new/text/markup-lines.ly
new file mode 100644 (file)
index 0000000..752dcf3
--- /dev/null
+++ b/input/new/text/markup-lines.ly
@@ -0,0 +1,38 @@
+\version "2.11.25"
+
+\header {
+  texidoc = "Text that can spread over pages is entered with the
+@code{\\markuplines} command."
+}
+
+#(set-default-paper-size "a6")
+
+#(define-markup-list-command (paragraph layout props args) (markup-list?)
+  (interpret-markup-list layout props 
+   (make-justified-lines-markup-list (cons (make-hspace-markup 2) args))))
+
+%% Candide, Voltaire
+\markuplines \override-lines #'(baseline-skip . 2.5) {
+  \paragraph {
+    Il y avait en Westphalie, dans le château de M. le baron de
+    Thunder-ten-tronckh, un jeune garçon à qui la nature avait donné
+    les mœurs les plus douces.  Sa physionomie annonçait son âme.
+    Il avait le jugement assez droit, avec l'esprit le plus simple ;
+    c'est, je crois, pour cette raison qu'on le nommait Candide.  Les
+    anciens domestiques de la maison soupçonnaient qu'il était fils
+    de la sœur de monsieur le baron et d'un bon et honnête
+    gentilhomme du voisinage, que cette demoiselle ne voulut jamais
+    épouser parce qu'il n'avait pu prouver que soixante et onze
+    quartiers, et que le reste de son arbre généalogique avait été
+    perdu par l'injure du temps.
+  }
+  \paragraph {
+    Monsieur le baron était un des plus puissants seigneurs de la
+    Westphalie, car son château avait une porte et des fenêtres.  Sa
+    grande salle même était ornée d'une tapisserie.  Tous les chiens
+    de ses basses-cours composaient une meute dans le besoin ; ses
+    palefreniers étaient ses piqueurs; le vicaire du village était
+    son grand-aumônier.  Ils l'appelaient tous monseigneur, et ils
+    riaient quand il faisait des contes.
+  }
+}