diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-11-05 10:45:49 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-11-05 10:45:49 -0800 |
| commit | 54fb3843693d7fb004053aad91ecc69a96dcef82 (patch) | |
| tree | c15dd3ee79f0283a61174eec50caf84053b4e5e2 /src/Text | |
| parent | 09603b94f76777f4b11dc1d513a3816df4c9ae85 (diff) | |
| download | pandoc-54fb3843693d7fb004053aad91ecc69a96dcef82.tar.gz | |
HTML writer: Include highlighting-css for code spans, too.
Previously it was only included if used in a code block.
Closes #653.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 >>= |