diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2006-12-30 22:51:49 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2006-12-30 22:51:49 +0000 |
commit | 4ea1b2bdc0a86f135bae4ae95cfc3d45a9416604 (patch) | |
tree | 55cbdff00c136a483f5a280c07930635d58c9e3b /src/Text/Pandoc/Shared.hs | |
parent | 7cd9db048b9c29238efd1cecda65264db4223dcd (diff) | |
download | pandoc-4ea1b2bdc0a86f135bae4ae95cfc3d45a9416604.tar.gz |
Merged 'strict' branch from r324. This adds a '--strict'
option to pandoc, which forces it to stay as close as possible
to official Markdown syntax.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@347 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Shared.hs')
-rw-r--r-- | src/Text/Pandoc/Shared.hs | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 8418ecffd..7e4f63ffa 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -114,6 +114,7 @@ data ParserState = ParserState stateTitle :: [Inline], -- ^ Title of document stateAuthors :: [String], -- ^ Authors of document stateDate :: String, -- ^ Date of document + stateStrict :: Bool, -- ^ Use strict markdown syntax stateHeaderTable :: [HeaderType] -- ^ List of header types used, -- in what order (rst only) } @@ -132,6 +133,7 @@ defaultParserState = stateTitle = [], stateAuthors = [], stateDate = [], + stateStrict = False, stateHeaderTable = [] } -- | Consolidate @Str@s and @Space@s in an inline list into one big @Str@. @@ -325,10 +327,11 @@ data WriterOptions = WriterOptions , writerHeader :: String -- ^ Header for the document , writerIncludeBefore :: String -- ^ String to include before the body , writerIncludeAfter :: String -- ^ String to include after the body - , writerSmart :: Bool -- ^ If @True@, use smart typography - , writerS5 :: Bool -- ^ @True@ if we're writing S5 - , writerIncremental :: Bool -- ^ If @True@, inceremental S5 lists - , writerNumberSections :: Bool -- ^ If @True@, number sections in LaTeX + , writerSmart :: Bool -- ^ Use smart typography + , writerS5 :: Bool -- ^ We're writing S5 + , writerIncremental :: Bool -- ^ Incremental S5 lists + , writerNumberSections :: Bool -- ^ Number sections in LaTeX + , writerStrictMarkdown :: Bool -- ^ Use strict markdown syntax , writerTabStop :: Int -- ^ Tabstop for conversion between -- spaces and tabs } deriving Show |