diff --git a/pushover.el b/pushover.el index c1e739203a24e715526d9a732e289677c841f9be..57aece857533355c34f77fa3d5854887b0a0828d 100644 --- a/pushover.el +++ b/pushover.el @@ -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