aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2012-12-01 15:48:44 +0100
committerLudovic Courtès2012-12-01 15:48:44 +0100
commit474ca638f49407c616a854cf07ca3abcc9ae042d (patch)
tree05e601650ca1907664fa78c6171078f24b5fa091 /src
parent3d6d88762828f407ade638ddb369248baf3011f4 (diff)
downloadskribilo-474ca638f49407c616a854cf07ca3abcc9ae042d.tar.gz
skribilo-474ca638f49407c616a854cf07ca3abcc9ae042d.tar.lz
skribilo-474ca638f49407c616a854cf07ca3abcc9ae042d.zip
html: Don't emit nested <a> tags for footnotes.
* src/guile/skribilo/engine/html.scm (&html-footnotes): Don't emit nested <a> tags. Reported by Klaus Schilling <schilling.klaus@web.de>.
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/engine/html.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index 9f21d2c..a48745e 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -943,14 +943,15 @@
(let loop ((fns footnotes))
(if (pair? fns)
(let ((fn (car fns)))
- (format #t "<a name=\"footnote-~a\">"
+ ;; Note: the <a> tags must not be nested.
+ (format #t "<a name=\"footnote-~a\"></a>"
(string-canonicalize
(container-ident fn)))
(format #t "<a href=\"#footnote-site-~a\">"
(string-canonicalize
(container-ident fn)))
- (format #t "<sup><small>~a</small></sup></a></a> "
- (markup-option fn :label))
+ (format #t "<sup><small>~a</small></sup></a>"
+ (markup-option fn :label))
(output (markup-body fn) e)
(display "\n<br>\n")
(loop (cdr fns)))))