diff options
Diffstat (limited to '.emacs.d/site-lisp/oni.el')
-rw-r--r-- | .emacs.d/site-lisp/oni.el | 7 |
1 files changed, 7 insertions, 0 deletions
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)) |