ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

.emacs.d/site-lisp/oni.el

Browse source
This commit is contained in:
Tom Willemsen 2012-11-28 10:13:49 +01:00
parent 7af92b4abc
commit bb9e6aab9d
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
.emacs.d/site-lisp/oni.el
View file

@ -104,6 +104,13 @@ DOT are intentionally being skipped."
(local-set-key "\C-j" 'oni:newline-and-indent) (local-set-key "\C-j" 'oni:newline-and-indent)
(rainbow-mode)) (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 () (defun oni:diary-display-func ()
"Function for `diary-display-hook'." "Function for `diary-display-hook'."
(diary-fancy-display)) (diary-fancy-display))