Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

change reference backlink from RawInline to Link so it gets rendered properly when using the xmlhtml package

Browse source
This commit is contained in:
Eric Seidel 2011-12-24 21:49:38 -06:00
parent cc18291baf
commit 6cd20c98fd
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/Writers/HTML.hs
View file

@ -663,8 +663,7 @@ blockListToNote :: WriterOptions -> String -> [Block] -> State WriterState Html
blockListToNote opts ref blocks = blockListToNote opts ref blocks =
-- If last block is Para or Plain, include the backlink at the end of -- 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. -- that block. Otherwise, insert a new Plain block with the backlink.
let backlink = [RawInline "html" $ " <a href=\"#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref ++ let backlink = [Link [Str "↩"] ("#" ++ writerIdentifierPrefix opts ++ "fnref" ++ ref,[])]
"\" class=\"footnoteBackLink\">↩</a>"]
blocks' = if null blocks blocks' = if null blocks
then [] then []
else let lastBlock = last blocks else let lastBlock = last blocks