<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [

<!ENTITY dbstyle SYSTEM "@HTMLSTYLE@" CDATA DSSSL>

]>

<style-sheet>

<style-specification use="docbook">

<style-specification-body>

(define %html-prefix%

;; Add the specified prefix to HTML output filenames

"Bv9ARM.")

(define %use-id-as-filename%

;; Use ID attributes as name for component HTML files?

#t)

(define %root-filename%

;; Name for the root HTML document

"Bv9ARM")

(define %section-autolabel%

;; REFENTRY section-autolabel

;; PURP Are sections enumerated?

;; DESC

;; If true, unlabeled sections will be enumerated.

;; /DESC

;; AUTHOR N/A

;; /REFENTRY

#t)

(define %html-ext%

;; REFENTRY html-ext

;; PURP Default extension for HTML output files

;; DESC

;; The default extension for HTML output files.

;; /DESC

;; AUTHOR N/A

;; /REFENTRY

".html")

(define nochunks

;; REFENTRY nochunks

;; PURP Suppress chunking of output pages

;; DESC

;; If true, the entire source document is formatted as a single HTML

;; document and output on stdout.

;; (This option can conveniently be set with '-V nochunks' on the

;; Jade command line).

;; /DESC

;; AUTHOR N/A

;; /REFENTRY

#f)

(define rootchunk

;; REFENTRY rootchunk

;; PURP Make a chunk for the root element when nochunks is used

;; DESC

;; If true, a chunk will be created for the root element, even though

;; nochunks is specified. This option has no effect if nochunks is not

;; true.

;; (This option can conveniently be set with '-V rootchunk' on the

;; Jade command line).

;; /DESC

;; AUTHOR N/A

;; /REFENTRY

#t)

(define html-index

;; REFENTRY html-index

;; PURP HTML indexing?

;; DESC

;; Turns on HTML indexing. If true, then index data will be written

;; to the file defined by 'html-index-filename'. This data can be

;; collated and turned into a DocBook index with bin/collateindex.pl.

;; /DESC

;; AUTHOR N/A

;; /REFENTRY

#t)

(define html-manifest

;; REFENTRY html-manifest

;; PURP Write a manifest?

;; DESC

;; If not '#f' then the list of HTML files created by the stylesheet

;; will be written to the file named by 'html-manifest-filename'.

;; /DESC

;; AUTHOR N/A

;; /REFENTRY

#t)

(define (chunk-element-list)

(list (normalize "preface")

(normalize "chapter")

(normalize "appendix")

(normalize "article")

(normalize "glossary")

(normalize "bibliography")

(normalize "index")

(normalize "colophon")

(normalize "setindex")

(normalize "reference")

(normalize "refentry")

(normalize "part")

(normalize "book") ;; just in case nothing else matches...

(normalize "set") ;; sets are definitely chunks...

))

;

; Add some cell padding to tables so that they don't look so cramped

; in Netscape.

;

; The following definition was cut-and-pasted from dbtable.dsl and the

; single line containing the word CELLPADDING was added.

;

(element tgroup

(let* ((wrapper (parent (current-node)))

(frameattr (attribute-string (normalize "frame") wrapper))

(pgwide (attribute-string (normalize "pgwide") wrapper))

(footnotes (select-elements (descendants (current-node))

(normalize "footnote")))

(border (if (equal? frameattr (normalize "none"))

'(("BORDER" "0"))

'(("BORDER" "1"))))

(width (if (equal? pgwide "1")

(list (list "WIDTH" ($table-width$)))

'()))

(head (select-elements (children (current-node)) (normalize "thead")))

(body (select-elements (children (current-node)) (normalize "tbody")))

(feet (select-elements (children (current-node)) (normalize "tfoot"))))

(make element gi: "TABLE"

attributes: (append

'(("CELLPADDING" "3"))

border

width

(if %cals-table-class%

(list (list "CLASS" %cals-table-class%))

'()))

(process-node-list head)

(process-node-list body)

(process-node-list feet)

(make-table-endnotes))))

</style-specification-body>

</style-specification>

<external-specification id="docbook" document="dbstyle">

</style-sheet>