emacs emojis

(defvar thumb-up-char "👍")
(defvar thumb-down-char "👎")
(defvar rolling-on-floor-char "🤣")
(defvar angry-face-char "😠")
(defvar wink-tongue-char "😜")
(defvar face-palm-char "🤦")


(defun insert-strs (str count)
  "Insert count strings, separated by a space."
  (insert (s-join " " (-repeat count str))))

(defun face-palm (n)
  "Generate n face palm Unicode characters."
  (interactive "p")
  (insert-strs face-palm-char n))

(defun thumbs-up (n)
  "Generate n thumbs-up Unicode characters."
  (interactive "p")
  (insert-strs thumb-up-char n))

(defun thumbs-down (n)
  "Generate n thumbs-down Unicode characters."
  (interactive "p")
  (insert-strs thumb-down-char n))

(defun face-palm (n)
  "Generate n face palm Unicode characters."
  (interactive "p")
  (insert-strs face-palm-char n))

(defun wink-tongue (n)
  "Generate n winking face w/ tongue Unicode characters."
  (interactive "p")
  (insert-strs wink-tongue-char n))

(defun rofl (n)
  "Generate n rolling on the floor laughing Unicode characters."
  (interactive "p")
  (insert-strs rolling-on-floor-char n))

(defun angry-face (n)
  "Generate n rolling on the floor laughing Unicode characters."
  (interactive "p")
  (insert-strs angry-face-char n))