diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-07-13 16:11:58 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-07-13 16:12:28 -0700 |
| commit | d0bf7efe95f3b2347073549e83496d9dc636594e (patch) | |
| tree | ce06c12bc8f47401d01f1be126073a05ffbc0f61 /src/Text/Pandoc/Writers | |
| parent | a16311c225e9b9788ee6499e474f9a9170510b11 (diff) | |
| download | pandoc-d0bf7efe95f3b2347073549e83496d9dc636594e.tar.gz | |
Man writer: fixed boldfacing of definition terms.
Previously the bold-facing would be interrupted by
other formatting, because we used `.B`.
Closes #5620.
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 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 |