32 lines
910 B
Haskell
32 lines
910 B
Haskell
module FormatOpts where
|
|
|
|
import Text.Pandoc.Extensions
|
|
import Text.Pandoc.Highlighting (pygments)
|
|
import Text.Pandoc.Options
|
|
|
|
-- | Default markdown reading options for Pandoc.
|
|
markdownReadOpts =
|
|
def
|
|
{ readerExtensions =
|
|
Text.Pandoc.Extensions.enableExtension
|
|
Text.Pandoc.Extensions.Ext_smart
|
|
Text.Pandoc.Extensions.pandocExtensions
|
|
}
|
|
|
|
-- | Default HTML writing options for Pandoc.
|
|
htmlWriteOpts :: WriterOptions
|
|
htmlWriteOpts =
|
|
def
|
|
{ writerExtensions = enableExtension Ext_smart pandocExtensions
|
|
, writerHighlightStyle = Just pygments
|
|
, writerWrapText = WrapPreserve
|
|
}
|
|
|
|
-- | Default plaintext writing options for Pandoc.
|
|
plainWriteOpts :: WriterOptions
|
|
plainWriteOpts = def {writerWrapText = WrapNone}
|
|
|
|
-- | Default options for making tables of contents with certain depth.
|
|
tocWriteOpts :: Int -> WriterOptions
|
|
tocWriteOpts n = def { writerTOCDepth = n}
|