blob: 35a69319ab02e6fca1bf3232c4874db265233e95 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Text.Emoji.DataFiles.EmojiTest
import Codec.Binary.UTF8.Light (w2c)
import qualified Data.Attoparsec.Text as A
import qualified Data.ByteString as B
import Data.Text (Text ())
import qualified Data.Text as T
import qualified Data.Text.Encoding as T
import Data.Word (Word32)
parseEmojiTest :: Text -> Either String EmojiTest
parseEmojiTest = A.parseOnly emojiTestFile
reportError :: Either String a -> IO a
reportError (Left e) = fail e
reportError (Right x) = pure x
outputTepFormat :: EmojiTest -> IO ()
outputTepFormat = mapM_ (outputEntry [])
where outputEntry p (Comment _) = pure ()
outputEntry p (Group _ name es) =
mapM_ (outputEntry (p ++ [name])) es
outputEntry p (Entry codes _ _ name) =
outputEmoji codes name p
codesText :: [Word32] -> Text
codesText = T.pack . map w2c
outputEmoji :: [Word32] -> Text -> [Text] -> IO ()
outputEmoji codes name path = B.putStr . T.encodeUtf8
$ codesText codes
<> " " <> name <> " ("
<> T.intercalate " → " path <> ")\n"
readStdin :: IO Text
readStdin = T.decodeUtf8 <$> B.getContents
main :: IO ()
main = readStdin >>= reportError . parseEmojiTest >>= outputTepFormat
|