emacs-emojify

fork of https://github.com/iqbalansari/emacs-emojify
Log | Files | Refs | LICENSE

commit e31ad6c91c18c50292bcfd9b93b5e9184ff8847a
parent fca5763af2ada03a11bbf39f49fd0c6f4648de53
Author: Iqbal Ansari <iqbal.ansari@ignitesol.com>
Date:   Fri,  2 Sep 2016 11:37:24 +0530

Insert the selected emoji in apropos command

Diffstat:
Memojify.el | 21+++++++++++----------
1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/emojify.el b/emojify.el @@ -1013,16 +1013,17 @@ of the window. DISPLAY-START corresponds to the new start of the window." (defun emojify-apropos-emoji () (interactive) (let ((emojify-in-apropos-p t)) - (insert (completing-read "Apropos Emoji: " - (let (emojis) - (maphash (lambda (key value) - (push (format "%s - %s (%s)" - key - (gethash "name" value) - (gethash "style" value)) - emojis)) - emojify-emojis) - emojis))))) + (insert (car (split-string (completing-read "Apropos Emoji: " + (let (emojis) + (maphash (lambda (key value) + (push (format "%s - %s (%s)" + key + (gethash "name" value) + (gethash "style" value)) + emojis)) + emojify-emojis) + emojis)) + " ")))))