diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-06-27 15:05:13 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-06-27 15:05:13 -0700 |
| commit | 7da913dbd77c8ccad4550d23ee176322e0593820 (patch) | |
| tree | 18c903e76791aac976969b59ef7d0312ddd21529 /src/Text/Pandoc | |
| parent | 064af070da25bd9308b8ffb97cf3a0033368e4bb (diff) | |
| download | pandoc-7da913dbd77c8ccad4550d23ee176322e0593820.tar.gz | |
ConTeXt writer: don't escape `&`,`^`,`<`,`>`.
Simplified escapes for `}` and `{` to `\{` and `\}`.
Thanks to Aditya Mahajan.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/ConTeXt.hs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs index 4514199b5..964320eb2 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -90,18 +90,14 @@ escapeCharForConTeXt :: WriterOptions -> Char -> String escapeCharForConTeXt opts ch = let ligatures = writerTeXLigatures opts in case ch of - '{' -> "\\letteropenbrace{}" - '}' -> "\\letterclosebrace{}" + '{' -> "\\{" + '}' -> "\\}" '\\' -> "\\letterbackslash{}" '$' -> "\\$" '|' -> "\\letterbar{}" - '^' -> "\\letterhat{}" '%' -> "\\letterpercent{}" '~' -> "\\lettertilde{}" - '&' -> "\\&" '#' -> "\\#" - '<' -> "\\letterless{}" - '>' -> "\\lettermore{}" '[' -> "{[}" ']' -> "{]}" '\160' -> "~" |