git.iko.soy/typeable/pandoc
on master help sign in
LaTeX reader: Added LPState.
82ddec6John MacFarlane
src/Text/Pandoc/Readers/LaTeX.hs+18
compare with master
unifiedsplit
@@ -43,6 +43,7 @@ import Text.Pandoc.Parsing hiding ((<|>), many, optional, space,
43import qualified Text.Pandoc.UTF8 as UTF8
43import qualified Text.Pandoc.UTF8 as UTF8
44import Data.Char ( chr, ord )
44import Data.Char ( chr, ord )
45import Control.Monad
45import Control.Monad
46+import Data.Default
46import Text.Pandoc.Builder
47import Text.Pandoc.Builder
47import Data.Char (isLetter, isAlphaNum)
48import Data.Char (isLetter, isAlphaNum)
48import Control.Applicative
49import Control.Applicative
@@ -71,6 +72,23 @@ parseLaTeX = do
71 let (Pandoc _ bs') = doc bs
72 let (Pandoc _ bs') = doc bs
72 return $ Pandoc meta bs'
73 return $ Pandoc meta bs'
73
74
75+data LPState = LPState{
76+ lpMeta :: Meta
77+ , lpOptions :: ReaderOptions
78+ , lpHasChapters :: Bool
79+ , lpParserContext :: ParserContext
80+ , lpQuoteContext :: QuoteContext
81+ } deriving Show
82+
83+instance Default LPState where
84+ def = LPState{
85+ lpMeta = nullMeta
86+ , lpOptions = def
87+ , lpHasChapters = False
88+ , lpParserContext = NullState
89+ , lpQuoteContext = NoQuote
90+ }
91+
74type LP = Parser [Char] ParserState
92type LP = Parser [Char] ParserState
75
93
76anyControlSeq :: LP String
94anyControlSeq :: LP String