1 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
2 <!ENTITY dbstyle SYSTEM "@HTMLSTYLE@" CDATA DSSSL>
6 <style-specification use="docbook">
7 <style-specification-body>
9 <!-- ;; your stuff goes here... -->
12 ;; Add the specified prefix to HTML output filenames
15 (define %use-id-as-filename%
16 ;; Use ID attributes as name for component HTML files?
19 (define %root-filename%
20 ;; Name for the root HTML document
23 (define %section-autolabel%
24 ;; REFENTRY section-autolabel
25 ;; PURP Are sections enumerated?
27 ;; If true, unlabeled sections will be enumerated.
35 ;; PURP Default extension for HTML output files
37 ;; The default extension for HTML output files.
45 ;; PURP Suppress chunking of output pages
47 ;; If true, the entire source document is formatted as a single HTML
48 ;; document and output on stdout.
49 ;; (This option can conveniently be set with '-V nochunks' on the
50 ;; Jade command line).
58 ;; PURP Make a chunk for the root element when nochunks is used
60 ;; If true, a chunk will be created for the root element, even though
61 ;; nochunks is specified. This option has no effect if nochunks is not
63 ;; (This option can conveniently be set with '-V rootchunk' on the
64 ;; Jade command line).
71 ;; REFENTRY html-index
72 ;; PURP HTML indexing?
74 ;; Turns on HTML indexing. If true, then index data will be written
75 ;; to the file defined by 'html-index-filename'. This data can be
76 ;; collated and turned into a DocBook index with bin/collateindex.pl.
83 ;; REFENTRY html-manifest
84 ;; PURP Write a manifest?
86 ;; If not '#f' then the list of HTML files created by the stylesheet
87 ;; will be written to the file named by 'html-manifest-filename'.
93 (define (chunk-element-list)
94 (list (normalize "preface")
96 (normalize "appendix")
98 (normalize "glossary")
99 (normalize "bibliography")
101 (normalize "colophon")
102 (normalize "setindex")
103 (normalize "reference")
104 (normalize "refentry")
106 (normalize "book") ;; just in case nothing else matches...
107 (normalize "set") ;; sets are definitely chunks...
111 ; Add some cell padding to tables so that they don't look so cramped
114 ; The following definition was cut-and-pasted from dbtable.dsl and the
115 ; single line containing the word CELLPADDING was added.
118 (let* ((wrapper (parent (current-node)))
119 (frameattr (attribute-string (normalize "frame") wrapper))
120 (pgwide (attribute-string (normalize "pgwide") wrapper))
121 (footnotes (select-elements (descendants (current-node))
122 (normalize "footnote")))
123 (border (if (equal? frameattr (normalize "none"))
126 (width (if (equal? pgwide "1")
127 (list (list "WIDTH" ($table-width$)))
129 (head (select-elements (children (current-node)) (normalize "thead")))
130 (body (select-elements (children (current-node)) (normalize "tbody")))
131 (feet (select-elements (children (current-node)) (normalize "tfoot"))))
132 (make element gi: "TABLE"
134 '(("CELLPADDING" "3"))
137 (if %cals-table-class%
138 (list (list "CLASS" %cals-table-class%))
140 (process-node-list head)
141 (process-node-list body)
142 (process-node-list feet)
143 (make-table-endnotes))))
145 </style-specification-body>
146 </style-specification>
147 <external-specification id="docbook" document="dbstyle">