From bac25e82d3f588119eab4219322691c8a8fb0847 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 24 Oct 2018 08:51:42 -0700 Subject: Rename manEscapes -> standardEscapes --- src/Text/Pandoc/GroffChar.hs | 6 +++--- src/Text/Pandoc/Writers/Groff.hs | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/GroffChar.hs b/src/Text/Pandoc/GroffChar.hs index efb3cf11a..6d2eff98b 100644 --- a/src/Text/Pandoc/GroffChar.hs +++ b/src/Text/Pandoc/GroffChar.hs @@ -31,15 +31,15 @@ Groff character escaping/unescaping. -} module Text.Pandoc.GroffChar ( - manEscapes + standardEscapes , characterCodes , combiningAccents ) where import Prelude -- | These are the escapes specifically mentioned in groff_man(7). -manEscapes :: [(Char, String)] -manEscapes = +standardEscapes :: [(Char, String)] +standardEscapes = [ ('\160', "\\ ") , ('\'', "\\[aq]") , ('‘', "\\[oq]") diff --git a/src/Text/Pandoc/Writers/Groff.hs b/src/Text/Pandoc/Writers/Groff.hs index b0e8d3d06..5d51314bb 100644 --- a/src/Text/Pandoc/Writers/Groff.hs +++ b/src/Text/Pandoc/Writers/Groff.hs @@ -47,7 +47,7 @@ import Text.Pandoc.Class (PandocMonad) import Text.Pandoc.Definition import Text.Pandoc.Pretty import Text.Printf (printf) -import Text.Pandoc.GroffChar (manEscapes, +import Text.Pandoc.GroffChar (standardEscapes, characterCodes, combiningAccents) data WriterState = WriterState { stHasInlineMath :: Bool @@ -87,7 +87,7 @@ combiningAccentsMap :: Map.Map Char String combiningAccentsMap = Map.fromList combiningAccents essentialEscapes :: Map.Map Char String -essentialEscapes = Map.fromList manEscapes +essentialEscapes = Map.fromList standardEscapes -- | Escape special characters for groff. escapeString :: EscapeMode -> String -> String -- cgit v1.2.3