newlib-cygwin/winsup/doc/cygwin.dsl

150 lines
4.2 KiB
Plaintext

<!DOCTYPE style-sheet PUBLIC
"-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY % html "IGNORE">
<![%html;[
<!ENTITY % print "IGNORE">
<!ENTITY docbook.dsl PUBLIC
"-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN"
CDATA dsssl>
]]>
<!ENTITY % print "INCLUDE">
<![%print;[
<!ENTITY docbook.dsl PUBLIC
"-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN"
CDATA dsssl>
]]>
]>
<style-sheet>
<!-- PRINT -->
<style-specification id="print" use="docbook">
<style-specification-body>
;; The following are
;; <!-- Cygnus customizations by Mark Galassi -->
;; ====================
;; customize the print stylesheet
;; ====================
;; make funcsynopsis look pretty
(define %funcsynopsis-decoration%
;; Decorate elements of a FuncSynopsis?
#t)
;; use graphics in admonitions, and have their path be "."
;; NO: we are not yet ready to use gifs in TeX and so forth
(define %admon-graphics-path%
"./")
(define %admon-graphics%
#f)
;; this is necessary because right now jadetex does not understand
;; symbolic entities, whereas things work well with numeric entities.
(declare-characteristic preserve-sdata?
"UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
#f)
(define %two-side% #t)
(define %section-autolabel%
;; Are sections enumerated?
#t)
;; (define %title-font-family%
;; ;; The font family used in titles
;; "Ariel")
(define %visual-acuity%
;; General measure of document text size
;; "presbyopic"
;; "large-type"
"presbyopic")
(define %generate-part-toc% #t)
;;; The following customizations are from Tim Waugh's selfdocbook
;;; http://cyberelk.net/tim/docbook/
;;;
;;; TeX backend can go to PS (where EPS is needed)
;;; or to PDF (where PNG is needed). So, just
;;; omit the file extension altogether and let
;;; tex/pdfjadetex sort it out on its own.
(define (graphic-file filename)
(let ((ext (file-extension filename)))
(if (or (equal? 'backend 'tex) ;; Leave off the extension for TeX
(not filename)
(not %graphic-default-extension%)
(member ext %graphic-extensions%))
filename
(string-append filename "." %graphic-default-extension%))))
;;; Full justification.
(define %default-quadding%
'justify)
;;; To make URLs line wrap we use the TeX 'url' package.
;;; See also: jadetex.cfg
;; First we need to declare the 'formatting-instruction' flow class.
(declare-flow-object-class formatting-instruction
"UNREGISTERED::James Clark//Flow Object Class::formatting-instruction")
;; Then redefine ulink to use it.
(element ulink
(make sequence
(if (node-list-empty? (children (current-node)))
; ulink url="...", /ulink
(make formatting-instruction
data: (string-append "\\url{"
(attribute-string (normalize "url"))
"}"))
(if (equal? (attribute-string (normalize "url"))
(data-of (current-node)))
; ulink url="http://...", http://..., /ulink
(make formatting-instruction data:
(string-append "\\url{"
(attribute-string (normalize "url"))
"}"))
; ulink url="http://...", some text, /ulink
(make sequence
($charseq$)
(literal " (")
(make formatting-instruction data:
(string-append "\\url{"
(attribute-string (normalize "url"))
"}"))
(literal ")"))))))
;;; And redefine filename to use it too.
(element filename
(make formatting-instruction
data: (string-append "\\path{" (data-of (current-node)) "}")))
</style-specification-body>
</style-specification>
<!-- HTML -->
<style-specification id="html" use="docbook">
<style-specification-body>
;; If true (non-zero), elements of the FuncSynopsis will be decorated
;; (e.g. bold or italic).
(define %funcsynopsis-decoration% #t)
;; If true, a Table of Contents will be generated for each 'Article'.
(define %generate-article-toc% #t)
;; If true, a Table of Contents will be generated for each Part.
(define %generate-part-toc% #t)
;; The name of the stylesheet to place in the HTML LINK TAG,
;; or #f to suppress the stylesheet LINK.
(define %stylesheet% "docbook.css")
(define %use-id-as-filename% #t)
(define %html-ext% ".html")
</style-specification-body>
</style-specification>
<external-specification id="docbook" document="docbook.dsl">
</style-sheet>