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

Roff reader: conditionals: allow .\} to end group.

Browse source
This commit is contained in:
John MacFarlane 2018-11-02 22:50:18 -07:00
parent 65129f33fd
commit d18d9623b1
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Text/Pandoc/Readers/Roff.hs
View file

@ -513,9 +513,9 @@ lexConditional mname = do
skipMany spacetab
st <- getState -- save state, so we can reset it
ifPart <- lexGroup <|> ((try (char '\\' >> newline)) >> manToken)
<|> do modifyState $ \st -> st{ afterConditional = True }
<|> do modifyState $ \s -> s{ afterConditional = True }
t <- manToken
modifyState $ \st -> st{ afterConditional = False }
modifyState $ \s -> s{ afterConditional = False }
return t
case mbtest of
Nothing -> do
@ -548,7 +548,8 @@ lexGroup = do
mconcat <$> manyTill manToken groupend
where
groupstart = try $ string "\\{\\" >> newline
groupend = try $ string "\\}" >> eofline
groupend = try $ optional (char '.' >> many spacetab) >>
string "\\}" >> eofline
lexIncludeFile :: PandocMonad m => [Arg] -> RoffLexer m RoffTokens
lexIncludeFile args = do