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: 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(-)

(limited to 'src/Text')

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 >>=
-- 
cgit v1.2.3