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-10-17 00:38:18 +02:00
parent 61a0d711cd
commit e3a2616488
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -24,6 +24,8 @@
;;; Code: ;;; Code:
(autoload 'notifications-notify "notifications")
(defmacro oni:define-mailbox (name email &optional signature longname) (defmacro oni:define-mailbox (name email &optional signature longname)
"Define a mailbox function for mailbox NAME with address EMAIL. "Define a mailbox function for mailbox NAME with address EMAIL.
Optionally set signature to SIGNATURE and use LONGNAME as the Optionally set signature to SIGNATURE and use LONGNAME as the
@ -217,6 +219,10 @@ If COUNT has been specified indent by that much, otherwise look at
(setq count tab-width)) (setq count tab-width))
(indent-rigidly start end count))) (indent-rigidly start end count)))
(defun oni:jabber-alert-message-func (from buffer text title)
(notifications-notify :title title
:body text))
(defun oni:jabber-chat-mode-func () (defun oni:jabber-chat-mode-func ()
"Function for `jabber-chat-mode-hook'." "Function for `jabber-chat-mode-hook'."
(visual-line-mode) (visual-line-mode)