mirror/archivemail
1
0
Fork 0
mirror of https://git.code.sf.net/p/archivemail/code synced 2025-01-02 21:24:40 +00:00
Code Issues Releases Wiki Activity

db2html.dsl: override $refentry-body$ from dbrfntry.dsl to add a <hr> after the

Browse source 
refentry title <h1>.
This commit is contained in:
Nikolaus Schulz 2007-11-06 23:33:33 +00:00
parent 372b45d7b0
commit 61d0e803c6
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
db2html.dsl
View file

@ -19,6 +19,21 @@
;; 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">