Ms writer: use light gray for strikeout.

Pending groff definitions for striking out an arbitrary
section of text (not just a few words).

1 files changed, 3 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs
index 7d0c278a6..d5f323b5e 100644
--- a/src/Text/Pandoc/Writers/Ms.hs
+++ b/src/Text/Pandoc/Writers/Ms.hs
@@ -425,7 +425,9 @@ inlineToMs opts (Strong lst) =
   withFontFeature 'B' (inlineListToMs opts lst)
 inlineToMs opts (Strikeout lst) = do
   contents <- inlineListToMs opts lst
-  return $ text "[STRIKEOUT:" <> contents <> char ']'
+  -- we use grey color instead of strikeout, which seems quite
+  -- hard to do in groff for arbitrary bits of text
+  return $ text "\\m[strikecolor]" <> contents <> text "\\m[]"
 inlineToMs opts (Superscript lst) = do
   contents <- inlineListToMs opts lst
   return $ text "\\*{" <> contents <> text "\\*}"