aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--db2html.dsl15
1 files changed, 15 insertions, 0 deletions
diff --git a/db2html.dsl b/db2html.dsl
index f1021ea..cac5775 100644
--- a/db2html.dsl
+++ b/db2html.dsl
@@ -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">