f1cec1d · typeable/pandoc

55import Text.Pandoc.Error

56import Control.Monad.Except (throwError, catchError)

57import Text.Pandoc.Class (PandocMonad, PandocPure, lookupEnv, readFileLazy,

58− warning)

58+ warning, warningWithPos)

59

60-- | Parse LaTeX from string and return 'Pandoc' document.

61readLaTeX :: PandocMonad m

236 <|> mathInline (char '$' *> mathChars <* char '$')

237 <|> (guardEnabled Ext_literate_haskell *> char '|' *> doLHSverb)

238 <|> (str . (:[]) <$> tildeEscape)

239− <|> (str . (:[]) <$> oneOf "[]")

239+ <|> (do res <- oneOf "#&~^'`\"[]"

240− <|> (str . (:[]) <$> oneOf "#&~^'`\"[]") -- TODO print warning?

240+ pos <- getPosition

241− -- <|> (str <$> count 1 (satisfy (\c -> c /= '\\' && c /='\n' && c /='}' && c /='{'))) -- eat random leftover characters

241+ warningWithPos (Just pos) ("Parsing unescaped '" ++ [res] ++ "'")

242+ return $ str [res])

242

243

243inlines :: PandocMonad m => LP m Inlines

244inlines :: PandocMonad m => LP m Inlines

244inlines = mconcat <$> many (notFollowedBy (char '}') *> inline)

245inlines = mconcat <$> many (notFollowedBy (char '}') *> inline)