]> (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))