git.iko.soy/typeable/pandoc
on master help sign in
Merge pull request #366 from gridaphobe/master

Use Link instead of RawInline for reference backlinks

commita0a31979ff4dd16bcc4b297538bf6252f6255787 authorJohn MacFarlane <jgm@berkeley.edu> dateThu 29 Dec 2011, 22:00 (15 years ago) parent31fb7766cd20c9
1 file changed+1−2
src/Text/Pandoc/Writers/HTML.hs+1−2
src/Text/Pandoc/Writers/HTML.hs+1−2
@@ -668,8 +668,7 @@ blockListToNote :: WriterOptions -> String -> [Block] -> State WriterState Html
668668blockListToNote opts ref blocks =
669669 -- If last block is Para or Plain, include the backlink at the end of
670670 -- that block. Otherwise, insert a new Plain block with the backlink.
671− let backlink = [RawInline "html" $ " <a href=\"#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref ++
672− "\" class=\"footnoteBackLink\">↩</a>"]
671+ let backlink = [Link [Str "↩"] ("#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref,[])]
673672 blocks' = if null blocks
674673 then []
675674 else let lastBlock = last blocks