From: Graham Percival <graham@percival-music.ca>
Date: Sun, 17 Jul 2005 02:01:39 +0000 (+0000)
Subject: Add printallheaders.
X-Git-Tag: release/2.7.1~16
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1b7d282f5e0b97efec51b5e8bc8df64444c02f06;p=lilypond.git

Add printallheaders.
---

diff --git a/ChangeLog b/ChangeLog
index e18074172c..8990771339 100644
--- 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 807f205cca..aa3a0e3ad8 100644
--- 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 0695ad5f42..ca18c3700c 100644
--- 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)