source: git/trunk/doc/custom.dsl @ 7bb8184

Last change on this file since 7bb8184 was 7bb8184, checked in by Olly Betts <olly@…>, 13 years ago

Retagging 1.2.0

git-svn-id: file:///home/survex-svn/survex/tags/1.2.0@3664 4b37db11-9a0c-4f06-9ece-9ab7cdaee568

  • Property mode set to 100644
File size: 2.0 KB
Line 
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>
Note: See TracBrowser for help on using the repository browser.