aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/engine/html.scm41
1 files changed, 20 insertions, 21 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index e9293e6..da40475 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -939,27 +939,26 @@
(display "<div class=\"skribilo-footnote\">")
(display "<hr width='20%' size='2' align='left'>\n"))))
:action (lambda (n e)
- (let ((footnotes (markup-body n)))
- (when (pair? footnotes)
- (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
- (container-ident fn)))
- (format #t "<a href=\"#footnote-site-~a\">"
- (string-canonicalize
- (container-ident fn)))
- (format #t "<sup><small>~a</small></sup></a>"
- (markup-option fn :label))
- (output (markup-body fn) e)
-
- (display "\n</div>\n")
- (loop (cdr fns)))))
- (display "</div>")))))
+ (let ((footnotes (markup-body n)))
+ (for-each (lambda (fn)
+ (display "\n<div class=\"footnote\">")
+
+ ;; 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>"
+ (markup-option fn :label))
+ (output (markup-body fn) e)
+
+ (display "\n</div>\n"))
+ footnotes)
+ (when (pair? footnotes)
+ (display "</div>")))))
;*---------------------------------------------------------------------*/
;* html-title-authors ... */