From 675f28d61f636aff74897307a74a45e692c2ad52 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 6 Feb 2005 10:06:25 +0000
Subject: [PATCH] Do not print intstrument twice on first page.  Do not print
 page number on first page.

---
 ChangeLog          |  5 +++++
 ly/titling-init.ly | 40 +++++++++++++++++++++++++---------------
 2 files changed, 30 insertions(+), 15 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b3dca95ff7..75a1ac71ca 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-06  Jan Nieuwenhuizen  <janneke@gnu.org>
+
+	* ly/titling-init.ly: Do not print intstrument twice on first
+	page.  Do not print page number on first page.
+
 2005-02-05  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
 	* input/regression/*.ly: remove old-relative everywhere
diff --git a/ly/titling-init.ly b/ly/titling-init.ly
index a41a24c633..5b16c8102e 100644
--- a/ly/titling-init.ly
+++ b/ly/titling-init.ly
@@ -45,11 +45,31 @@ scoreTitleMarkup = \markup {
   }
 }
 
+#(define (first-page layout props arg)
+  (if (= (chain-assoc-get 'page:page-number props -1) 1)
+    (interpret-markup layout props arg)
+    empty-stencil))
+
+#(define (last-page layout props arg)
+  (if (chain-assoc-get 'page:last? props #f)
+    (interpret-markup layout props arg)
+    empty-stencil))
+
+#(define (not-first-page layout props arg)
+  (if (not (= (chain-assoc-get 'page:page-number props -1) 1))
+    (interpret-markup layout props arg)
+    empty-stencil))
+
+%%#(define (multiple-pages layout props arg)
 
 oddHeaderMarkup = \markup
+%% Do not print page number on fist page.
+%% FIXME: only if multiple pages, do page number
+%% \on-the-fly #multiple-pages
+\on-the-fly #not-first-page
 \fill-line {
   ""
-  \fromproperty #'header:instrument
+  \on-the-fly #not-first-page \fromproperty #'header:instrument
   \fromproperty #'page:page-number-string
 }
 
@@ -64,22 +84,12 @@ oddFooterMarkup = \markup {
   \column {
     \fill-line {
 
-      % put copyright only on pagenr. 1 
-      \on-the-fly #(lambda (layout props arg)
-		    (if (= 1 (chain-assoc-get 'page:page-number props   -1))
-		     (interpret-markup layout props arg)
-		     empty-stencil
-		   ))
-      \fromproperty #'header:copyright
+      %% Copyright header field only on first page.
+      \on-the-fly #first-page \fromproperty #'header:copyright
     }
     \fill-line {
-      % put tagline only on last page
-      \on-the-fly #(lambda (layout props arg)
-		    (if (chain-assoc-get 'page:last?  props #f)
-		     (interpret-markup layout props arg)
-		     empty-stencil
-		   ))
-      \fromproperty #'header:tagline
+      %% Tagline header field only on last page.
+      \on-the-fly #last-page \fromproperty #'header:tagline
     }
   }
 }
-- 
2.39.2