git.iko.soy/typeable/pandoc
on master help sign in
Added writerHighlight to WriterOptions.
commitf61e09cb9a67e13deee5c48ac815e03f79989817 authorJohn MacFarlane <fiddlosopher@gmail.com> dateThu 22 Dec 2011, 13:12 (15 years ago) parentb892b29
2 files changed+4−1
src/Text/Pandoc/Shared.hs+2 src/pandoc.hs+2−1
src/Text/Pandoc/Shared.hs+2
@@ -482,6 +482,7 @@ data WriterOptions = WriterOptions
482482 , writerHtml5 :: Bool -- ^ Produce HTML5
483483 , writerChapters :: Bool -- ^ Use "chapter" for top-level sects
484484 , writerListings :: Bool -- ^ Use listings package for code
485+ , writerHighlight :: Bool -- ^ Highlight source code
485486 } deriving Show
486487
487488{-# DEPRECATED writerXeTeX "writerXeTeX no longer does anything" #-}
@@ -515,6 +516,7 @@ defaultWriterOptions =
515516 , writerHtml5 = False
516517 , writerChapters = False
517518 , writerListings = False
519+ , writerHighlight = False
518520 }
519521
520522--
src/pandoc.hs+2−1
@@ -839,7 +839,8 @@ main = do
839839 writerHtml5 = html5 ||
840840 slideVariant == DZSlides,
841841 writerChapters = chapters,
842− writerListings = listings }
842+ writerListings = listings,
843+ writerHighlight = True }
843844
844845 when (isNonTextOutput writerName' && outputFile == "-") $
845846 do UTF8.hPutStrLn stderr ("Error: Cannot write " ++ writerName' ++ " output to stdout.\n" ++