diff options
| author | Ludovic Courtès | 2012-12-01 15:54:29 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2012-12-01 15:54:29 +0100 |
| commit | 1096e7af458cffd0b3070e2191672a622379d706 (patch) | |
| tree | 65c82bac4bd5577868c6cbdd84e02494bcde3a04 /src | |
| parent | 474ca638f49407c616a854cf07ca3abcc9ae042d (diff) | |
| download | skribilo-1096e7af458cffd0b3070e2191672a622379d706.tar.gz skribilo-1096e7af458cffd0b3070e2191672a622379d706.tar.lz skribilo-1096e7af458cffd0b3070e2191672a622379d706.zip | |
html: Enclose footnotes in <div class="footnote">.
* src/guile/skribilo/engine/html.scm (&html-footnotes): Enclose each
footnote in <div class="footnote"> instead of <br>, as suggested by
Klaus Schilling <schilling.klaus@web.de>.
Diffstat (limited to 'src')
| -rw-r--r-- | src/guile/skribilo/engine/html.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm index a48745e..12c068e 100644 --- a/src/guile/skribilo/engine/html.scm +++ b/src/guile/skribilo/engine/html.scm @@ -943,6 +943,8 @@ (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 @@ -953,7 +955,8 @@ (format #t "<sup><small>~a</small></sup></a>" (markup-option fn :label)) (output (markup-body fn) e) - (display "\n<br>\n") + + (display "\n</div>\n") (loop (cdr fns))))) (display "</div>"))))) |