diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-11-16 19:01:53 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-11-16 19:01:53 -0800 |
| commit | 1bf17a7c876fe5070d3bec0cc307c4d3686f3a15 (patch) | |
| tree | 75ea72f67c2cb21616eeadfd663bb37058cb9994 /src/Text/Pandoc/Writers/Ms.hs | |
| parent | 0cea8df8ac1b1e76ad88c31813ba792053265627 (diff) | |
| download | pandoc-1bf17a7c876fe5070d3bec0cc307c4d3686f3a15.tar.gz | |
Ms writer: boldface definition terms in DefinitionLists.
Like LaTeX, ConTeXt.
Diffstat (limited to 'src/Text/Pandoc/Writers/Ms.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Ms.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs index 7e0a58134..b3f4fa1a0 100644 --- a/src/Text/Pandoc/Writers/Ms.hs +++ b/src/Text/Pandoc/Writers/Ms.hs @@ -308,7 +308,8 @@ definitionListItemToMs :: PandocMonad m -> ([Inline],[[Block]]) -> MS m (Doc Text) definitionListItemToMs opts (label, defs) = do - labelText <- inlineListToMs' opts $ map breakToSpace label + labelText <- withFontFeature 'B' $ + inlineListToMs' opts $ map breakToSpace label contents <- if null defs then return empty else liftM vcat $ forM defs $ \blocks -> do |