Commit 0d821fc2 by Samuel W. Flint

Added support for the `alert` package

parent 7b014e89
......@@ -72,6 +72,13 @@ EXPIRE is number of seconds before an emergency priority message expires."
""))))
(url-retrieve "https://api.pushover.net/1/messages.json" (lambda (status) (kill-buffer (current-buffer)) t))))
(when (fboundp 'alert-define-style)
(alert-define-style 'pushover :title "Pushover Alerter"
:notifier (lambda (info)
(let ((title (plist-get info :title))
(message (plist-get info :message)))
(pushover-send title message)))))
(provide 'pushover)
;;; pushover.el ends here
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment