diff --git a/pandoc.cabal b/pandoc.cabal
index ca2a7b275..96863f73d 100644
--- a/pandoc.cabal
+++ b/pandoc.cabal
@@ -545,6 +545,7 @@ library
Text.Pandoc.Lua.Util,
Text.Pandoc.CSS,
Text.Pandoc.CSV,
+ Text.Pandoc.GroffChar,
Text.Pandoc.UUID,
Text.Pandoc.Translations,
Text.Pandoc.Slides,
diff --git a/src/Text/Pandoc/GroffChar.hs b/src/Text/Pandoc/GroffChar.hs
new file mode 100644
index 000000000..669b2b4a0
--- /dev/null
+++ b/src/Text/Pandoc/GroffChar.hs
@@ -0,0 +1,418 @@
+{-# LANGUAGE NoImplicitPrelude #-}
+{-
+Copyright (C) 2018 John MacFarlane <jgm@berkeley.edu>
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+-}
+
+{- |
+ Module : Text.Pandoc.GroffChar
+ Copyright : Copyright (C) 2007-2018 John MacFarlane
+ License : GNU GPL, version 2 or above
+
+ Maintainer : John MacFarlane <jgm@berkeley.edu>
+ Stability : alpha
+ Portability : portable
+
+Groff character escaping/unescaping.
+-}
+
+module Text.Pandoc.GroffChar (
+ essentialEscapes
+ , characterCodes
+ , combiningAccents
+ ) where
+import Prelude
+import qualified Data.Map as Map
+
+essentialEscapes :: Map.Map Char String
+essentialEscapes = Map.fromList
+ [ ('\160', "\\~")
+ , ('\'', "\\[aq]")
+ , ('`', "\\[ga]")
+ , ('"', "\\[dq]")
+ , ('~', "\\[ti]")
+ , ('^', "\\[ha]")
+ , ('@', "\\[at]")
+ , ('\\', "\\[rs]")
+ , ('\x2026', "\\&...") -- because u2026 doesn't render on tty
+ , ('\x2212', "\\-") -- minus
+ ]
+
+characterCodes :: [(Char, String)]
+characterCodes =
+ [ ('Ð', "-D")
+ , ('ð', "Sd")
+ , ('Þ', "TP")
+ , ('þ', "Tp")
+ , ('ß', "ss")
+ , ('ff', "ff")
+ , ('fi', "fi")
+ , ('fl', "fl")
+ , ('ffi', "Fi")
+ , ('ffl', "Fl")
+ , ('Ł', "/L")
+ , ('ł', "/l")
+ , ('Ø', "/O")
+ , ('ø', "/o")
+ , ('Æ', "AE")
+ , ('æ', "ae")
+ , ('Œ', "OE")
+ , ('œ', "oe")
+ , ('IJ', "IJ")
+ , ('ij', "ij")
+ , ('ı', ".i")
+ , ('ȷ', ".j")
+ , ('Á', "'A")
+ , ('Ć', "'C")
+ , ('É', "'E")
+ , ('Í', "'I")
+ , ('Ó', "'O")
+ , ('Ú', "'U")
+ , ('Ý', "'Y")
+ , ('á', "'a")
+ , ('ć', "'c")
+ , ('é', "'e")
+ , ('í', "'i")
+ , ('ó', "'o")
+ , ('ú', "'u")
+ , ('ý', "'y")
+ , ('Ä', ":A")
+ , ('Ë', ":E")
+ , ('Ï', ":I")
+ , ('Ö', ":O")
+ , ('Ü', ":U")
+ , ('Ÿ', ":Y")
+ , ('ä', ":a")
+ , ('ë', ":e")
+ , ('ï', ":i")
+ , ('ö', ":o")
+ , ('ü', ":u")
+ , ('ÿ', ":y")
+ , ('Â', "^A")
+ , ('Ê', "^E")
+ , ('Î', "^I")
+ , ('Ô', "^O")
+ , ('Û', "^U")
+ , ('â', "^a")
+ , ('ê', "^e")
+ , ('î', "^i")
+ , ('ô', "^o")
+ , ('û', "^u")
+ , ('À', "`A")
+ , ('È', "`E")
+ , ('Ì', "`I")
+ , ('Ò', "`O")
+ , ('Ù', "`U")
+ , ('à', "`a")
+ , ('è', "`e")
+ , ('ì', "`i")
+ , ('ò', "`o")
+ , ('ù', "`u")
+ , ('Ã', "~A")
+ , ('Ñ', "~N")
+ , ('Õ', "~O")
+ , ('ã', "~a")
+ , ('ñ', "~n")
+ , ('õ', "~o")
+ , ('Š', "vS")
+ , ('š', "vs")
+ , ('Ž', "vZ")
+ , ('ž', "vz")
+ , ('Ç', ",C")
+ , ('ç', ",c")
+ , ('Å', "oA")
+ , ('å', "oa")
+ , ('˝', "a\"")
+ , ('¯', "a-")
+ , ('˙', "a.")
+ , ('^', "a^")
+ , ('´', "aa")
+ , ('`', "ga")
+ , ('˘', "ab")
+ , ('¸', "ac")
+ , ('¨', "ad")
+ , ('ˇ', "ah")
+ , ('˚', "ao")
+ , ('~', "a~")
+ , ('˛', "ho")
+ , ('^', "ha")
+ , ('~', "ti")
+ , ('„', "Bq")
+ , ('‚', "bq")
+ , ('“', "lq")
+ , ('”', "rq")
+ , ('‘', "oq")
+ , ('’', "cq")
+ , ('\'', "aq")
+ , ('"', "dq")
+ , ('«', "Fo")
+ , ('»', "Fc")
+ , ('‹', "fo")
+ , ('›', "fc")
+ , ('¡', "r!")
+ , ('¿', "r?")
+ , ('—', "em")
+ , ('–', "en")
+ , ('‐', "hy")
+ , ('[', "lB")
+ , (']', "rB")
+ , ('{', "lC")
+ , ('}', "rC")
+ , ('⟨', "la")
+ , ('⟩', "ra")
+ , ('⎪', "bv")
+ , ('⎪', "braceex")
+ , ('⎡', "bracketlefttp")
+ , ('⎣', "bracketleftbt")
+ , ('⎢', "bracketleftex")
+ , ('⎤', "bracketrighttp")
+ , ('⎦', "bracketrightbt")
+ , ('⎥', "bracketrightex")
+ , ('╭', "lt")
+ , ('⎧', "bracelefttp")
+ , ('┥', "lk")
+ , ('⎨', "braceleftmid")
+ , ('╰', "lb")
+ , ('⎩', "braceleftbt")
+ , ('⎪', "braceleftex")
+ , ('╮', "rt")
+ , ('⎫', "bracerighttp")
+ , ('┝', "rk")
+ , ('⎬', "bracerightmid")
+ , ('╯', "rb")
+ , ('⎭', "bracerightbt")
+ , ('⎪', "bracerightex")
+ , ('⎛', "parenlefttp")
+ , ('⎝', "parenleftbt")
+ , ('⎜', "parenleftex")
+ , ('⎞', "parenrighttp")
+ , ('⎠', "parenrightbt")
+ , ('⎟', "parenrightex")
+ , ('←', "<-")
+ , ('→', "->")
+ , ('↔', "<>")
+ , ('↓', "da")
+ , ('↑', "ua")
+ , ('↕', "va")
+ , ('⇐', "lA")
+ , ('⇒', "rA")
+ , ('⇔', "hA")
+ , ('⇓', "dA")
+ , ('⇑', "uA")
+ , ('⇕', "vA")
+ , ('⎯', "an")
+ , ('|', "ba")
+ , ('│', "br")
+ , ('_', "ul")
+ , ('‾', "rn")
+ , ('_', "ru")
+ , ('¦', "bb")
+ , ('/', "sl")
+ , ('\\', "rs")
+ , ('○', "ci")
+ , ('·', "bu")
+ , ('‡', "dd")
+ , ('†', "dg")
+ , ('◊', "lz")
+ , ('□', "sq")
+ , ('¶', "ps")
+ , ('§', "sc")
+ , ('☜', "lh")
+ , ('☞', "rh")
+ , ('@', "at")
+ , ('#', "sh")
+ , ('↵', "CR")
+ , ('✓', "OK")
+ , ('©', "co")
+ , ('®', "rg")
+ , ('™', "tm")
+ , ('$', "Do")
+ , ('¢', "ct")
+ , ('€', "eu")
+ , ('€', "Eu")
+ , ('¥', "Ye")
+ , ('£', "Po")
+ , ('¤', "Cs")
+ , ('ƒ', "Fn")
+ , ('°', "de")
+ , ('‰', "%0")
+ , ('′', "fm")
+ , ('″', "sd")
+ , ('µ', "mc")
+ , ('ª', "Of")
+ , ('º', "Om")
+ , ('∧', "AN")
+ , ('∨', "OR")
+ , ('¬', "no")
+ , ('¬', "tno")
+ , ('∃', "te")
+ , ('∀', "fa")
+ , ('∋', "st")
+ , ('∴', "3d")
+ , ('∴', "tf")
+ , ('|', "or")
+ , ('½', "12")
+ , ('¼', "14")
+ , ('¾', "34")
+ , ('⅛', "18")
+ , ('⅜', "38")
+ , ('⅝', "58")
+ , ('⅞', "78")
+ , ('¹', "S1")
+ , ('²', "S2")
+ , ('³', "S3")
+ , ('+', "pl")
+ , ('−', "mi")
+ , ('∓', "-+")
+ , ('±', "+-")
+ , ('±', "t+-")
+ , ('·', "pc")
+ , ('⋅', "md")
+ , ('×', "mu")
+ , ('×', "tmu")
+ , ('⊗', "c*")
+ , ('⊕', "c+")
+ , ('÷', "di")
+ , ('÷', "tdi")
+ , ('⁄', "f/")
+ , ('∗', "**")
+ , ('≤', "<=")
+ , ('≥', ">=")
+ , ('≪', "<<")
+ , ('≫', ">>")
+ , ('=', "eq")
+ , ('≠', "!=")
+ , ('≡', "==")
+ , ('≢', "ne")
+ , ('≅', "=~")
+ , ('≃', "|=")
+ , ('∼', "ap")
+ , ('≈', "~~")
+ , ('≈', "~=")
+ , ('∝', "pt")
+ , ('∅', "es")
+ , ('∈', "mo")
+ , ('∉', "nm")
+ , ('⊂', "sb")
+ , ('⊄', "nb")
+ , ('⊃', "sp")
+ , ('⊅', "nc")
+ , ('⊆', "ib")
+ , ('⊇', "ip")
+ , ('∩', "ca")
+ , ('∪', "cu")
+ , ('∠', "/_")
+ , ('⊥', "pp")
+ , ('∫', "is")
+ , ('∫', "integral")
+ , ('∑', "sum")
+ , ('∏', "product")
+ , ('∐', "coproduct")
+ , ('∇', "gr")
+ , ('√', "sr")
+ , ('√', "sqrt")
+ -- , "radicalex"
+ -- "sqrtex"
+ , ('⌈', "lc")
+ , ('⌉', "rc")
+ , ('⌊', "lf")
+ , ('⌋', "rf")
+ , ('∞', "if")
+ , ('ℵ', "Ah")
+ , ('ℑ', "Im")
+ , ('ℜ', "Re")
+ , ('℘', "wp")
+ , ('∂', "pd")
+ , ('ℏ', "-h")
+ , ('ℏ', "hbar")
+ , ('Α', "*A")
+ , ('Β', "*B")
+ , ('Γ', "*G")
+ , ('Δ', "*D")
+ , ('Ε', "*E")
+ , ('Ζ', "*Z")
+ , ('Η', "*Y")
+ , ('Θ', "*H")
+ , ('Ι', "*I")
+ , ('Κ', "*K")
+ , ('Λ', "*L")
+ , ('Μ', "*M")
+ , ('Ν', "*N")
+ , ('Ξ', "*C")
+ , ('Ο', "*O")
+ , ('Π', "*P")
+ , ('Ρ', "*R")
+ , ('Σ', "*S")
+ , ('Τ', "*T")
+ , ('Υ', "*U")
+ , ('Φ', "*F")
+ , ('Χ', "*X")
+ , ('Ψ', "*Q")
+ , ('Ω', "*W")
+ , ('α', "*a")
+ , ('β', "*b")
+ , ('γ', "*g")
+ , ('δ', "*d")
+ , ('ε', "*e")
+ , ('ζ', "*z")
+ , ('η', "*y")
+ , ('θ', "*h")
+ , ('ι', "*i")
+ , ('κ', "*k")
+ , ('λ', "*l")
+ , ('μ', "*m")
+ , ('ν', "*n")
+ , ('ξ', "*c")
+ , ('ο', "*o")
+ , ('π', "*p")
+ , ('ρ', "*r")
+ , ('ς', "ts")
+ , ('σ', "*s")
+ , ('τ', "*t")
+ , ('υ', "*u")
+ , ('ϕ', "*f")
+ , ('χ', "*x")
+ , ('ψ', "*q")
+ , ('ω', "*w")
+ , ('ϑ', "+h")
+ , ('φ', "+f")
+ , ('ϖ', "+p")
+ , ('ϵ', "+e")
+ , ('♣', "CL")
+ , ('♠', "SP")
+ , ('♥', "HE")
+ , ('♦', "DI")
+ ]
+
+-- use like: \\[E a^ aa]
+combiningAccents :: [(Char, String)]
+combiningAccents =
+ [ ('˝' , "\\[a\"]")
+ , ('¯', "\\[a-]")
+ , ('˙', "\\[a.]")
+ , ('^', "\\[a^]")
+ , ('´', "\\[aa]")
+ , ('`', "\\[ga]")
+ , ('˘', "\\[ab]")
+ , ('¸', "\\[ac]")
+ , ('¨', "\\[ad]")
+ , ('ˇ', "\\[ah]")
+ , ('˚', "\\[ao]")
+ , ('~', "\\[a~]")
+ , ('˛', "\\[ho]")
+ , ('^', "\\[ha]")
+ , ('~', "\\[ti]")
+ ]
diff --git a/src/Text/Pandoc/Writers/Groff.hs b/src/Text/Pandoc/Writers/Groff.hs
index cb7252726..3f90a1490 100644
--- a/src/Text/Pandoc/Writers/Groff.hs
+++ b/src/Text/Pandoc/Writers/Groff.hs
@@ -51,6 +51,7 @@ import Text.Pandoc.Class (PandocMonad)
import Text.Pandoc.Definition
import Text.Pandoc.Pretty
import Text.Printf (printf)
+import Text.Pandoc.GroffChar (essentialEscapes)
data WriterState = WriterState { stHasInlineMath :: Bool
, stFirstPara :: Bool
@@ -81,28 +82,9 @@ type Note = [Block]
type MS = StateT WriterState
--- | Association list of characters to escape.
-groffEscapes :: Map.Map Char String
-groffEscapes = Map.fromList
- [ ('\160', "\\~")
- , ('\'', "\\[aq]")
- , ('`', "\\`")
- , ('"', "\\[dq]")
- , ('\x201C', "\\[lq]")
- , ('\x201D', "\\[rq]")
- , ('\x2018', "\\[oq]")
- , ('\x2019', "\\[cq]")
- , ('\x2014', "\\[em]")
- , ('\x2013', "\\[en]")
- , ('\x2026', "\\&...")
- , ('~', "\\[ti]")
- , ('^', "\\[ha]")
- , ('@', "\\[at]")
- , ('\\', "\\\\")
- ]
escapeChar :: Char -> String
-escapeChar c = fromMaybe [c] (Map.lookup c groffEscapes)
+escapeChar c = fromMaybe [c] (Map.lookup c essentialEscapes)
-- | Escape special characters for groff.
escapeString :: String -> String