@@ -1,43 +0,0 @@
1−{-# LANGUAGE NoImplicitPrelude #-}
2−{-
3−Copyright (C) 2018 John MacFarlane <jgm@berkeley.edu>
4−
5−This program is free software; you can redistribute it and/or modify
6−it under the terms of the GNU General Public License as published by
7−the Free Software Foundation; either version 2 of the License, or
8−(at your option) any later version.
9−
10−This program is distributed in the hope that it will be useful,
11−but WITHOUT ANY WARRANTY; without even the implied warranty of
12−MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13−GNU General Public License for more details.
14−
15−You should have received a copy of the GNU General Public License
16−along with this program; if not, write to the Free Software
17−Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18−-}
19−
20−{- |
21− Module : Text.Pandoc.Groff
22− Copyright : Copyright (C) 2018 John MacFarlane
23− License : GNU GPL, version 2 or above
24−
25− Maintainer : John MacFarlane <jgm@berkeley.edu>
26− Stability : alpha
27− Portability : portable
28−
29−Shared functions for escaping and formatting groff.
30−-}
31−module Text.Pandoc.Groff ( groffEscape )
32−where
33−
34−import Prelude
35−import Data.Char (isAscii, ord)
36−import qualified Data.Text as T
37−import Text.Printf (printf)
38−
39−groffEscape :: T.Text -> T.Text
40−groffEscape = T.concatMap toUchar
41− where toUchar c
42− | isAscii c = T.singleton c
43− | otherwise = T.pack $ printf "\\[u%04X]" (ord c)