diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-27 23:46:23 -0800 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-27 23:46:47 -0800 |
commit | 16629bf1ce268e86f849ddb44435c6829fd933d2 (patch) | |
tree | 712adaead534d713647424d2153028386d3cd2bf /src/Text/Pandoc/Shared.hs | |
parent | 3122959064412a40d650840467f2838326687251 (diff) |
Added `--highlight-style` and `--no-highlight` options.
Diffstat (limited to 'src/Text/Pandoc/Shared.hs')
-rw-r--r-- | src/Text/Pandoc/Shared.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 301848d6e..81a5e6875 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -81,6 +81,7 @@ import System.FilePath ( (</>) ) import Data.Generics (Typeable, Data) import qualified Control.Monad.State as S import Paths_pandoc (getDataFileName) +import Text.Pandoc.Highlighting (Style, pygments) -- -- List processing @@ -479,6 +480,7 @@ data WriterOptions = WriterOptions , writerChapters :: Bool -- ^ Use "chapter" for top-level sects , writerListings :: Bool -- ^ Use listings package for code , writerHighlight :: Bool -- ^ Highlight source code + , writerHighlightStyle :: Style -- ^ Style to use for highlighting } deriving Show {-# DEPRECATED writerXeTeX "writerXeTeX no longer does anything" #-} @@ -513,6 +515,7 @@ defaultWriterOptions = , writerChapters = False , writerListings = False , writerHighlight = False + , writerHighlightStyle = pygments } -- |