Subversion Repositories svn LFS-FR

Rev

Rev 3 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
3 guillel 1
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
2
<!ENTITY docbook.dsl SYSTEM "docbook.dsl" CDATA dsssl>
3
]>
4
 
5
<style-sheet>
6
 
7
<style-specification use="docbook">
8
<style-specification-body>
9
 
10
(define %generate-legalnotice-link%
11
;; put the legal notice in a separate file
12
#t)
13
 
14
(define ($legalnotice-link-file$ legalnotice)
15
;; filename of the legalnotice file
16
(string-append "legalnotice"%html-ext%))
17
 
18
(define %html-ext%
19
;; html extenstion
20
".html")
21
 
22
(define %root-filename%
23
;; index file of the book
24
"index")
25
 
26
(define %use-id-as-filename%
27
;; filenames same as id attribute in title tags
28
#t)
29
 
30
(define %body-attr%
31
;; html body settings
32
(list
33
(list "BGCOLOR" "#FFFFFF")
34
(list "TEXT" "#000000")
35
(list "LINK" "#0000FF")
36
(list "VLINK" "#840084")
37
(list "ALINK" "#006000")))
38
 
39
(define (chunk-skip-first-element-list)
40
;; forces the Table of Contents on separate page
41
'())
42
 
43
(define (list-element-list)
44
;; fixes bug in Table of Contents generation
45
'())
46
 
47
(define %shade-verbatim%
48
;; verbatim sections will be shaded if t(rue)
49
#t)
50
 
51
;;(define %section-autolabel%
52
;; For enumerated sections (1.1, 1.1.1, 1.2, etc.)
53
;;#t)
54
 
55
(element emphasis
56
;; make role=strong equate to bold for emphasis tag
57
(if (equal? (attribute-string "role") "strong")
58
(make element gi: "STRONG" (process-children))
59
(make element gi: "EM" (process-children))))
60
 
61
 
62
</style-specification-body>
63
</style-specification>
64
 
65
<external-specification id="docbook" document="docbook.dsl">
66
 
67
</style-sheet>
68