| 123456789101112131415161718 |
- (package-install? 'jabber)
- (package-install? 'notify)
- (require 'notify)
- (defun notify-jabber-notify (from buf text proposed-alert)
- "(jabber.el hook) Notify of new Jabber chat messages via notify.el"
- (when (or jabber-message-alert-same-buffer
- (not (memq (selected-window) (get-buffer-window-list buf))))
- (if (jabber-muc-sender-p from)
- (notify (format "(PM) %s"
- (jabber-jid-displayname (jabber-jid-user from)))
- (format "%s: %s" (jabber-jid-resource from) text)))
- (notify (format "%s" (jabber-jid-displayname from))
- text)))
- (add-hook 'jabber-alert-message-hooks 'notify-jabber-notify)
- (add-hook 'jabber-chat-mode-hook 'flyspell-mode)
|
