From 1096e7af458cffd0b3070e2191672a622379d706 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 1 Dec 2012 15:54:29 +0100
Subject: html: Enclose footnotes in <div class="footnote">.

* src/guile/skribilo/engine/html.scm (&html-footnotes): Enclose each
  footnote in <div class="footnote"> instead of <br>, as suggested by
  Klaus Schilling <schilling.klaus@web.de>.
---
 src/guile/skribilo/engine/html.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/guile')

diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index a48745e..12c068e 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -943,6 +943,8 @@
 		    (let loop ((fns footnotes))
 		       (if (pair? fns)
 			   (let ((fn (car fns)))
+                              (display "\n<div class=\"footnote\">")
+
                               ;; Note: the <a> tags must not be nested.
 			      (format #t "<a name=\"footnote-~a\"></a>"
 				      (string-canonicalize
@@ -953,7 +955,8 @@
                               (format #t "<sup><small>~a</small></sup></a>"
                                       (markup-option fn :label))
 			      (output (markup-body fn) e)
-			      (display "\n<br>\n")
+
+			      (display "\n</div>\n")
 			      (loop (cdr fns)))))
 		    (display "</div>")))))
 
-- 
cgit v1.2.3