diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2011-11-29 12:49:39 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-11-29 12:49:39 -0800 |
| commit | 05a26aef3aaf08e60c81a097be7447c98ee69a95 (patch) | |
| tree | b1c146d5ad77410efd6c93341b4600575749038b /src/Text/Pandoc/Writers | |
| parent | 479a0a56d7819074500d6610bb9139b71faf367a (diff) | |
| download | pandoc-05a26aef3aaf08e60c81a097be7447c98ee69a95.tar.gz | |
HTML writer: Put citations in span with class="citation".
See #313.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -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 216ce2d33..ab164619d 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -641,7 +641,8 @@ inlineToHtml opts inline = anchor ! [href ("#" ++ writerIdentifierPrefix opts ++ "fn" ++ ref), theclass "footnoteRef", prefixedId opts ("fnref" ++ ref)] << ref - (Cite _ il) -> inlineListToHtml opts il + (Cite _ il) -> do contents <- inlineListToHtml opts il + return $ thespan ! [theclass "citation"] << contents blockListToNote :: WriterOptions -> String -> [Block] -> State WriterState Html blockListToNote opts ref blocks = |