emacs-emojify

commit 484a3c00aeb6033d538112d9db176dd552375f66
parent 0500652b8b852ba5edc6a08e8553f49cd8bf29ac
Author: Iqbal Ansari <iqbal.ansari@ignitesol.com>
Date:   Sat, 24 Oct 2015 11:15:43 +0530

Minor refactoring

Diffstat:
M
emojify.el
 | 
9
+++++----

1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/emojify.el b/emojify.el
@@ -1,7 +1,8 @@
 ;; Another plugin to waste time in Emacs :sweat: :worried: :unamused:
-;; :) :( :O
+;;
 ;; TODO: Handle non-font-lock modes like helm-mode
 ;;       Custom images
+;;       Do not emojify between words
 (require 'json)
 (require 'subr-x)
 
@@ -51,7 +52,7 @@ Regexp match data 0 points to the chars."
     `((,(regexp-opt emojis)
        (0 (emoji-setup-emoji-display))))))
 
-(defvar emoji-make-keywords (emoji-make-keywords))
+(defvar emoji-keywords (emoji-make-keywords))
 
 (defadvice text-scale-increase (after emojify-resize-emojis (&rest ignored))
   (font-lock-fontify-buffer))
@@ -66,11 +67,11 @@ Regexp match data 0 points to the chars."
     (if emojify-mode
         ;; Turn on
         (progn
-          (font-lock-add-keywords nil emoji-make-keywords)
+          (font-lock-add-keywords nil emoji-keywords)
           (setq-local font-lock-extra-managed-props
                       (cons 'display font-lock-extra-managed-props)))
       ;; Turn off
-      (font-lock-remove-keywords nil emoji-make-keywords)
+      (font-lock-remove-keywords nil emoji-keywords)
       (setq font-lock-extra-managed-props (delq 'composition
                                                 font-lock-extra-managed-props)))
     (font-lock-fontify-buffer)))