<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY walsh-style PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA DSSSL>
<!ENTITY cygnus-style SYSTEM "/usr/lib/sgml/stylesheet/dsssl/docbook/cygnus/cygnus-both.dsl" CDATA DSSSL>
]>

<style-sheet>
<style-specification id="html" use="docbook">
<style-specification-body>

(define %use-id-as-filename% #t)
(define %html-ext% ".html")
(define %html-header-tags% '())

;;(define %stylesheet% "../../winehq.css")
;;(define %stylesheet-type% "text/css")

(define %shade-verbatim% #t)
(define %section-autolabel% #t)

;; Customize the body tag color attributes
(define %body-attr% 
  (list
   (list "BGCOLOR" "#FFFFFF")
   (list "TEXT" "#000000")
   (list "LINK" "#a50d0d")
   (list "VLINK" "#505050")
   (list "ALINK" "#a50d0d")))

;; Change the background color of programlisting and screen, etc.
(define ($shade-verbatim-attr$)
  (list
   (list "BORDER" "0")
   ;(list "BGCOLOR" "#E0E0E0")  ; light grey
   (list "BGCOLOR" "#E0D0D0")  ; light grayish red
   ;(list "BGCOLOR" "#bc8686")  ; dark rose
   ;(list "BGCOLOR" "#FFD39B")  ; burlywood1 (tan)
   ;(list "BGCOLOR" "#FFE7BA")  ; wheat1 (light tan)
   (list "WIDTH" ($table-width$))))

;; Customize systemitem element to have different formatting, according
;; to which class attribute it contains.
(element systemitem
  (let ((class (attribute-string (normalize "class"))))
    (cond
     ((equal? class (normalize "systemname")) ($italic-mono-seq$))
     ((equal? class (normalize "constant")) ($mono-seq$))
     (else ($charseq$)))))

;; Okay, this is a little tricky.  By default, it appears that setinfo is
;; completely turned off (with empty-sosofo).  The setinfo title is extracted
;; through some other means, so we can ignore it when we process the setinfo
;; below.

;; Process setinfo element
(element setinfo (process-children))
;; Ignore title element -- otherwise it'll appear alongside the releaseinfo
;; element.  If we add any other elements to setinfo, we'll have to blank them
;; out here, also.
(element (setinfo title)
  (empty-sosofo))
;; Enclose releaseinfo element in italics
(element (setinfo releaseinfo)
;  (make element gi: "i"
;  (process-children)))
  (process-children))

</style-specification-body>
</style-specification>

<external-specification id="docbook" document="walsh-style">

</style-sheet>