From 3ec0b78343c927cedb00eadf057e26bbd61494c2 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 20 Oct 2018 22:59:30 -0700 Subject: Man reader: allow unescaped " in plain arguments. --- src/Text/Pandoc/Readers/Man.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index 9ef20be0e..169bd03c8 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -337,7 +337,12 @@ lexMacro = do plainArg = do -- TODO skip initial spaces, then parse many linePart til a spaec skipMany spacetab - many (macroArg <|> esc <|> regularText) + many (macroArg <|> esc <|> regularText <|> unescapedQuote) + where unescapedQuote = do + char '"' + fonts <- currentFont + return $ RoffStr ("\"", fonts) + quotedArg :: PandocMonad m => ManLexer m [LinePart] quotedArg = do -- cgit v1.2.3