d20d3a5 · typeable/pandoc

git.iko.soy/typeable/pandoc

Ms writer: Super/subscript support.

Also added some macro definitions to default template to support subscripts + better superscripts.

commitd20d3a5dbbb1bb1e6b6de5fc3d9c65bf844dcb56 authorJohn MacFarlane <jgm@berkeley.edu> dateThu 23 Mar 2017, 12:59 (10 years ago) parent1af6faf

2 files changed+12−2

unifiedsplit

data/templates/default.ms+10

@@ -11,6 +11,16 @@ $if(has-inline-math)$

1111delim ||

1212.EN

1313$endif$

14+\" From https://lists.gnu.org/archive/html/groff/2012-07/msg00046.html

15+\" Superscripts (ex tmac.e) (current versions without extra line space)

16+.\" (reinstate commented versions to restore extra line space)

17+.\" .ds { \v'-0.3m'\x'-0.2m'\\s[\\n[.s]*8u/10u]

18+.ds { \v'-0.3m'\\s[\\n[.s]*9u/12u]

19+.ds } \s0\v'0.3m'

20+.\" Subscripts

21+.\" .ds < \v'0.3m'\x'0.2m'\s[\\n[.s]*8u/10u]

22+.ds < \v'0.3m'\s[\\n[.s]*9u/12u]

23+.ds > \s0\v'-0.3m'

1424$if(title)$

1525.TL

1626$title$

src/Text/Pandoc/Writers/Ms.hs+2−2

@@ -397,10 +397,10 @@ inlineToMs opts (Strikeout lst) = do

397397 return $ text "[STRIKEOUT:" <> contents <> char ']'

398398inlineToMs opts (Superscript lst) = do

399399 contents <- inlineListToMs opts lst

400− return $ char '^' <> contents <> char '^'

400+ return $ text "\\*{" <> contents <> text "\\*}"

401401inlineToMs opts (Subscript lst) = do

402402 contents <- inlineListToMs opts lst

403− return $ char '~' <> contents <> char '~'

403+ return $ text "\\*<" <> contents <> text "\\*>"

404404inlineToMs opts (SmallCaps lst) = do

405405 -- see https://lists.gnu.org/archive/html/groff/2015-01/msg00016.html

406406 modify $ \st -> st{ stSmallCaps = not (stSmallCaps st) }