diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-12-31 01:47:08 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-12-31 01:47:08 +0000 |
| commit | e620eab478a29c34663572b83891f6855a4453c6 (patch) | |
| tree | 086d294418ee475b08afe331f377415b484e5df4 /src/Text/Pandoc | |
| parent | c5735511eb9a991b1907c8eaa7373d68270978eb (diff) | |
HTML footnotes: put anchor inside sup, instead of other way.
Resolves Issue #191. Thanks to infinity0x for suggesting.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1743 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index a5b403a9b..cb8bd35d3 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -492,10 +492,10 @@ inlineToHtml opts inline = htmlContents <- blockListToNote opts ref contents -- push contents onto front of notes put $ st {stNotes = (htmlContents:notes)} - return $ anchor ! [href ("#" ++ writerIdentifierPrefix opts ++ "fn" ++ ref), - theclass "footnoteRef", - prefixedId opts ("fnref" ++ ref)] << - sup << ref + return $ sup << + anchor ! [href ("#" ++ writerIdentifierPrefix opts ++ "fn" ++ ref), + theclass "footnoteRef", + prefixedId opts ("fnref" ++ ref)] << ref (Cite _ il) -> inlineListToHtml opts il blockListToNote :: WriterOptions -> String -> [Block] -> State WriterState Html |