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)
_______________________________________________
lilypond-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-devel
