Emoji: Generate emoji detecting functions at compile time.

Suggested by jvalim

lib/pleroma/emoji.ex

@@ -261,28 +261,34 @@ defp match_group_patterns(group_patterns, matcher) do
     end)
   end
 
-  {:ok, file} = File.read("lib/pleroma/emoji-data.txt")
+  @external_resource "lib/pleroma/emoji-data.txt"
 
-  @unicode_emoji file
+  emojis =
-                 |> String.split("\n")
+    @external_resource
-                 |> Enum.filter(fn line -> String.starts_with?(line, ["1", "2", "3", "4"]) end)
+    |> File.read!()
-                 |> Enum.map(fn line -> String.split(line) |> List.first() end)
+    |> String.split("\n")
-                 |> Enum.map(fn line ->
+    |> Enum.filter(fn line -> line != "" and not String.starts_with?(line, "#") end)
-                   case String.split(line, "..") do
+    |> Enum.map(fn line ->
-                     [number] ->
+      line
-                       String.to_integer(number, 16)
+      |> String.split(";", parts: 2)
+      |> hd()
+      |> String.trim()
+      |> String.split("..")
+      |> case do
+        [number] ->
+          <<String.to_integer(number, 16)::utf8>>
 
-                     [first, last] ->
+        [first, last] ->
-                       Range.new(String.to_integer(first, 16), String.to_integer(last, 16))
+          String.to_integer(first, 16)..String.to_integer(last, 16)
-                       |> Enum.to_list()
+          |> Enum.map(&<<&1::utf8>>)
-                   end
+      end
-                 end)
+    end)
-                 |> List.flatten()
+    |> List.flatten()
-                 |> Enum.filter(&is_integer/1)
+    |> Enum.uniq()
-                 |> Enum.uniq()
-                 |> Enum.map(fn n -> :unicode.characters_to_binary([n], :utf32) end)
 
-  def is_unicode_emoji?(str) do
+  for emoji <- emojis do
-    str in @unicode_emoji
+    def is_unicode_emoji?(unquote(emoji)), do: true
   end
+
+  def is_unicode_emoji?(_), do: false
 end