defuns.el

(defun dots (msg)
  (interactive "sText: ")
  (let ((dot "❤")
        (colours '(10 11 12 2 6 13 4 7 8 9 3 4))
        (message (s-trim msg)))
    (insert
     (s-join
      ""
      (list
       (mapconcat
        (lambda (c)
          (format "%d%s%c"
                  (elt colours (random (length colours)))
                  dot
                  c))
        message
        "")
       (format "%d%s"
               (elt colours (random (length colours)))
               dot))))))