[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
which-page (issue 6352049)
From: |
thomasmorley65 |
Subject: |
which-page (issue 6352049) |
Date: |
Thu, 28 Jun 2012 14:35:25 +0000 |
Reviewers: ,
Message:
It's possible to add a markup to a footer/header of a specified page,
using #(which-page <page-number>).
Multiple settings are possible.
Please review as
http://codereview.appspot.com/6352049
-Harm
Description:
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.
Please review this at http://codereview.appspot.com/6352049/
Affected files:
M ly/titling-init.ly
Index: ly/titling-init.ly
diff --git a/ly/titling-init.ly b/ly/titling-init.ly
index
f6daacddb399cf6bac89b3bcccbb291bab242f82..9f3c644a9cbbdfb170498fdfbf3432bd5a601d43
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)
- which-page (issue 6352049),
thomasmorley65 <=