[7bb8184] | 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> |
---|