aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2011-07-24 16:24:27 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2011-07-24 16:24:27 -0700
commit3162adbd9b045b0ae67c8902b76c726363eabdf4 (patch)
tree82f9228c67f60e7e79ded3c7dd66b25078827ced /src
parent7b4c1b171c1d7bb542b464160e010a2118ed0fe5 (diff)
downloadpandoc-3162adbd9b045b0ae67c8902b76c726363eabdf4.tar.gz
HTML writer: Removed English title on footnote back links.
This is incongruous in non-English documents.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index fe6ee5db4..8492e59c0 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -648,8 +648,7 @@ 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 = [RawInline "html" $ " <a href=\"#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref ++
- "\" class=\"footnoteBackLink\"" ++
- " title=\"Jump back to footnote " ++ ref ++ "\">" ++
+ "\" class=\"footnoteBackLink\">" ++
(if writerAscii opts then "&#8617;" else "↩") ++ "</a>"]
blocks' = if null blocks
then []