From b3feaba6af38d621d331afb83a266e2a2ccf6ea4 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 17 Oct 2018 18:29:07 +0300
Subject: Man writer: use \f[R] instead of \f[] to reset font
Fixes #4973
---
src/Text/Pandoc/Writers/Man.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'src/Text')
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
--
cgit v1.2.3