diff --git a/COPYRIGHT b/COPYRIGHT index 4f8070594..b19318bfc 100644 --- a/COPYRIGHT +++ b/COPYRIGHT @@ -198,7 +198,7 @@ revised by Martin Paul Eve and then John MacFarlane. License. Originally by Martin Fenner." ------------------------------------------------------------------------ -The file data/emoji.json is derived from https://github.com/github/gemoji. +The file emoji.json is derived from https://github.com/github/gemoji. Copyright (c) 2019 GitHub, Inc. diff --git a/data/emoji.json b/emoji.json similarity index 100% rename from data/emoji.json rename to emoji.json diff --git a/pandoc.cabal b/pandoc.cabal index fba1a27cb..c69540b9b 100644 --- a/pandoc.cabal +++ b/pandoc.cabal @@ -189,6 +189,8 @@ extra-source-files: -- files needed to build man page man/manfilter.lua man/pandoc.1.template + -- data files used by TH + emoji.json -- trypandoc trypandoc/Makefile trypandoc/index.html diff --git a/src/Text/Pandoc/Emoji.hs b/src/Text/Pandoc/Emoji.hs index b10321760..823f9450d 100644 --- a/src/Text/Pandoc/Emoji.hs +++ b/src/Text/Pandoc/Emoji.hs @@ -20,7 +20,7 @@ import Text.Pandoc.Definition (Inline (Span, Str)) import Text.Pandoc.Emoji.TH (genEmojis) emojis :: M.Map T.Text T.Text -emojis = M.fromList $(genEmojis "data/emoji.json") +emojis = M.fromList $(genEmojis "emoji.json") emojiToInline :: T.Text -> Maybe Inline emojiToInline emojikey = makeSpan <$> M.lookup emojikey emojis