diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-22 13:12:08 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-22 13:12:08 -0800 |
| commit | f61e09cb9a67e13deee5c48ac815e03f79989817 (patch) | |
| tree | a0d0b2a03bfb5060b5cd708098f2936f7f55c480 /src | |
| parent | b892b29eac00c801ffeede20f130bc5b3a35aaec (diff) | |
Added writerHighlight to WriterOptions.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 2 | ||||
| -rw-r--r-- | src/pandoc.hs | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index f81910a10..fac965b89 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -482,6 +482,7 @@ data WriterOptions = WriterOptions , writerHtml5 :: Bool -- ^ Produce HTML5 , writerChapters :: Bool -- ^ Use "chapter" for top-level sects , writerListings :: Bool -- ^ Use listings package for code + , writerHighlight :: Bool -- ^ Highlight source code } deriving Show {-# DEPRECATED writerXeTeX "writerXeTeX no longer does anything" #-} @@ -515,6 +516,7 @@ defaultWriterOptions = , writerHtml5 = False , writerChapters = False , writerListings = False + , writerHighlight = False } -- diff --git a/src/pandoc.hs b/src/pandoc.hs index 0b7380f54..f855e2d3f 100644 --- a/src/pandoc.hs +++ b/src/pandoc.hs @@ -839,7 +839,8 @@ main = do writerHtml5 = html5 || slideVariant == DZSlides, writerChapters = chapters, - writerListings = listings } + writerListings = listings, + writerHighlight = True } when (isNonTextOutput writerName' && outputFile == "-") $ do UTF8.hPutStrLn stderr ("Error: Cannot write " ++ writerName' ++ " output to stdout.\n" ++ |