Commit 9c2234cf by Samuel W. Flint

Initial commit

parents
# -*- 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
(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&timestamp=%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))))
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