From d0bf7efe95f3b2347073549e83496d9dc636594e Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 13 Jul 2019 16:11:58 -0700
Subject: Man writer: fixed boldfacing of definition terms.
Previously the bold-facing would be interrupted by
other formatting, because we used `.B`.
Closes #5620.
---
src/Text/Pandoc/Writers/Man.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'src')
diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs
index ed8682a84..e13f46af9 100644
--- a/src/Text/Pandoc/Writers/Man.hs
+++ b/src/Text/Pandoc/Writers/Man.hs
@@ -228,7 +228,7 @@ definitionListItemToMan :: PandocMonad m
-> ([Inline],[[Block]])
-> StateT WriterState m Doc
definitionListItemToMan opts (label, defs) = do
- labelText <- inlineListToMan opts label
+ labelText <- withFontFeature 'B' (inlineListToMan opts label)
contents <- if null defs
then return empty
else liftM vcat $ forM defs $ \blocks ->
@@ -245,7 +245,7 @@ definitionListItemToMan opts (label, defs) = do
then empty
else text ".RS" $$ rest' $$ text ".RE"
[] -> return empty
- return $ text ".TP" $$ nowrap (text ".B " <> labelText) $$ contents
+ return $ text ".TP" $$ labelText $$ contents
-- | Convert list of Pandoc block elements to man.
blockListToMan :: PandocMonad m
--
cgit v1.2.3