From f61e09cb9a67e13deee5c48ac815e03f79989817 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Thu, 22 Dec 2011 13:12:08 -0800
Subject: Added writerHighlight to WriterOptions.

---
 src/Text/Pandoc/Shared.hs | 2 ++
 src/pandoc.hs             | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

(limited to 'src')

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