HTML writer: Put citations in span with class="citation".

See #313.
2011-11-29 12:49:39 -08:00 · 2011-11-29 12:49:39 -08:00 · 05a26aef3a
commit 05a26aef3a
parent 479a0a56d7
1 changed files with 2 additions and 1 deletions
--- 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 =