[PATCH] which-page

[Thomas Morley]

Hi,

I recently managed to set up LilyDev.
I think (hope) the patch below is of some use.
Of course I'm an absolutly newbie with this sort of work. It would be
nice if some could explain the next steps how to handle this patch (or
point me to the relevant CG-Chapter).

%%%%%%%%%%%%%%%%%%%%%%%%%

>From 33d0972db16358a688cb9978da6f71826576554e Mon Sep 17 00:00:00 2001
From: Harm <address@hidden>
Date: Thu, 28 Jun 2012 12:02:40 +0200
Subject: [PATCH] which-page

It's possible to add a markup to a footer/header of a specified page,
using (which-page <page-number>).
Multiple settings are possible.
---
 ly/titling-init.ly |    5 +++++
 1 files changed, 5 insertions(+), 0 deletions(-)

diff --git a/ly/titling-init.ly b/ly/titling-init.ly
index f6daacd..9f3c644 100644
--- a/ly/titling-init.ly
+++ b/ly/titling-init.ly
@@ -101,6 +101,11 @@ book last one."
       (interpret-markup layout props arg)
       empty-stencil))

+#(define ((which-page nmbr) layout props arg)
+ (if (= (chain-assoc-get 'page:page-number props 0) nmbr)
+   (interpret-markup layout props arg)
+   empty-stencil))
+
 %% Bookpart first page and last page predicates
 #(define (part-first-page layout props arg)
   (if (= (chain-assoc-get 'page:page-number props -1)
-- 
1.7.0.4

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% example

\version "2.15.41"

someText =
\markup \column {
       \vspace #1
       "Some text"
       "Some text"
       "Some text"
       \vspace #1
}

someOtherText =
\markup \column {
       \vspace #1
       "some other text"
       "some other text"
       "some other text"
       \vspace #4
}

\paper {
    oddHeaderMarkup = ##f
    evenHeaderMarkup = ##f
    oddFooterMarkup = \markup \fill-line {
            \center-column {
                \on-the-fly #(which-page 2)
                       \someText
                \on-the-fly #last-page
                       \someOtherText
                \on-the-fly #last-page
                       \fromproperty #'header:tagline
                \on-the-fly #not-first-page
                       \fromproperty #'page:page-number-string
            }
    }

    evenFooterMarkup = \oddFooterMarkup
}

pagebreaks = {
       s1*2 \pageBreak
       s1*3 \pageBreak
       s1*2 \pageBreak
}

mus = \relative c' {
       \repeat unfold 9 { c1 \break }
       \bar "|."
}

\score {
       \new ChoirStaff <<
         \new Staff { << \pagebreaks \mus >> }
         \new Staff { \clef alto \mus }
         \new Staff { \clef tenor \mus }
         \new Staff { \clef bass \mus }
       >>
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Cheers,
  Harm