;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'ivy) #@72 List of code point ranges (inclusive) corresponding to all the emojis. (defconst ivy-emoji-codepoint-ranges '((126976 . 129535)) (#$ . 102)) #@104 Convert NAME to the string that should be shown. E.g. convert spaces to -, surround with :. (fn NAME) (defalias 'ivy-emoji--clean-name #[257 "\300\301\302\303\227#\300Q\207" [":" replace-regexp-in-string " " "-"] 6 (#$ . 250)]) #@170 Create list of emojis with the emoji as first character. This is done by parsing the code point ranges. This function is used to produce the constant `ivy-emoji-list'. (defalias 'ivy-emoji--create-list #[0 "\301\211\203G\211@\211A@Z\302\211W\203>\211@\\\303\304\"\211\2035\305\306\307\310\311!!\312!#C\"\262\266\211T\262\202\266A\266\202\202\210\207" [ivy-emoji-codepoint-ranges nil 0 get-char-code-property name append format "%s %s" char-to-string char-from-name ivy-emoji--clean-name] 15 (#$ . 487)]) #@130 Insert EMOJI by extracting the first character. This function is supposed to be used with `ivy-emoji--create-list'. (fn EMOJI) (defalias 'ivy-emoji--insert-emoji #[257 "\211\300\301Oc\207" [0 1] 4 (#$ . 1023)]) #@188 Cached list of emojis with their name. The format is: ... 🌵 :cactus: 🍝 :spaghetti: ... The emoji character will be selected as substring and inserted by `ivy-emoji--insert-emoji'. (defconst ivy-emoji-list (ivy-emoji--create-list) (#$ . 1243)) #@32 Select an emoji and insert it. (defalias 'ivy-emoji #[0 "\301\302\303\304\305\306&\207" [ivy-emoji-list ivy-read "Emoji: " :require-match t :action ivy-emoji--insert-emoji] 7 (#$ . 1499) nil]) (provide 'ivy-emoji)