aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs18
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