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

LaTeX reader: handle \DeclareRobustCommand.

Browse source 
Currently it's just treated as a synonym for `\newcommand`.

Handles the second case mentioned in #3983.
This commit is contained in:
John MacFarlane 2017-10-19 11:50:16 -07:00
parent 9bb8a1f170
commit e941ba05b9
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1610,7 +1610,7 @@ isBlockCommand s =
treatAsBlock :: Set.Set Text treatAsBlock :: Set.Set Text
treatAsBlock = Set.fromList treatAsBlock = Set.fromList
[ "let", "def" [ "let", "def", "DeclareRobustCommand"
, "newcommand", "renewcommand" , "newcommand", "renewcommand"
, "newenvironment", "renewenvironment" , "newenvironment", "renewenvironment"
, "providecommand", "provideenvironment" , "providecommand", "provideenvironment"
@ -1838,7 +1838,8 @@ newcommand = do
pos <- getPosition pos <- getPosition
Tok _ (CtrlSeq mtype) _ <- controlSeq "newcommand" <|> Tok _ (CtrlSeq mtype) _ <- controlSeq "newcommand" <|>
controlSeq "renewcommand" <|> controlSeq "renewcommand" <|>
controlSeq "providecommand" controlSeq "providecommand" <|>
controlSeq "DeclareRobustCommand"
optional $ symbol '*' optional $ symbol '*'
Tok _ (CtrlSeq name) txt <- withVerbatimMode $ anyControlSeq <|> Tok _ (CtrlSeq name) txt <- withVerbatimMode $ anyControlSeq <|>
(symbol '{' *> spaces *> anyControlSeq <* spaces <* symbol '}') (symbol '{' *> spaces *> anyControlSeq <* spaces <* symbol '}')