From bda1c0da81ac5f251ca7958fb0c20b4ea39eea70 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 22 Oct 2018 23:56:02 -0700 Subject: Man reader: Handle optional argument in ME, UE macros. Closes #4995. --- src/Text/Pandoc/Readers/Man.hs | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index 00a2618ff..cd17e96f3 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -765,20 +765,26 @@ parseDefinitionList = definitionList <$> many1 definitionListItem parseLink :: PandocMonad m => [Arg] -> ManParser m Inlines parseLink args = do contents <- mconcat <$> many lineInl - mmacro "UE" + MMacro _ endargs _ <- mmacro "UE" let url = case args of [] -> "" (x:_) -> linePartsToString x - return $ link url "" contents + return $ link url "" contents <> + case endargs of + [] -> mempty + (x:_) -> linePartsToInlines x parseEmailLink :: PandocMonad m => [Arg] -> ManParser m Inlines parseEmailLink args = do contents <- mconcat <$> many lineInl - mmacro "ME" + MMacro _ endargs _ <- mmacro "ME" let url = case args of [] -> "" (x:_) -> "mailto:" ++ linePartsToString x - return $ link url "" contents + return $ link url "" contents <> + case endargs of + [] -> mempty + (x:_) -> linePartsToInlines x skipUnkownMacro :: PandocMonad m => ManParser m Blocks skipUnkownMacro = do -- cgit v1.2.3