This is the mail archive of the
docbook@lists.oasis-open.org
mailing list for the DocBook project.
Re: customized headers and footers
- To: docbook at lists dot oasis-open dot org
- Subject: Re: DOCBOOK: customized headers and footers
- From: Adam Di Carlo <adam at onshore dot com>
- Date: 12 Nov 1999 10:51:40 -0500
- References: <382ACB7A.80CBBB67@ravinet.com>
- Reply-To: docbook at lists dot oasis-open dot org
Sylvan Ravinet <sylvan@ravinet.com> writes:
> Please tell me how you would to it, and I would appreciate code
> examples in DSSSL (?) to do this.
The following example DSSSL code creates a custom header, which puts
the <date> element data contained the <bookinfo> element into the page
header. It does not accomplish all the stuff you mentioned, however,
at our standard programming services rates, onShore would be happy to
produce the DSSSL for you. [Shoot me an email if interested]
--
.....Adam Di Carlo....adam@onShore.com.....<URL:http://www.onShore.com/>
; use the date in the header
(define ($revision-header$)
(let* ((revision-info (select-elements
(children (select-elements
(children (sgml-root-element))
(normalize "bookinfo")))
(normalize "date")))
(has-revision (not (node-list-empty? revision-info))))
(if has-revision
(make sequence
font-posture: 'italic
(process-node-list (node-list-first revision-info)))
(empty-sosofo))))
(define (page-inner-header gi)
(cond
((equal? (normalize gi) (normalize "dedication")) (empty-sosofo))
((equal? (normalize gi) (normalize "lot")) (empty-sosofo))
((equal? (normalize gi) (normalize "part")) (empty-sosofo))
(else ($revision-header$))))