From 05a26aef3aaf08e60c81a097be7447c98ee69a95 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Tue, 29 Nov 2011 12:49:39 -0800
Subject: [PATCH] HTML writer: Put citations in span with class="citation".
See #313.
---
src/Text/Pandoc/Writers/HTML.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
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 =