diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-20 22:59:30 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-20 22:59:30 -0700 |
| commit | 3ec0b78343c927cedb00eadf057e26bbd61494c2 (patch) | |
| tree | eb96290b77e837674e3a9fcd7daa9d611c063ce3 /src/Text/Pandoc | |
| parent | 9593b375d747d681db0d3aba3af0f1ffd2db0f2f (diff) | |
| download | pandoc-3ec0b78343c927cedb00eadf057e26bbd61494c2.tar.gz | |
Man reader: allow unescaped " in plain arguments.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 7 |
1 files changed, 6 insertions, 1 deletions
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 |