From bb9e6aab9d1bd89b12d6bcd418c969ac97c86d7d Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 28 Nov 2012 10:13:49 +0100 Subject: [PATCH] .emacs.d/site-lisp/oni.el --- .emacs.d/site-lisp/oni.el | 7 +++++++ 1 file changed, 7 insertions(+) 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))