HTML writer: Include highlighting-css for code spans, too.

Previously it was only included if used in a code block.
Closes #653.
This commit is contained in:
John MacFarlane 2012-11-05 10:45:49 -08:00
parent 09603b94f7
commit 54fb384369

View file

@ -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 >>=