commit 9c2234cf093dea75593d8a6d702df8efebd9e695 Author: Samuel W. Flint Date: Wed Jun 29 19:41:17 2016 -0500 Initial commit diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000000000000000000000000000000000000..97e710b584ffbec70ca990bf27048a322f5aaf07 --- /dev/null +++ b/.gitignore @@ -0,0 +1,49 @@ +# -*- mode: gitignore; -*- +.* +!.gitignore +!.gitmodules +!.gitkeep + +# Emacs Stuff +*~ +\#*\# +/.emacs.desktop +/.emacs.desktop.lock +*.elc +auto-save-list +tramp +.\#* + +# Org-mode +.org-id-locations +*_archive + +# flymake-mode +*_flymake.* + +# eshell files +/eshell/history +/eshell/lastdir + +# elpa packages +/elpa/ + +# reftex files +*.rel + +# AUCTeX auto folder +/auto/ +*/auto/ + +# cask packages +.cask/ +dist/ + +# Flycheck +flycheck_*.el + +# server auth directory +/server/ + +# projectiles files +.projectile \ No newline at end of file diff --git a/pushover.el b/pushover.el new file mode 100644 index 0000000000000000000000000000000000000000..f153288aee19b3832c81ad2d15e9415ffeb65290 --- /dev/null +++ b/pushover.el @@ -0,0 +1,18 @@ + +(defconst *pushover-api-key* "agd6sapvp5xcdmbuo1qdpc7mddscri") + +(defvar *pushover-user-key* nil) + +(cl-defun pushover-send (title message &optional (html nil) (priority 0)) + (let ((url-request-method "POST") + (url-request-data (concat (format "token=%s&user=%s&title=%s&message=%s&priority=%s×tamp=%s" + *pushover-api-key* + *pushover-user-key* + (url-encode-url title) + (url-encode-url message) + priority + (current-time)) + (if html + "&html=1" + "")))) + (url-retrieve "https://api.pushover.net/1/messages.json" (lambda (status) (kill-buffer (current-buffer)) t))))