diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 42726bc61..ef5e6b416 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -1047,7 +1047,7 @@ blockListToNote :: PandocMonad m => WriterOptions -> String -> [Block] -> StateT blockListToNote opts ref blocks = -- If last block is Para or Plain, include the backlink at the end of -- that block. Otherwise, insert a new Plain block with the backlink. - let backlink = [Link nullAttr [Str "↩"] ("#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref,[])] + let backlink = [Link ("",["footnoteBack"],[]) [Str "↩"] ("#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref,[])] blocks' = if null blocks then [] else let lastBlock = last blocks diff --git a/test/writer.html4 b/test/writer.html4 index 81cacde6a..ccd3af10c 100644 --- a/test/writer.html4 +++ b/test/writer.html4 @@ -535,14 +535,14 @@ Blah
Here is the footnote. It can go anywhere after the footnote reference. It need not be placed at the end of the document.↩
Here is the footnote. It can go anywhere after the footnote reference. It need not be placed at the end of the document.↩
Here’s the long note. This one contains multiple blocks.
Subsequent blocks are indented to show that they belong to the footnote (as with list items).
{ <code> }
-If you want, you can indent every line, but you can also be lazy and just indent the first line of each block.↩
This is easier to type. Inline notes may contain links and ] verbatim characters, as well as [bracketed text].↩
In quote.↩
In list.↩
If you want, you can indent every line, but you can also be lazy and just indent the first line of each block.↩
+This is easier to type. Inline notes may contain links and ] verbatim characters, as well as [bracketed text].↩
In quote.↩
In list.↩