From 3a9f807052f0f8af6e281a9a8dbd0bf809ea55db Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 24 Oct 2018 08:59:10 -0700
Subject: [PATCH] GroffChar: added @ to list of standard escapes.
Because we use it as a delimiter for tables (in man)
and for math (in ms).
---
src/Text/Pandoc/GroffChar.hs | 4 +++-
test/writer.ms | 2 +-
2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/src/Text/Pandoc/GroffChar.hs b/src/Text/Pandoc/GroffChar.hs
index 6d2eff98b..3f78939c4 100644
--- a/src/Text/Pandoc/GroffChar.hs
+++ b/src/Text/Pandoc/GroffChar.hs
@@ -37,7 +37,8 @@ module Text.Pandoc.GroffChar (
) where
import Prelude
--- | These are the escapes specifically mentioned in groff_man(7).
+-- | These are the escapes specifically mentioned in groff_man(7),
+-- plus @ and ellipsis.
standardEscapes :: [(Char, String)]
standardEscapes =
[ ('\160', "\\ ")
@@ -54,6 +55,7 @@ standardEscapes =
, ('~', "\\[ti]")
, ('-', "\\-") -- minus; - will be interpreted as hyphen U+2010
, ('\\', "\\[rs]")
+ , ('@', "\\[at]") -- because we use @ as a table and math delimiter
, ('\x2026', "\\&...") -- because u2026 doesn't render on tty
]
diff --git a/test/writer.ms b/test/writer.ms
index 0cb60a3bc..2afeb6ae2 100644
--- a/test/writer.ms
+++ b/test/writer.ms
@@ -925,7 +925,7 @@ It should.
.LP
An e\-mail address: \c
.pdfhref W -D "mailto:nobody%40nowhere.net" -A "\c" \
- -- "nobody@nowhere.net"
+ -- "nobody\[at]nowhere.net"
\&
.RS
.LP