| 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 |
<style-sheet>
|
| 5 |
|
| 6 |
<style-specification id="html" use="docbook">
|
| 7 |
<style-specification-body>
|
| 8 |
|
| 9 |
;; Default value only
|
| 10 |
(define FHS #f)
|
| 11 |
|
| 12 |
(define %html-ext% ".html")
|
| 13 |
(define %root-filename% "howto")
|
| 14 |
(define %generate-article-toc% #t)
|
| 15 |
(define %generate-article-titlepage% #t)
|
| 16 |
; (define %gentext-nav-use-tables% #f)
|
| 17 |
(define %section-autolabel%
|
| 18 |
;; Are sections enumerated?
|
| 19 |
#f)
|
| 20 |
(define biblio-number
|
| 21 |
;; Enumerate bibliography entries
|
| 22 |
#t)
|
| 23 |
|
| 24 |
;; Does not work
|
| 25 |
;; (define %generate-legalnotice-link%
|
| 26 |
;; Should legal notices be a link to a separate file?
|
| 27 |
;; #t)
|
| 28 |
|
| 29 |
(define (article-titlepage-recto-elements)
|
| 30 |
(list (normalize "title")
|
| 31 |
(normalize "subtitle")
|
| 32 |
(normalize "authorgroup")
|
| 33 |
(normalize "author")
|
| 34 |
;;(normalize "othercredit")
|
| 35 |
(normalize "releaseinfo")
|
| 36 |
(normalize "copyright")
|
| 37 |
(normalize "pubdate")
|
| 38 |
(normalize "revhistory")
|
| 39 |
(normalize "legalnotice")
|
| 40 |
(normalize "abstract")))
|
| 41 |
|
| 42 |
|
| 43 |
(define %body-attr%
|
| 44 |
;; What attributes should be hung off of BODY?
|
| 45 |
(list
|
| 46 |
(list "BGCOLOR" "#FFFFFF")
|
| 47 |
(list "TEXT" "#000000")))
|
| 48 |
|
| 49 |
(define dir-prefix
|
| 50 |
(if FHS
|
| 51 |
;; We'll stay with /usr/doc for the moment: all packages have at
|
| 52 |
;; least a compatibility link in /usr/doc but not all have /usr/share/doc
|
| 53 |
;;"file:/usr/share/doc/"
|
| 54 |
"file:/usr/doc/"
|
| 55 |
"file:/usr/doc/"))
|
| 56 |
|
| 57 |
(element debianpackage
|
| 58 |
(let* (
|
| 59 |
(debianname (attribute-string "name"))
|
| 60 |
(name (if debianname
|
| 61 |
debianname
|
| 62 |
(data (current-node))))
|
| 63 |
(server (attribute-string "refserver")))
|
| 64 |
(make sequence
|
| 65 |
(if server
|
| 66 |
(make element gi: "A"
|
| 67 |
attributes: `(("HREF"
|
| 68 |
,server))
|
| 69 |
(process-children))
|
| 70 |
(process-children))
|
| 71 |
(literal " ")
|
| 72 |
(make element gi: "A"
|
| 73 |
attributes: `(("HREF"
|
| 74 |
,(string-append "http://packages.debian.org/"
|
| 75 |
name)))
|
| 76 |
(literal "(Debian package)"))
|
| 77 |
)))
|
| 78 |
|
| 79 |
(element debiandoc
|
| 80 |
(let (
|
| 81 |
(file (attribute-string "file"))
|
| 82 |
(text (attribute-string "text"))
|
| 83 |
)
|
| 84 |
(if file
|
| 85 |
(make sequence
|
| 86 |
(make element
|
| 87 |
gi: "A"
|
| 88 |
attributes: `(("HREF"
|
| 89 |
,(string-append dir-prefix
|
| 90 |
(data (current-node))
|
| 91 |
"/"
|
| 92 |
file)))
|
| 93 |
(make element
|
| 94 |
(if text
|
| 95 |
(literal text)
|
| 96 |
(literal
|
| 97 |
"Debian documentation")))
|
| 98 |
)
|
| 99 |
(literal (string-append
|
| 100 |
" (the link will work only if you installed the package \""
|
| 101 |
(data (current-node))
|
| 102 |
"\")")))
|
| 103 |
(make sequence
|
| 104 |
(make element
|
| 105 |
gi: "A"
|
| 106 |
attributes: `(("HREF"
|
| 107 |
,(string-append dir-prefix
|
| 108 |
(data (current-node))
|
| 109 |
"/"
|
| 110 |
)))
|
| 111 |
(make element
|
| 112 |
(if text
|
| 113 |
(literal text)
|
| 114 |
(literal
|
| 115 |
"Debian documentation")))
|
| 116 |
)
|
| 117 |
(literal (string-append
|
| 118 |
" (the link will work only if you installed the package \""
|
| 119 |
(data (current-node))
|
| 120 |
"\")")))
|
| 121 |
)))
|
| 122 |
|
| 123 |
(element application ($bold-seq$))
|
| 124 |
|
| 125 |
</style-specification-body>
|
| 126 |
</style-specification>
|
| 127 |
|
| 128 |
<external-specification id="docbook" document="docbook.dsl">
|
| 129 |
|
| 130 |
</style-sheet>
|
| 131 |
|
| 132 |
|
| 133 |
|
| 134 |
|
Parent Directory
| 
Revision Log