mirror of
https://git.code.sf.net/p/archivemail/code
synced 2024-12-22 07:42:55 +00:00
40 lines
1.1 KiB
Text
40 lines
1.1 KiB
Text
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
|
|
|
<!ENTITY dbstyle SYSTEM "/usr/share/sgml/docbook/stylesheet/dsssl/modular/html/docbook.dsl" CDATA DSSSL>
|
|
]>
|
|
|
|
<style-sheet>
|
|
<style-specification use="docbook">
|
|
<style-specification-body>
|
|
|
|
(define %css-decoration%
|
|
; Enable html element decoration with 'style=...' css?
|
|
#t)
|
|
|
|
(define %stylesheet%
|
|
; Needed if we want to use a css file
|
|
"manpage.css")
|
|
|
|
(define %shade-verbatim%
|
|
;; Should verbatim environments be shaded?
|
|
#t)
|
|
|
|
; Override $refentry-body$ from dbrfntry.dsl
|
|
; to add a hr after the refentry title h1.
|
|
(define ($refentry-body$)
|
|
(let ((id (element-id (current-node))))
|
|
(make sequence
|
|
(make element gi: "H1"
|
|
(make sequence
|
|
(make element gi: "A"
|
|
attributes: (list (list "NAME" id))
|
|
(empty-sosofo))
|
|
(element-title-sosofo (current-node))))
|
|
; Now add hr element after h1.
|
|
(make empty-element gi: "HR")
|
|
(process-children))))
|
|
|
|
</style-specification-body>
|
|
</style-specification>
|
|
<external-specification id="docbook" document="dbstyle">
|
|
</style-sheet>
|