From bb9e6aab9d1bd89b12d6bcd418c969ac97c86d7d Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Wed, 28 Nov 2012 10:13:49 +0100
Subject: .emacs.d/site-lisp/oni.el

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

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

diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el
index f35249d..1c99555 100644
--- a/.emacs.d/site-lisp/oni.el
+++ b/.emacs.d/site-lisp/oni.el
@@ -104,6 +104,13 @@ DOT are intentionally being skipped."
   (local-set-key "\C-j" 'oni:newline-and-indent)
   (rainbow-mode))
 
+(defun oni:current-jabber-status ()
+  "Return a string representing the current jabber status."
+  (or (and (not *jabber-connected*) "Offline")
+      (and (not (string= *jabber-current-status* ""))
+           *jabber-current-status*)
+      "Online"))
+
 (defun oni:diary-display-func ()
   "Function for `diary-display-hook'."
   (diary-fancy-display))
-- 
cgit v1.2.3-54-g00ecf