diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-03-26 16:59:29 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-26 16:59:29 +0200 |
| commit | 1b967d90365090a8d55e3c400262c8af51a60bf7 (patch) | |
| tree | 74d9342f10cd69f5de4dd43b0e85382634060fff /src/Text | |
| parent | b085b9f4a712d902ca9e50e4d4b32b403c56e0ae (diff) | |
Ms writre: Added some escapes.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/Ms.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs index 80b56193c..ce3907bbe 100644 --- a/src/Text/Pandoc/Writers/Ms.hs +++ b/src/Text/Pandoc/Writers/Ms.hs @@ -118,12 +118,14 @@ msEscapes :: Map.Map Char String msEscapes = Map.fromList $ [ ('\160', "\\ ") , ('\'', "\\[aq]") - , ('’', "'") + , ('`', "\\`") + , ('\8217', "'") , ('"', "\\\"") , ('\x2014', "\\[em]") , ('\x2013', "\\[en]") , ('\x2026', "\\&...") - , ('|', "\\[u007C]") -- because we use | for inline math + , ('~', "\\[ti]") + , ('^', "\\[ha]") , ('-', "\\-") , ('@', "\\@") , ('\\', "\\\\") |