contrib/bind9/doc/arm/nominum-docbook-html.dsl.in

   1 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
   2 <!ENTITY dbstyle SYSTEM "@HTMLSTYLE@" CDATA DSSSL>
   3 ]>
   4
   5 <style-sheet>
   6 <style-specification use="docbook">
   7 <style-specification-body>
   8
   9 <!-- ;; your stuff goes here... -->
  10
  11 (define %html-prefix%
  12   ;; Add the specified prefix to HTML output filenames
  13   "Bv9ARM.")
  14
  15 (define %use-id-as-filename%
  16   ;; Use ID attributes as name for component HTML files?
  17   #t)
  18
  19 (define %root-filename%
  20   ;; Name for the root HTML document
  21   "Bv9ARM")
  22
  23 (define %section-autolabel%
  24   ;; REFENTRY section-autolabel
  25   ;; PURP Are sections enumerated?
  26   ;; DESC
  27   ;; If true, unlabeled sections will be enumerated.
  28   ;; /DESC
  29   ;; AUTHOR N/A
  30   ;; /REFENTRY
  31   #t)
  32
  33 (define %html-ext%
  34   ;; REFENTRY html-ext
  35   ;; PURP Default extension for HTML output files
  36   ;; DESC
  37   ;; The default extension for HTML output files.
  38   ;; /DESC
  39   ;; AUTHOR N/A
  40   ;; /REFENTRY
  41   ".html")
  42
  43 (define nochunks
  44   ;; REFENTRY nochunks
  45   ;; PURP Suppress chunking of output pages
  46   ;; DESC
  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).
  51   ;; /DESC
  52   ;; AUTHOR N/A
  53   ;; /REFENTRY
  54   #f)
  55
  56 (define rootchunk
  57   ;; REFENTRY rootchunk
  58   ;; PURP Make a chunk for the root element when nochunks is used
  59   ;; DESC
  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
  62   ;; true.
  63   ;; (This option can conveniently be set with '-V rootchunk' on the
  64   ;; Jade command line).
  65   ;; /DESC
  66   ;; AUTHOR N/A
  67   ;; /REFENTRY
  68   #t)
  69
  70 (define html-index
  71   ;; REFENTRY html-index
  72   ;; PURP HTML indexing?
  73   ;; DESC
  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.
  77   ;; /DESC
  78   ;; AUTHOR N/A
  79   ;; /REFENTRY
  80   #t)
  81
  82 (define html-manifest
  83   ;; REFENTRY html-manifest
  84   ;; PURP Write a manifest?
  85   ;; DESC
  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'.
  88   ;; /DESC
  89   ;; AUTHOR N/A
  90   ;; /REFENTRY
  91   #t)
  92
  93 (define (chunk-element-list)
  94   (list (normalize "preface")
  95         (normalize "chapter")
  96         (normalize "appendix")
  97         (normalize "article")
  98         (normalize "glossary")
  99         (normalize "bibliography")
 100         (normalize "index")
 101         (normalize "colophon")
 102         (normalize "setindex")
 103         (normalize "reference")
 104         (normalize "refentry")
 105         (normalize "part")
 106         (normalize "book") ;; just in case nothing else matches...
 107         (normalize "set")  ;; sets are definitely chunks...
 108         ))
 109
 110 ;
 111 ; Add some cell padding to tables so that they don't look so cramped
 112 ; in Netscape.
 113 ;
 114 ; The following definition was cut-and-pasted from dbtable.dsl and the
 115 ; single line containing the word CELLPADDING was added.
 116 ;
 117 (element tgroup
 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"))
 124                      '(("BORDER" "0"))
 125                      '(("BORDER" "1"))))
 126          (width (if (equal? pgwide "1")
 127                     (list (list "WIDTH" ($table-width$)))
 128                     '()))
 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"
 133           attributes: (append
 134                        '(("CELLPADDING" "3"))
 135                        border
 136                        width
 137                        (if %cals-table-class%
 138                            (list (list "CLASS" %cals-table-class%))
 139                            '()))
 140           (process-node-list head)
 141           (process-node-list body)
 142           (process-node-list feet)
 143           (make-table-endnotes))))
 144
 145 </style-specification-body>
 146 </style-specification>
 147 <external-specification id="docbook" document="dbstyle">
 148 </style-sheet>