git.iko.soy/typeable/pandoc
on master help sign in
Ms writer: use light gray for strikeout.

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

commited6249bd0b36613c293f9a7c5cb6df869d3b52e8 authorJohn MacFarlane <jgm@berkeley.edu> dateSat 25 Mar 2017, 20:53 (10 years ago) parentc941a00
3 files changed+8−2
compare with master
unifiedsplit
data/templates/default.ms+2 src/Text/Pandoc/Writers/Ms.hs+3−1 test/writer.ms+3−1
data/templates/default.ms+2
@@ -36,6 +36,8 @@
3636.nr FL \n[LL]
3737.\" footnote point size
3838.nr FPS (\n[PS] - 2000)
39+.\" color used for strikeout
40+.defcolor strikecolor rgb 0.7 0.7 0.7
3941.\" ***************************************************************
4042.\" PDF metadata
4143.mso pdfmark.tmac
src/Text/Pandoc/Writers/Ms.hs+3−1
@@ -425,7 +425,9 @@ inlineToMs opts (Strong lst) =
425425 withFontFeature 'B' (inlineListToMs opts lst)
426426inlineToMs opts (Strikeout lst) = do
427427 contents <- inlineListToMs opts lst
428− return $ text "[STRIKEOUT:" <> contents <> char ']'
428+ -- we use grey color instead of strikeout, which seems quite
429+ -- hard to do in groff for arbitrary bits of text
430+ return $ text "\\m[strikecolor]" <> contents <> text "\\m[]"
429431inlineToMs opts (Superscript lst) = do
430432 contents <- inlineListToMs opts lst
431433 return $ text "\\*{" <> contents <> text "\\*}"
test/writer.ms+3−1
@@ -36,6 +36,8 @@
3636.nr FL \n[LL]
3737.\" footnote point size
3838.nr FPS (\n[PS] - 2000)
39+.\" color used for strikeout
40+.defcolor strikecolor rgb 0.2 0.2 0.2
3941.\" ***************************************************************
4042.\" PDF metadata
4143.mso pdfmark.tmac
@@ -588,7 +590,7 @@ So is \f[B]\f[BI]this\f[B]\f[] word.
588590This is code: \f[C]>\f[], \f[C]$\f[], \f[C]\\\f[], \f[C]\\$\f[],
589591\f[C]<html>\f[].
590592.PP
591−[STRIKEOUT:This is \f[I]strikeout\f[].]
593+\m[strikecolor]This is \f[I]strikeout\f[].\m[]
592594.PP
593595Superscripts: a\*{bc\*}d a\*{\f[I]hello\f[]\*} a\*{hello\ there\*}.
594596.PP