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

Cleanup jabber-init

Browse source 
- Add proper requirements to fix compiler warnings.
- Remove old stumpwm notification functions.
- Add dukgo jabber account.
- Remove old work gmail account.
This commit is contained in:
Tom Willemse 2016-02-09 11:00:18 +01:00
parent 2a2255787c
commit e44cd12861
1 changed files with 8 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
emacs/.emacs.d/site-lisp/jabber-init.el
View file

@ -5,6 +5,9 @@
;; (autoload 'jabber-message-libnotify "jabber-libnotify")
;; (autoload 'jabber-muc-libnotify "jabber-libnotify")
(require 'jabber)
(require 'jabber-margin-prompts)
(defun jabber-init-roster-mode-func ()
"Function for `jabber-roster-mode-hook'."
(setq mode-line-format
@ -23,15 +26,10 @@ Insert PROPOSED-ALERT in the buffer if it is non-nil."
(ewoc-enter-last jabber-chat-ewoc (list :notice proposed-alert
:time (current-time)))))))
(defun jabber-init-stumpwm-echo (from buffer text title)
"Use stumpwm to echo a message has arrived."
(oni:stumpwm-echo title))
(defun jabber-init-stumpwm-echo-muc (nick group buffer text title)
"Use stumpwm to echo a message has arrived."
(oni:stumpwm-echo title))
(setq jabber-account-list `((,(concat "tom@ryuslash.org/" system-name)
(setq jabber-account-list
`((,(concat "tom@ryuslash.org/" (system-name))
(:connection-type . starttls))
(,(concat "ryuslash@dukgo.com/" (system-name))
(:connection-type . starttls))))
(setq jabber-avatar-cache-directory "~/.emacs.d/jabber-avatars/"
@ -59,10 +57,6 @@ Insert PROPOSED-ALERT in the buffer if it is non-nil."
jabber-vcard-avatars-publish nil
jabber-vcard-avatars-retrieve nil)
(add-to-list 'jabber-account-list
`(,(concat "thomas@aethon.nl/" system-name)
(:network-server . "talk.google.com")
(:connection-type . ssl)))
(add-hook 'jabber-alert-message-hooks #'jabber-message-libnotify)
(add-hook 'jabber-alert-muc-hooks #'jabber-muc-libnotify)