diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-12-29 22:00:54 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-12-29 22:00:54 -0800 |
| commit | a0a31979ff4dd16bcc4b297538bf6252f6255787 (patch) | |
| tree | 04db1762db73f325edf920822e633ed46fbf5e85 /src | |
| parent | 31fb776c32ad24dd4e9fbf8e547350423ff53ccd (diff) | |
| parent | 6cd20c98fd80f4c8fcdd4796f356e06757e36746 (diff) | |
| download | pandoc-a0a31979ff4dd16bcc4b297538bf6252f6255787.tar.gz | |
Merge pull request #366 from gridaphobe/master
Use Link instead of RawInline for reference backlinks
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 5b885dbfb..8eb5092f9 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -668,8 +668,7 @@ blockListToNote :: WriterOptions -> String -> [Block] -> State WriterState Html 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\">↩</a>"] + let backlink = [Link [Str "↩"] ("#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref,[])] blocks' = if null blocks then [] else let lastBlock = last blocks |