Add printallheaders.

diff --git a/ChangeLog b/ChangeLog
index e18074172c73ec2879ac6f626a8685cc7cf9c16f..899077133918a46cad39229f644eb3fd6f7526b5 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2005-07-16  Graham Percival  <gperlist@shaw.ca>
+
+       * ly/titling-init.ly: add printallheaders option.
+
+       * Documentation/user/global.itely: document printallheaders.
+
 2005-07-16  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
        * lily/system.cc (do_derived_mark): don't mark from object_alist_

diff --git a/Documentation/user/global.itely b/Documentation/user/global.itely
index 807f205cca5de402b4f1ea29114e4f87c015dd94..aa3a0e3ad8440fcf701aaef1d4c6493288799fcf 100644 (file)
--- a/Documentation/user/global.itely
+++ b/Documentation/user/global.itely
@@ -326,6 +326,10 @@ title of the next.
 Amount of space between consecutive titles (e.g., the title of the
 book and the title of a piece).
 
+@item printallheaders
+Setting this to #t will print all headers for each \score in a
+\book.  Normally only the piece and opus \headers are printed.
+
 @item systemSeparatorMarkup
 This contains a markup object, which will be inserted between
 systems.  This is often used for orchestral scores.

diff --git a/ly/titling-init.ly b/ly/titling-init.ly
index 0695ad5f42cc2aa371bb65785fcf9cd36820b16a..ca18c3700c05a1cb2f306bc233740725b3eec2d0 100644 (file)
--- a/ly/titling-init.ly
+++ b/ly/titling-init.ly
@@ -22,6 +22,11 @@ tagline = \markup {
   }
 }
 
+#(define (print-all-headers layout props arg)
+  (if (eq? (ly:output-def-lookup layout 'printallheaders) #t)
+   (interpret-markup layout props arg)
+   empty-stencil))
+
 bookTitleMarkup = \markup {
   \override #'(baseline-skip . 3.5)
   \column {
@@ -53,12 +58,14 @@ bookTitleMarkup = \markup {
   }
 }
 
-scoreTitleMarkup = \markup {
+scoreTitleMarkup = \markup { \column {
+  \on-the-fly #print-all-headers \bookTitleMarkup
   \fill-line {
     \fromproperty #'header:piece
     \fromproperty #'header:opus
   }
 }
+}
 
 #(define (first-page layout props arg)
   (if (= (chain-assoc-get 'page:page-number props -1)