diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-17 18:29:07 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-17 18:29:07 +0300 |
| commit | b3feaba6af38d621d331afb83a266e2a2ccf6ea4 (patch) | |
| tree | fef2897dfae112e7bf497ca6faadebf08ccd02e1 /src/Text/Pandoc/Writers | |
| parent | 6fc812485e26f169bfe560b5f78c572378cbc53a (diff) | |
| download | pandoc-b3feaba6af38d621d331afb83a266e2a2ccf6ea4.tar.gz | |
Man writer: use \f[R] instead of \f[] to reset font
Fixes #4973
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Man.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs index 81fa38bd7..247666b33 100644 --- a/src/Text/Pandoc/Writers/Man.hs +++ b/src/Text/Pandoc/Writers/Man.hs @@ -185,7 +185,7 @@ blockToMan _ (CodeBlock _ str) = return $ text ".nf" $$ text "\\f[C]" $$ text (escapeCode str) $$ - text "\\f[]" $$ + text "\\f[R]" $$ text ".fi" blockToMan opts (BlockQuote blocks) = do contents <- blockListToMan opts blocks @@ -378,7 +378,7 @@ fontChange :: PandocMonad m => StateT WriterState m Doc fontChange = do features <- gets stFontFeatures let filling = sort [c | (c,True) <- Map.toList features] - return $ text $ "\\f[" ++ filling ++ "]" + return $ text $ "\\f[" ++ (if null filling then "R" else filling) ++ "]" withFontFeature :: PandocMonad m => Char |