From 54fb3843693d7fb004053aad91ecc69a96dcef82 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Mon, 5 Nov 2012 10:45:49 -0800
Subject: [PATCH] HTML writer: Include highlighting-css for code spans, too.
Previously it was only included if used in a code block.
Closes #653.
---
src/Text/Pandoc/Writers/HTML.hs | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 974c37d84..d8a9c6b81 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -591,7 +591,9 @@ inlineToHtml opts inline =
Nothing -> return
$ foldl (!) H.code (attrsToHtml opts attr)
$ strToHtml str
- Just h -> return $ foldl (!) h $
+ Just h -> do
+ modify $ \st -> st{ stHighlighting = True }
+ return $ foldl (!) h $
attrsToHtml opts (id',[],keyvals)
where (id',_,keyvals) = attr
(Strikeout lst) -> inlineListToHtml opts lst >>=