diff options
author | Ludovic Courtès | 2012-12-01 15:48:44 +0100 |
---|---|---|
committer | Ludovic Courtès | 2012-12-01 15:48:44 +0100 |
commit | 474ca638f49407c616a854cf07ca3abcc9ae042d (patch) | |
tree | 05e601650ca1907664fa78c6171078f24b5fa091 | |
parent | 3d6d88762828f407ade638ddb369248baf3011f4 (diff) | |
download | skribilo-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>.
-rw-r--r-- | src/guile/skribilo/engine/html.scm | 7 |
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))))) |