;;;;;;;;;;;;;;;;;;
-(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)