doc/custom.dsl

   1 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
   2 <!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA dsssl>
   3 ]>
   4
   5 <style-sheet>
   6
   7 <style-specification id="html" use="docbook">
   8 <style-specification-body>
   9     ;;
  10     ;;  Tweak a few options from the default HTML stylesheet
  11     ;;
  12     (define %html-ext% ".htm")
  13     (define %body-attr% '())
  14     (define %shade-verbatim% #t)
  15     (define %use-id-as-filename% #t)
  16
  17     (define %graphic-default-extension% ".png")
  18     (define %admon-graphics% #t)
  19     (define ($admon-graphic$ #!optional (nd (current-node)))
  20       ;; REFENTRY admon-graphic
  21       ;; PURP Admonition graphic file
  22       ;; DESC
  23       ;; Given an admonition node, returns the name of the graphic that should
  24       ;; be used for that admonition.
  25       ;; /DESC
  26       ;; AUTHOR N/A
  27       ;; /REFENTRY
  28         (cond ((equal? (gi nd) (normalize "tip"))
  29          (string-append %admon-graphics-path% "tip.png"))
  30         ((equal? (gi nd) (normalize "note"))
  31          (string-append %admon-graphics-path% "note.png"))
  32         ((equal? (gi nd) (normalize "important"))
  33          (string-append %admon-graphics-path% "important.png"))
  34         ((equal? (gi nd) (normalize "caution"))
  35          (string-append %admon-graphics-path% "caution.png"))
  36         ((equal? (gi nd) (normalize "warning"))
  37          (string-append %admon-graphics-path% "warning.png"))
  38         (else (error (string-append (gi nd) " is not an admonition.")))))
  39
  40     (define %gentext-nav-tblwidth% "100%")
  41
  42     ;; expect admon images in the same directory
  43     (define %admon-graphics-path% "")
  44
  45     (define %generate-article-toc% #t)
  46     (define %generate-article-titlepage-on-separate-page% #t)
  47     (define %generate-article-toc-on-titlepage% #f)
  48 </style-specification-body>
  49 </style-specification>
  50
  51 <style-specification id="onehtml" use="html">
  52 <style-specification-body>
  53     ;;
  54     ;;  Same as above except all in one file
  55     ;;
  56     (define nochunks #t)
  57 </style-specification-body>
  58 </style-specification>
  59
  60 <external-specification id="docbook" document="docbook.dsl">
  61
  62 </style-sheet>