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