diff options
| -rw-r--r-- | COPYRIGHT | 2 | ||||
| -rw-r--r-- | emoji.json (renamed from data/emoji.json) | 0 | ||||
| -rw-r--r-- | pandoc.cabal | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Emoji.hs | 2 |
4 files changed, 4 insertions, 2 deletions
@@ -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 index 17a091608..17a091608 100644 --- a/data/emoji.json +++ b/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 |