diff options
| author | Arun Isaac | 2023-01-28 12:33:57 +0000 |
|---|---|---|
| committer | Arun Isaac | 2023-02-06 00:04:00 +0000 |
| commit | e902d4703126ddf5603210192d47c37e3b859f13 (patch) | |
| tree | ecadf6cae7b520c3724823bcf82316a0e898dfd2 | |
| parent | cb41281bc88790605383be498bf5e10d360a043e (diff) | |
| download | skribilo-e902d4703126ddf5603210192d47c37e3b859f13.tar.gz skribilo-e902d4703126ddf5603210192d47c37e3b859f13.tar.lz skribilo-e902d4703126ddf5603210192d47c37e3b859f13.zip | |
html: Use for-each instead of explicit loop.
* src/guile/skribilo/engine/html.scm (&html-footnotes): Use for-each
instead of explicit loop.
| -rw-r--r-- | src/guile/skribilo/engine/html.scm | 41 |
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 ... */ |