doc/docbook.dsl

   1 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
   2 <!ENTITY docbook.dsl PUBLIC
   3         "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA dsssl>
   4 ]>
   5
   6 <style-sheet>
   7 <style-specification use="docbook">
   8 <style-specification-body>
   9
  10 ;; your stuff goes here...
  11
  12 (define %generate-article-titlepage% #t)
  13 (define %generate-article-toc% #t)
  14 (define %generate-article-titlepage-on-separate-page% #t)
  15 (define %generate-article-toc-on-titlepage% #f)
  16 (define %article-page-number-restart% #t)
  17
  18 (define %chapter-autolabel% #t)
  19 (define %section-autolabel% #t)
  20 (define (toc-depth nd) 3)
  21
  22 ; === Media objects ===
  23 (define preferred-mediaobject-extensions  ;; this magic allows to use different graphical
  24    (list "eps"))                        ;;   formats for printing and putting online
  25 (define acceptable-mediaobject-extensions
  26    '())
  27 (define preferred-mediaobject-notations
  28    (list "EPS"))
  29 (define acceptable-mediaobject-notations
  30    (list "linespecific"))
  31
  32 ; === Rendering ===
  33 (define %head-after-factor% 0.2)        ;; not much whitespace after orderedlist head
  34 (define ($paragraph$)                   ;; more whitespace after paragraph than before
  35   (make paragraph
  36     first-line-start-indent: (if (is-first-para)
  37                                  %para-indent-firstpara%
  38                                  %para-indent%)
  39     space-before: (* %para-sep% 4)
  40     space-after: (/ %para-sep% 4)
  41     quadding: %default-quadding%
  42     hyphenate?: %hyphenation%
  43     language: (dsssl-language-code)
  44     (process-children)))
  45
  46 </style-specification-body>
  47 </style-specification>
  48 <external-specification id="docbook" document="docbook.dsl">
  49 </style-sheet>