From 474ca638f49407c616a854cf07ca3abcc9ae042d Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 1 Dec 2012 15:48:44 +0100
Subject: 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>.
---
 src/guile/skribilo/engine/html.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/guile/skribilo/engine/html.scm')

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)))))
-- 
cgit v1.2.3