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