diff options
Diffstat (limited to 'Pancake/Printing.hs')
| -rw-r--r-- | Pancake/Printing.hs | 9 |
1 files changed, 3 insertions, 6 deletions
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 |