git.iko.soy/typeable/pandoc
on master help sign in
Move data/emoji.json to emoji.json, add to extra-source-files.
6c435a1John MacFarlane
COPYRIGHT+1−1
compare with master
unifiedsplit
@@ -198,7 +198,7 @@ revised by Martin Paul Eve and then John MacFarlane.
198License. Originally by Martin Fenner."
198License. Originally by Martin Fenner."
199
199
200------------------------------------------------------------------------
200------------------------------------------------------------------------
201−The file data/emoji.json is derived from https://github.com/github/gemoji.
201+The file emoji.json is derived from https://github.com/github/gemoji.
202
202
203Copyright (c) 2019 GitHub, Inc.
203Copyright (c) 2019 GitHub, Inc.
204
204
data/emoji.json → emoji.jsonrenamed

The content is the same.

pandoc.cabal+2
@@ -189,6 +189,8 @@ extra-source-files:
189 -- files needed to build man page
189 -- files needed to build man page
190 man/manfilter.lua
190 man/manfilter.lua
191 man/pandoc.1.template
191 man/pandoc.1.template
192+ -- data files used by TH
193+ emoji.json
192 -- trypandoc
194 -- trypandoc
193 trypandoc/Makefile
195 trypandoc/Makefile
194 trypandoc/index.html
196 trypandoc/index.html
src/Text/Pandoc/Emoji.hs+1−1
@@ -20,7 +20,7 @@ import Text.Pandoc.Definition (Inline (Span, Str))
20import Text.Pandoc.Emoji.TH (genEmojis)
20import Text.Pandoc.Emoji.TH (genEmojis)
21
21
22emojis :: M.Map T.Text T.Text
22emojis :: M.Map T.Text T.Text
23−emojis = M.fromList $(genEmojis "data/emoji.json")
23+emojis = M.fromList $(genEmojis "emoji.json")
24
24
25emojiToInline :: T.Text -> Maybe Inline
25emojiToInline :: T.Text -> Maybe Inline
26emojiToInline emojikey = makeSpan <$> M.lookup emojikey emojis
26emojiToInline emojikey = makeSpan <$> M.lookup emojikey emojis