Use first alias always for :emoji_name:

This seems to match GitHub etc. better than emo::jis$name

R/ermoji_gadget.R

     })
 
     this_emoji_name <- reactive({
-      name <- this_emoji()$name
-      if (grepl(":", name)) name <- this_emoji()$aliases[[1]][1]
+      # name <- this_emoji()$name
+      name <- this_emoji()$aliases[[1]][1]
       paste0(":", gsub(" ", "_", name), ":")
     })