Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions1

LaTeX reader: improve parsing of \def argspec.

Browse source
This commit is contained in:
John MacFarlane 2018-10-14 22:50:29 -07:00
parent e752a027f1
commit 78ebbc6eef
1 changed files with 4 additions and 4 deletions

8
src/Text/Pandoc/Readers/LaTeX.hs
View file

@ -1524,14 +1524,14 @@ defmacro = try $ do
argspecArg :: PandocMonad m => LP m ArgSpec argspecArg :: PandocMonad m => LP m ArgSpec
argspecArg = do argspecArg = do
Tok _ (Arg i) _ <- satisfyTok isArgTok Tok _ (Arg i) _ <- withVerbatimMode $ satisfyTok isArgTok
return $ ArgNum i return $ ArgNum i
argspecPattern :: PandocMonad m => LP m ArgSpec argspecPattern :: PandocMonad m => LP m ArgSpec
argspecPattern = argspecPattern = withVerbatimMode $
Pattern <$> many1 (satisfyTok (\(Tok _ toktype' txt) -> Pattern <$> many1 (satisfyTok (\(Tok _ toktype' txt) ->
(toktype' == Symbol || toktype' == Word) && (toktype' == Symbol || toktype' == Word) &&
(txt /= "{" && txt /= "\\" && txt /= "}"))) (txt /= "{" && txt /= "\\" && txt /= "}")))
newcommand :: PandocMonad m => LP m (Text, Macro) newcommand :: PandocMonad m => LP m (Text, Macro)
newcommand = do newcommand = do