;;;; This file is part of LilyPond, the GNU music typesetter.
;;;;
-;;;; Copyright (C) 2004--2012 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; Copyright (C) 2004--2015 Jan Nieuwenhuizen <janneke@gnu.org>
;;;; Han-Wen Nienhuys <hanwen@xs4all.nl>
;;;;
;;;; LilyPond is free software: you can redistribute it and/or modify
;;;;;;;;;;;;;;;;;;
-(define-public ((marked-up-headfoot what-odd what-even)
+(define ((marked-up-headfoot what-odd what-even)
layout scopes page-number is-last-bookpart is-bookpart-last-page)
"Read variables @var{what-odd}, @var{what-even} from @var{layout},
and interpret them as markup. The @var{props} argument will include
(cdr entry)))
alist))
alists))
+ (number-type (get 'page-number-type))
(pgnum-alist
(list
(cons 'header:tagline
(cons 'page:is-last-bookpart is-last-bookpart)
(cons 'page:is-bookpart-last-page is-bookpart-last-page)
(cons 'page:page-number-string
- (number->string page-number))
+ (number-format number-type page-number))
(cons 'page:page-number page-number)))
(props (append
(list pgnum-alist)
(markup? (get what-even)))
(get what-even)
(get what-odd))))
+(export marked-up-headfoot)
-(define-public ((marked-up-title what) layout scopes)
+(define ((marked-up-title what) layout scopes)
"Read variables @var{what} from @var{scopes}, and interpret it as markup.
The @var{props} argument will include variables set in @var{scopes} (prefixed
with `header:'."
(if (markup? markup)
(interpret-markup layout props markup)
empty-stencil)))
+(export marked-up-title)