aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2011-02-06 09:46:59 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2011-02-06 09:46:59 -0800
commitfb5faaa91e32ee252eef2ca542c7666d800591e5 (patch)
treea6532d96d6bd80865ad613651f0752a8fb7b91d0 /src/Text/Pandoc
parentaec54899606bed2580394baa1369e58ede20fde8 (diff)
downloadpandoc-fb5faaa91e32ee252eef2ca542c7666d800591e5.tar.gz
HTML writer: Fixed footnote backrefs in --ascii mode.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 97c5dabea..576a21dd7 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -638,7 +638,8 @@ blockListToNote opts ref blocks =
-- that block. Otherwise, insert a new Plain block with the backlink.
let backlink = [RawInline "html" $ " <a href=\"#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref ++
"\" class=\"footnoteBackLink\"" ++
- " title=\"Jump back to footnote " ++ ref ++ "\">↩</a>"]
+ " title=\"Jump back to footnote " ++ ref ++ "\">" ++
+ (if writerAscii opts then "&#8617;" else "↩") ++ "</a>"]
blocks' = if null blocks
then []
else let lastBlock = last blocks