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>
7 <style-specification id="html" use="docbook">
8 <style-specification-body>
10 ;; Tweak a few options from the default HTML stylesheet
12 (define %html-ext% ".htm")
13 (define %body-attr% '())
14 (define %shade-verbatim% #t)
15 (define %use-id-as-filename% #t)
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
23 ;; Given an admonition node, returns the name of the graphic that should
24 ;; be used for that admonition.
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.")))))
40 (define %gentext-nav-tblwidth% "100%")
42 ;; expect admon images in the same directory
43 (define %admon-graphics-path% "")
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>
51 <style-specification id="onehtml" use="html">
52 <style-specification-body>
54 ;; Same as above except all in one file
57 </style-specification-body>
58 </style-specification>
60 <external-specification id="docbook" document="docbook.dsl">