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> |
---|