|
@@ -1,17 +0,0 @@
|
1
|
|
-(package-install? 'jabber)
|
2
|
|
-(package-install? 'notify)
|
3
|
|
-(require 'notify)
|
4
|
|
-
|
5
|
|
-(defun notify-jabber-notify (from buf text proposed-alert)
|
6
|
|
- "(jabber.el hook) Notify of new Jabber chat messages via notify.el"
|
7
|
|
- (when (or jabber-message-alert-same-buffer
|
8
|
|
- (not (memq (selected-window) (get-buffer-window-list buf))))
|
9
|
|
- (if (jabber-muc-sender-p from)
|
10
|
|
- (notify (format "(PM) %s"
|
11
|
|
- (jabber-jid-displayname (jabber-jid-user from)))
|
12
|
|
- (format "%s: %s" (jabber-jid-resource from) text)))
|
13
|
|
- (notify (format "%s" (jabber-jid-displayname from))
|
14
|
|
- text)))
|
15
|
|
-
|
16
|
|
-(add-hook 'jabber-alert-message-hooks 'notify-jabber-notify)
|
17
|
|
-(add-hook 'jabber-chat-mode-hook 'flyspell-mode)
|