diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-20 10:49:31 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-20 10:49:42 -0700 |
| commit | bccfb1177f93c7cdf79d0f9dc2087866db16d053 (patch) | |
| tree | 66ebb935301ffdd2501e88ecbcbce12d478036c7 /src/Text/Pandoc | |
| parent | 08179695fa9741b9d617f1b7729f2dd2476b4f27 (diff) | |
| download | pandoc-bccfb1177f93c7cdf79d0f9dc2087866db16d053.tar.gz | |
Man reader: support `\*[lq]`, `\*[rq]`.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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")) |