diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-02-06 09:46:59 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-02-06 09:46:59 -0800 |
| commit | fb5faaa91e32ee252eef2ca542c7666d800591e5 (patch) | |
| tree | a6532d96d6bd80865ad613651f0752a8fb7b91d0 /src | |
| parent | aec54899606bed2580394baa1369e58ede20fde8 (diff) | |
| download | pandoc-fb5faaa91e32ee252eef2ca542c7666d800591e5.tar.gz | |
HTML writer: Fixed footnote backrefs in --ascii mode.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 3 |
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 "↩" else "↩") ++ "</a>"] blocks' = if null blocks then [] else let lastBlock = last blocks |