diff options
-rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 8c3dac263..dd94c0ac1 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -43,6 +43,7 @@ import Text.Pandoc.Parsing hiding ((<|>), many, optional, space, import qualified Text.Pandoc.UTF8 as UTF8 import Data.Char ( chr, ord ) import Control.Monad +import Data.Default import Text.Pandoc.Builder import Data.Char (isLetter, isAlphaNum) import Control.Applicative @@ -71,6 +72,23 @@ parseLaTeX = do let (Pandoc _ bs') = doc bs return $ Pandoc meta bs' +data LPState = LPState{ + lpMeta :: Meta + , lpOptions :: ReaderOptions + , lpHasChapters :: Bool + , lpParserContext :: ParserContext + , lpQuoteContext :: QuoteContext + } deriving Show + +instance Default LPState where + def = LPState{ + lpMeta = nullMeta + , lpOptions = def + , lpHasChapters = False + , lpParserContext = NullState + , lpQuoteContext = NoQuote + } + type LP = Parser [Char] ParserState anyControlSeq :: LP String |