summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2012-12-01 15:54:29 +0100
committerLudovic Courtès2012-12-01 15:54:29 +0100
commit1096e7af458cffd0b3070e2191672a622379d706 (patch)
tree65c82bac4bd5577868c6cbdd84e02494bcde3a04
parent474ca638f49407c616a854cf07ca3abcc9ae042d (diff)
downloadskribilo-1096e7af458cffd0b3070e2191672a622379d706.tar.gz
skribilo-1096e7af458cffd0b3070e2191672a622379d706.tar.lz
skribilo-1096e7af458cffd0b3070e2191672a622379d706.zip
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>.
-rw-r--r--src/guile/skribilo/engine/html.scm5
1 files changed, 4 insertions, 1 deletions
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>")))))