Re: docbook pdf generation

[Stephane Bortzmeyer <bortzmeyer@nic.fr>]

On Mon, Jan 24, 2005 at 02:27:05PM +0100,
 Wichert Akkerman <wichert@wiggy.net> wrote 
 a message of 10 lines which said:

> > PRINT_STYLESHEET=${HOME}/lib/print.dsl
> 
> What is that print.dsl file?

It can be empty but this is the place I put my customization. My
default one is attached.

<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA dsssl>
]>
<!-- $Id: print.dsl,v 1.3 2003/03/14 08:27:14 bortzmeyer Exp $ -->
<style-sheet>

<style-specification id="print" use="docbook">
<style-specification-body> 

(define %generate-article-toc% 
  ;; Should a Table of Contents be produced for Articles?
  #t)
(define %generate-article-titlepage% 
  ;; Should an article title page be produced?
  #t)
(define %body-font-family% 
  ;; The font family used in body text
  "Palatino")
(define %title-font-family% 
  ;; The font family used in titles
  "Palatino")
(define %paper-type%
  ;; Name of paper type
  "A4")
(define %left-margin%
  ;; Width of left margin
  1.5cm)
(define %body-start-indent%
  0.5cm)
(define %bottom-margin% 
  ;; Height of bottom margin
  (if (equal? %visual-acuity% "large-type")
      3cm 
      2cm))
(define bop-footnotes
  ;; Needs a -V tex-backend to jade
  ;; Make "bottom-of-page" footnotes?
  #t)

(define %section-autolabel% 
  ;; Are sections enumerated?
  #t)
;; Returns the depth of auto TOC that should be made at the nd-level
;(define (toc-depth nd)
;  (if (string=? (gi nd) (normalize "book"))
;      3
;      (if (string=? (gi nd) (normalize "article"))
;          3
;          1)))

(define %show-comments%
  ;; Display Comment elements?
  #f)
(define %hyphenation%
  ;; Allow automatic hyphenation?
  #t)

(define (article-titlepage-recto-elements)
  (list (normalize "title")
        (normalize "subtitle")
        (normalize "authorgroup")
        (normalize "author")
        (normalize "othercredit")
        (normalize "releaseinfo")
        (normalize "copyright")
        (normalize "pubdate")
        (normalize "revhistory")
        (normalize "legalnotice")
        (normalize "abstract")))

(element rfc
  (let (
	(num (attribute-string "num"))
	)
    (if num
	  (literal (string-append
		    "RFC "
		    num
		    ;;if (have-ancestor? (normalize "chapter")
		    ))
	  (literal "RFC UNKNOWN")
    )))

</style-specification-body>
</style-specification>

<external-specification id="docbook" document="docbook.dsl">

</style-sheet>