Emacs: xah-insert-unicode 📜

here's a command that lets you insert your own set of unicode characters via a completion.

put this in your Emacs Init File:

(defvar xah-unicode-list nil
 "A alist.
Each item is (prompStr . xString). Used by `xah-insert-unicode'.
prompStr is used for prompt.
xString is used for insert a unicode.
xString can be any string, needs not be a char or emoji.
")

(setq
 xah-unicode-list
 '(
   ;;
   ("smile beaming 😊" . "😊")
   ("omg 😂" . "😂")
   ("hug 🤗" . "🤗")
   ("angry 😠" . "😠")
   ("skull 💀" . "💀")
   ("heart 🩷" . "🩷")

   ("thumb up 👍" . "👍")
   ("thumb down 👎" . "👎")

   ("glowing star 🌟" . "🌟")
   ("star ⭐" . "⭐")
   ("sparkles ✨" . "✨")
   ("black star ★" . "★")

   ("tv 📺" . "📺")

   ("lotus 🪷" . "🪷")
   ("butterfly 🦋" . "🦋")
   ("LADY bug BEETLE 🐞" . "🐞")

   ("checkmark ✅" . "✅")
   ("new 🆕" . "🆕")
   ("rocket 🚀" . "🚀")
   ("large circle" . "⭕")
   ("cross ❌" . "❌")
   ("red triangle 🔺" . "🔺")
   ("diamond 💠" . "💠")
   ("square ⬛" . "⬛")
   ("SMALL ORANGE DIAMOND 🔸" . "🔸")
   ("BLACK RIGHT-POINTING TRIANGLE ▶" . "▶")
   ("BLACK DIAMOND ◆" . "◆")

   ("script 📜" . "📜")
   ("package 📦" . "📦")
   ("cursor ▮" . "▮")
   ("music 🎵" . "🎵")
   ("ok 🆗" . "🆗")

   ("dagger †" . "†")
   ("double dagger ‡" . "‡")

   ("double angle bracket" . "《》")
   ("black lenticular bracket" . "【】")
   ("corner-bracket" . "「」")
   ("tortoise shell bracket" . "〔〕")
   ("angle bracket" . "〈〉")
   ("double angle quote" . "«»")

   ("bullet •" . "•")
   ("fullwidth ampersand ＆" . "＆")

   ("f hook ƒ" . "ƒ")

   ("emdash —" . "—")
   ("middle dot ·" . "·")
   ("...ellipsis …" . "…")

   ("nbsp non breaking space" . " ")

   ("left arrow ←" . "←")
   ("right arrow →" . "→")
   ("up arrow ↑" . "↑")
   ("down arrow ↓" . "↓")

   ("LONG RIGHTWARDS ARROW ⟶" . "⟶")
   ("mapto ↦" . "↦")

   ;;
   ))

(defun xah-insert-unicode ()
  "Insert a unicode from a custom list `xah-unicode-list'.

URL `http://xahlee.info/emacs/emacs/emacs_insert_unicode.html'
Created: 2021-01-05
Version: 2023-09-19"
  (interactive)
  (let ((xkey
         (let ((completion-ignore-case t))
           (completing-read "Insert:" xah-unicode-list nil t))))
    (insert (cdr (assoc xkey xah-unicode-list)))))