From 6e76e630cf28d46d3f118687c6d5ba959b12de28 Mon Sep 17 00:00:00 2001 From: defanor Date: Tue, 21 Nov 2017 11:33:40 +0300 Subject: Restore ^{} for superscripts and similar text bits in Emacs Superscripts and subscripts, as they were rendered, shorten lines in GUI Emacs, breaking tables if those contained subscripts or superscripts. In terminal Emacs, they were just indistinguishable from regular text. And there was a minor hack for these. Mostly undoing that (for strikethrough as well), though leaving slight raising. --- Pancake/Printing.hs | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'Pancake/Printing.hs') diff --git a/Pancake/Printing.hs b/Pancake/Printing.hs index 04d9de6..c16e820 100644 --- a/Pancake/Printing.hs +++ b/Pancake/Printing.hs @@ -30,12 +30,9 @@ propertize t (Bold s) = fromMaybe id (getCapability t withBold) $ propertize t s propertize t (Emph s) = fromMaybe id (getCapability t withStandout) $ propertize t s -propertize t (Strikethrough s) = - mconcat [termText "-", propertize t s, termText "-"] -propertize t (Subscript s) = - mconcat [termText "_{", propertize t s, termText "}"] -propertize t (Superscript s) = - mconcat [termText "^{", propertize t s, termText "}"] +propertize t (Strikethrough s) = propertize t s +propertize t (Subscript s) = propertize t s +propertize t (Superscript s) = propertize t s propertize t (Underline s) = fromMaybe id (getCapability t withUnderline) $ propertize t s propertize t (Denote _ s) = propertize t s -- cgit v1.2.3