From bccfb1177f93c7cdf79d0f9dc2087866db16d053 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 20 Oct 2018 10:49:31 -0700 Subject: Man reader: support `\*[lq]`, `\*[rq]`. --- src/Text/Pandoc/Readers/Man.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index 7c54944e3..1f8e3bf1e 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -186,8 +186,8 @@ escapeLexer = do choice [ ("\xae" <$ char 'R') , ("" <$ char 'S') -- switch back to default font size - , ("\x201c" <$ try (string "(lq")) - , ("\x201d" <$ try (string "(rq")) + , ("\x201c" <$ try (string "(lq") <|> try (string "[lq]")) + , ("\x201d" <$ try (string "(rq") <|> try (string "[rq]")) , ("" <$ try (string "(HF" >> modifyState (\r -> r {fontKind = singleton Bold}))) , ("\x2122" <$ try (string "(Tm")) -- cgit v1.2.3