git.iko.soy/typeable/pandoc
on master help sign in
Rename manEscapes -> standardEscapes
bac25e8John MacFarlane
src/Text/Pandoc/GroffChar.hs+3−3
compare with master
unifiedsplit
@@ -31,15 +31,15 @@ Groff character escaping/unescaping.
31-}
31-}
32
32
33module Text.Pandoc.GroffChar (
33module Text.Pandoc.GroffChar (
34− manEscapes
34+ standardEscapes
35 , characterCodes
35 , characterCodes
36 , combiningAccents
36 , combiningAccents
37 ) where
37 ) where
38import Prelude
38import Prelude
39
39
40-- | These are the escapes specifically mentioned in groff_man(7).
40-- | These are the escapes specifically mentioned in groff_man(7).
41−manEscapes :: [(Char, String)]
41+standardEscapes :: [(Char, String)]
42−manEscapes =
42+standardEscapes =
43 [ ('\160', "\\ ")
43 [ ('\160', "\\ ")
44 , ('\'', "\\[aq]")
44 , ('\'', "\\[aq]")
45 , ('‘', "\\[oq]")
45 , ('‘', "\\[oq]")
src/Text/Pandoc/Writers/Groff.hs+2−2
@@ -47,7 +47,7 @@ import Text.Pandoc.Class (PandocMonad)
47import Text.Pandoc.Definition
47import Text.Pandoc.Definition
48import Text.Pandoc.Pretty
48import Text.Pandoc.Pretty
49import Text.Printf (printf)
49import Text.Printf (printf)
50−import Text.Pandoc.GroffChar (manEscapes,
50+import Text.Pandoc.GroffChar (standardEscapes,
51 characterCodes, combiningAccents)
51 characterCodes, combiningAccents)
52
52
53data WriterState = WriterState { stHasInlineMath :: Bool
53data WriterState = WriterState { stHasInlineMath :: Bool
@@ -87,7 +87,7 @@ combiningAccentsMap :: Map.Map Char String
87combiningAccentsMap = Map.fromList combiningAccents
87combiningAccentsMap = Map.fromList combiningAccents
88
88
89essentialEscapes :: Map.Map Char String
89essentialEscapes :: Map.Map Char String
90−essentialEscapes = Map.fromList manEscapes
90+essentialEscapes = Map.fromList standardEscapes
91
91
92-- | Escape special characters for groff.
92-- | Escape special characters for groff.
93escapeString :: EscapeMode -> String -> String
93escapeString :: EscapeMode -> String -> String