diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-12-02 22:41:51 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-12-02 22:41:51 +0000 |
commit | 42ba781b3dcb15a3a8fd4169fa03eeb316f05125 (patch) | |
tree | 0f96b0e0ee19cf6529781659951d394463cbaea1 /Text/Pandoc/Shared.hs | |
parent | 035f0ff91730a4f55c47d7447deb49f023698ab9 (diff) | |
download | pandoc-42ba781b3dcb15a3a8fd4169fa03eeb316f05125.tar.gz |
Added literate haskell support for markdown reader.
+ Added stateLiterateHaskell to parser state.
+ Added parser for lhsCodeBlock to Markdown reader.
+ Added --lhs-in option, to treat input as literate haskell.
+ If first source has extension .lhs, assume --lhs-in.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1497 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc/Shared.hs')
-rw-r--r-- | Text/Pandoc/Shared.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Text/Pandoc/Shared.hs b/Text/Pandoc/Shared.hs index 8b08a0e94..0d137e9a9 100644 --- a/Text/Pandoc/Shared.hs +++ b/Text/Pandoc/Shared.hs @@ -635,6 +635,7 @@ data ParserState = ParserState stateDate :: String, -- ^ Date of document stateStrict :: Bool, -- ^ Use strict markdown syntax? stateSmart :: Bool, -- ^ Use smart typography? + stateLiterateHaskell :: Bool, -- ^ Treat input as literate haskell stateColumns :: Int, -- ^ Number of columns in terminal stateHeaderTable :: [HeaderType] -- ^ Ordered list of header types used } @@ -658,6 +659,7 @@ defaultParserState = stateDate = [], stateStrict = False, stateSmart = False, + stateLiterateHaskell = False, stateColumns = 80, stateHeaderTable = [] } |