From 614fcffbb7cc3d04d3ad7f4d2e0da86e452fdec2 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Thu, 6 Dec 2012 22:40:43 +0100
Subject: Send jabber message as appt reminders

---
 .emacs.d/site-lisp/oni.el | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to '.emacs.d/site-lisp/oni.el')

diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el
index 5b2cf65..f636587 100644
--- a/.emacs.d/site-lisp/oni.el
+++ b/.emacs.d/site-lisp/oni.el
@@ -25,6 +25,7 @@
 ;;; Code:
 
 (autoload 'notifications-notify "notifications")
+(autoload 'jabber-send-message "jabber-chat")
 
 (defmacro oni:define-mailbox (name email &optional signature longname)
   "Define a mailbox function for mailbox NAME with address EMAIL.
@@ -72,6 +73,13 @@ DOT are intentionally being skipped."
       (shell-command
        (concat "make -C " dom-dir " TAGS >/dev/null 2>&1")))))
 
+(defun oni:appt-display-window-and-jabber (min-to-app new-time appt-msg)
+  "Send a message to my phone jabber account."
+  (jabber-send-message (car jabber-connections) "phone@ryuslash.org"
+                       nil (format "%s%s (in %s minutes)"
+                                   new-time appt-msg min-to-app) nil)
+  (appt-disp-window min-to-app new-time appt-msg))
+
 (defun oni:before-save-func ()
   "Function for `before-save-hook'."
   (if (eq major-mode 'html-mode)
-- 
cgit v1.2.3-54-g00ecf