pushover notifications from emacs

Pushover.net provides a service that makes it easy to send real-time notifications to Android and iOS devices. I wrote up some elisp to facilitate sending notifications to pushover from emacs. Might be useful if you want gnus or erc notices to ping your phone.

I probably need to look into the etiquette for formatting elisp that is gonna be shared. I'm pretty sure there are conventions I'm not following.

Github ksexton/pushover.el

;;; pushover.el -- Send notifications from emacs to pushover.net

(defcustom pushover-token nil
  "pushover application token")

(defcustom pushover-user-key nil
  "pushover user-key")

(defun pushover-notify (title msg)
  (let ((url-request-method "POST")
        (url-request-data (concat "token=" pushover-token
                                  "&user=" pushover-user-key
                                  "&title=" title
                                  "&message=" msg)))
    (url-retrieve "https://api.pushover.net/1/messages.json" 'pushover-kill-url-buffer)))

(defun pushover-kill-url-buffer (status)
  "Kill the buffer returned by `url-retrieve'."
  (kill-buffer (current-buffer)))

(provide 'pushover)