aboutsummaryrefslogtreecommitdiff
path: root/tools
diff options
context:
space:
mode:
Diffstat (limited to 'tools')
-rwxr-xr-xtools/emojis.hs36
1 files changed, 36 insertions, 0 deletions
diff --git a/tools/emojis.hs b/tools/emojis.hs
new file mode 100755
index 000000000..9926a9047
--- /dev/null
+++ b/tools/emojis.hs
@@ -0,0 +1,36 @@
+-- Script to generate the list of emojis in T.P.Emoji.hs.
+-- to run:
+-- curl https://raw.githubusercontent.com/github/gemoji/master/db/emoji.json -o emoji.json
+-- stack script --resolver lts-13.17 --package aeson --package bytestring --package text --package containers tools/emojis.hs < emoji.json
+
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE OverloadedStrings #-}
+import Data.Aeson
+import qualified Data.ByteString.Lazy as B
+import Data.Text (Text)
+import Data.Map as M
+
+data Emoji = Emoji Text [Text]
+ deriving Show
+
+instance FromJSON Emoji where
+ parseJSON = withObject "Emoji" $ \v -> Emoji
+ <$> v .: "emoji"
+ <*> v .: "aliases"
+
+main :: IO ()
+main = do
+ bs <- B.getContents
+ case eitherDecode bs of
+ Left e -> error e
+ Right (emoji :: [Emoji]) -> do
+ let emojis = M.fromList $
+ [(alias, txt) | Emoji txt aliases <- emoji, alias <- aliases]
+ putStrLn $ prettify $ dropWhile (/='[') $ show emojis
+
+prettify :: String -> String
+prettify [] = ""
+prettify ('[':xs) = '\n':' ':' ':'[':prettify xs
+prettify (']':xs) = '\n':' ':' ':']':prettify xs
+prettify (',':'(':xs) = '\n':' ':' ':',':'(':prettify xs
+prettify (x:xs) = x:prettify xs