2000-05-30 21:26:38 +00:00
|
|
|
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
|
|
|
<!ENTITY % html "IGNORE">
|
|
|
|
<![%html;[
|
|
|
|
<!ENTITY % print "IGNORE">
|
|
|
|
<!ENTITY docbook.dsl SYSTEM "docbook.dsl" CDATA dsssl>
|
|
|
|
]]>
|
|
|
|
<!ENTITY % print "INCLUDE">
|
|
|
|
<![%print;[
|
|
|
|
<!ENTITY docbook.dsl SYSTEM "docbook.dsl" CDATA dsssl>
|
|
|
|
]]>
|
|
|
|
]>
|
|
|
|
|
|
|
|
<style-sheet>
|
|
|
|
|
|
|
|
<style-specification id="print" use="docbook">
|
|
|
|
<style-specification-body>
|
|
|
|
|
|
|
|
;; ==============================
|
|
|
|
;; customize the print stylesheet
|
|
|
|
;; ==============================
|
|
|
|
|
2000-08-02 17:37:59 +00:00
|
|
|
(declare-characteristic preserve-sdata?
|
|
|
|
;; this is necessary because right now jadetex does not understand
|
|
|
|
;; symbolic entities, whereas things work well with numeric entities.
|
|
|
|
"UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
|
|
|
|
#f)
|
|
|
|
|
|
|
|
(define %generate-article-toc%
|
|
|
|
;; Should a Table of Contents be produced for Articles?
|
|
|
|
#t)
|
|
|
|
|
|
|
|
(define (toc-depth nd)
|
|
|
|
2)
|
|
|
|
|
|
|
|
(define %generate-article-titlepage-on-separate-page%
|
|
|
|
;; Should the article title page be on a separate page?
|
|
|
|
#t)
|
|
|
|
|
|
|
|
(define %section-autolabel%
|
|
|
|
;; Are sections enumerated?
|
|
|
|
#t)
|
|
|
|
|
|
|
|
(define %footnote-ulinks%
|
|
|
|
;; Generate footnotes for ULinks?
|
|
|
|
#f)
|
|
|
|
|
|
|
|
(define %bop-footnotes%
|
|
|
|
;; Make "bottom-of-page" footnotes?
|
|
|
|
#f)
|
|
|
|
|
|
|
|
(define %body-start-indent%
|
|
|
|
;; Default indent of body text
|
|
|
|
0pi)
|
|
|
|
|
|
|
|
(define %para-indent-firstpara%
|
|
|
|
;; First line start-indent for the first paragraph
|
|
|
|
0pt)
|
|
|
|
|
|
|
|
(define %para-indent%
|
|
|
|
;; First line start-indent for paragraphs (other than the first)
|
|
|
|
0pt)
|
|
|
|
|
|
|
|
(define %block-start-indent%
|
|
|
|
;; Extra start-indent for block-elements
|
|
|
|
0pt)
|
|
|
|
|
|
|
|
(define formal-object-float
|
|
|
|
;; Do formal objects float?
|
|
|
|
#t)
|
|
|
|
|
|
|
|
(define %hyphenation%
|
|
|
|
;; Allow automatic hyphenation?
|
|
|
|
#t)
|
|
|
|
|
|
|
|
(define %admon-graphics%
|
|
|
|
;; Use graphics in admonitions?
|
|
|
|
#f)
|
|
|
|
|
2000-05-30 21:26:38 +00:00
|
|
|
</style-specification-body>
|
|
|
|
</style-specification>
|
|
|
|
|
|
|
|
|
|
|
|
<!--
|
|
|
|
;; ===================================================
|
|
|
|
;; customize the html stylesheet; borrowed from Cygnus
|
|
|
|
;; at http://sourceware.cygnus.com/ (cygnus-both.dsl)
|
|
|
|
;; ===================================================
|
|
|
|
-->
|
|
|
|
|
|
|
|
<style-specification id="html" use="docbook">
|
|
|
|
<style-specification-body>
|
|
|
|
|
|
|
|
(declare-characteristic preserve-sdata?
|
2000-08-02 17:37:59 +00:00
|
|
|
;; this is necessary because right now jadetex does not understand
|
|
|
|
;; symbolic entities, whereas things work well with numeric entities.
|
2000-05-30 21:26:38 +00:00
|
|
|
"UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
|
|
|
|
#f)
|
|
|
|
|
|
|
|
(define %generate-legalnotice-link%
|
2000-08-02 17:37:59 +00:00
|
|
|
;; put the legal notice in a separate file
|
2000-05-30 21:26:38 +00:00
|
|
|
#t)
|
|
|
|
|
|
|
|
(define %admon-graphics-path%
|
2000-08-02 17:37:59 +00:00
|
|
|
;; use graphics in admonitions, set their
|
|
|
|
"../images/")
|
2000-05-30 21:26:38 +00:00
|
|
|
|
|
|
|
(define %admon-graphics%
|
|
|
|
#f)
|
|
|
|
|
|
|
|
(define %funcsynopsis-decoration%
|
|
|
|
;; make funcsynopsis look pretty
|
|
|
|
#t)
|
|
|
|
|
|
|
|
(define %html-ext%
|
2001-01-18 00:39:05 +00:00
|
|
|
;; when producing HTML files, use this extension
|
2000-05-30 21:26:38 +00:00
|
|
|
".html")
|
|
|
|
|
2001-01-25 22:16:22 +00:00
|
|
|
(define %generate-book-toc%
|
|
|
|
;; Should a Table of Contents be produced for books?
|
|
|
|
#t)
|
|
|
|
|
2000-05-30 21:26:38 +00:00
|
|
|
(define %generate-article-toc%
|
2001-01-25 22:16:22 +00:00
|
|
|
;; Should a Table of Contents be produced for articles?
|
2000-05-30 21:26:38 +00:00
|
|
|
#t)
|
|
|
|
|
2000-07-25 22:10:29 +00:00
|
|
|
(define %generate-part-toc%
|
2001-01-25 22:16:22 +00:00
|
|
|
;; Should a Table of Contents be produced for parts?
|
|
|
|
#t)
|
|
|
|
|
|
|
|
(define %generate-book-titlepage%
|
|
|
|
;; produce a title page for books
|
2000-07-25 22:10:29 +00:00
|
|
|
#t)
|
|
|
|
|
|
|
|
(define %generate-article-titlepage%
|
2001-01-18 00:39:05 +00:00
|
|
|
;; produce a title page for articles
|
2000-07-25 22:10:29 +00:00
|
|
|
#t)
|
|
|
|
|
|
|
|
(define (chunk-skip-first-element-list)
|
2000-08-02 17:37:59 +00:00
|
|
|
;; forces the Table of Contents on separate page
|
2000-07-25 22:10:29 +00:00
|
|
|
'())
|
|
|
|
|
2001-01-25 22:16:22 +00:00
|
|
|
(define (list-element-list)
|
|
|
|
;; fixes bug in Table of Contents generation
|
|
|
|
'())
|
|
|
|
|
2000-05-30 21:26:38 +00:00
|
|
|
(define %root-filename%
|
|
|
|
;; The filename of the root HTML document (e.g, "index").
|
|
|
|
"index")
|
|
|
|
|
|
|
|
(define %shade-verbatim%
|
2001-01-18 00:39:05 +00:00
|
|
|
;; verbatim sections will be shaded if t(rue)
|
2000-05-30 21:26:38 +00:00
|
|
|
#t)
|
|
|
|
|
|
|
|
(define %use-id-as-filename%
|
|
|
|
;; Use ID attributes as name for component HTML files?
|
|
|
|
#t)
|
|
|
|
|
2001-01-18 00:39:05 +00:00
|
|
|
(define %graphic-extensions%
|
|
|
|
;; graphic extensions allowed
|
|
|
|
'("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))
|
|
|
|
|
2000-05-30 21:26:38 +00:00
|
|
|
(define %graphic-default-extension%
|
|
|
|
"gif")
|
|
|
|
|
2000-06-14 15:29:17 +00:00
|
|
|
(define %section-autolabel%
|
|
|
|
;; For enumerated sections (1.1, 1.1.1, 1.2, etc.)
|
|
|
|
#t)
|
|
|
|
|
2000-05-30 21:26:38 +00:00
|
|
|
(define (toc-depth nd)
|
2001-01-18 00:39:05 +00:00
|
|
|
;; more depth (2 levels) to toc; instead of flat hierarchy
|
2000-05-30 21:26:38 +00:00
|
|
|
2)
|
|
|
|
|
2001-01-18 00:39:05 +00:00
|
|
|
(element emphasis
|
|
|
|
;; make role=strong equate to bold for emphasis tag
|
|
|
|
(if (equal? (attribute-string "role") "strong")
|
|
|
|
(make element gi: "STRONG" (process-children))
|
|
|
|
(make element gi: "EM" (process-children))))
|
|
|
|
|
|
|
|
(define (article-titlepage-recto-elements)
|
|
|
|
;; elements on an article's titlepage
|
|
|
|
;; note: added othercredit to the default list
|
|
|
|
(list (normalize "title")
|
|
|
|
(normalize "subtitle")
|
|
|
|
(normalize "authorgroup")
|
|
|
|
(normalize "author")
|
|
|
|
(normalize "othercredit")
|
|
|
|
(normalize "releaseinfo")
|
|
|
|
(normalize "copyright")
|
|
|
|
(normalize "pubdate")
|
|
|
|
(normalize "revhistory")
|
|
|
|
(normalize "abstract")))
|
|
|
|
|
|
|
|
(mode article-titlepage-recto-mode
|
|
|
|
|
2001-01-25 22:16:22 +00:00
|
|
|
(element contrib
|
2001-01-18 00:39:05 +00:00
|
|
|
;; print out with othercredit information; for translators, etc.
|
|
|
|
(make sequence
|
|
|
|
(make element gi: "SPAN"
|
|
|
|
attributes: (list (list "CLASS" (gi)))
|
|
|
|
(process-children))))
|
|
|
|
|
2001-01-25 22:16:22 +00:00
|
|
|
(element othercredit
|
2001-01-18 00:39:05 +00:00
|
|
|
;; print out othercredit information; for translators, etc.
|
|
|
|
(let ((author-name (author-string))
|
|
|
|
(author-contrib (select-elements (children (current-node))
|
|
|
|
(normalize "contrib"))))
|
|
|
|
(make element gi: "P"
|
|
|
|
attributes: (list (list "CLASS" (gi)))
|
|
|
|
(make element gi: "B"
|
|
|
|
(literal author-name)
|
|
|
|
(literal " - "))
|
|
|
|
(process-node-list author-contrib))))
|
|
|
|
)
|
|
|
|
|
2001-01-26 00:52:56 +00:00
|
|
|
(define (article-title nd)
|
|
|
|
(let* ((artchild (children nd))
|
|
|
|
(artheader (select-elements artchild (normalize "artheader")))
|
|
|
|
(artinfo (select-elements artchild (normalize "articleinfo")))
|
|
|
|
(ahdr (if (node-list-empty? artheader)
|
|
|
|
artinfo
|
|
|
|
artheader))
|
|
|
|
(ahtitles (select-elements (children ahdr)
|
|
|
|
(normalize "title")))
|
|
|
|
(artitles (select-elements artchild (normalize "title")))
|
|
|
|
(titles (if (node-list-empty? artitles)
|
|
|
|
ahtitles
|
|
|
|
artitles)))
|
|
|
|
(if (node-list-empty? titles)
|
|
|
|
""
|
|
|
|
(node-list-first titles))))
|
|
|
|
|
|
|
|
|
2000-05-30 21:26:38 +00:00
|
|
|
</style-specification-body>
|
|
|
|
</style-specification>
|
|
|
|
|
|
|
|
<external-specification id="docbook" document="docbook.dsl">
|
|
|
|
|
|
|
|
</style-sheet>
|
2001-01-18 00:39:05 +00:00
|
|
|
|