diff options
author | John MacFarlane <jgm@berkeley.edu> | 2019-12-08 17:25:58 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2019-12-08 17:27:18 -0800 |
commit | 0bfe478a693451500528fc05c1e5f48f3ca1a55b (patch) | |
tree | 1b2c6f9cc737243b093ca1ec4ebfdcb04b888524 /src/Text/Pandoc/Emoji.hs | |
parent | 7f4154a8bbeff772b778b60c75fe1081b3b9b5f1 (diff) | |
download | pandoc-0bfe478a693451500528fc05c1e5f48f3ca1a55b.tar.gz |
Use external emojis package.
Moved the emoji-specified code into an external package
we can depend on.
Diffstat (limited to 'src/Text/Pandoc/Emoji.hs')
-rw-r--r-- | src/Text/Pandoc/Emoji.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Emoji.hs b/src/Text/Pandoc/Emoji.hs index 823f9450d..fe56dd356 100644 --- a/src/Text/Pandoc/Emoji.hs +++ b/src/Text/Pandoc/Emoji.hs @@ -14,14 +14,14 @@ Emoji symbol lookup from canonical string identifier. -} module Text.Pandoc.Emoji ( emojis, emojiToInline ) where import Prelude -import qualified Data.Map as M -import qualified Data.Text as T +import qualified Text.Emoji as E import Text.Pandoc.Definition (Inline (Span, Str)) -import Text.Pandoc.Emoji.TH (genEmojis) +import Data.Text (Text) +import qualified Data.Map as M -emojis :: M.Map T.Text T.Text -emojis = M.fromList $(genEmojis "emoji.json") +emojis :: M.Map Text Text +emojis = M.fromList E.emojis -emojiToInline :: T.Text -> Maybe Inline -emojiToInline emojikey = makeSpan <$> M.lookup emojikey emojis +emojiToInline :: Text -> Maybe Inline +emojiToInline emojikey = makeSpan <$> E.emojiFromAlias emojikey where makeSpan = Span ("", ["emoji"], [("data-emoji", emojikey)]) . (:[]) . Str |