diff options
| -rw-r--r-- | db2html.dsl | 15 |
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"> |