(require 'jabber)
(setq jabber-connection-type (quote ssl))
(setq jabber-network-server "talk.google.com")
(setq jabber-nickname "王亮")
(setq jabber-port 443)
(setq jabber-resource "emacs-jabber")
(setq jabber-server "gmail.com")
(setq jabber-username "netcasper")
(jabber-mode-line-mode)

(setq jabber-xosd-display-time 10)

(defun jabber-xosd-display-message (message)
  "Displays MESSAGE through the xosd"
  (let ((process-connection-type nil))
    (start-process "jabber-xosd" nil "gnome-osd-client" "-f" (concat (format "<message id='emacs-jabber' osd_fake_translucent_bg='on' osd_vposition='center' animations='off' hide_timeout='%d' osd_halignment='right'>" jabber-xosd-display-time) message "</message>"))))

(defun jabber-message-xosd (from buffer text propsed-alert)
  (jabber-xosd-display-message (concat from " 找你")))

(add-to-list 'jabber-alert-message-hooks
    	     'jabber-message-xosd)

(add-hook 'jabber-alert-message-hooks
	  'jabber-message-beep)
(remove-hook 'jabber-alert-presence-hooks
	     'jabber-presence-echo)
(remove-hook 'jabber-alert-message-hooks
	     'jabber-message-echo)

(setq jabber-roster-line-format "%c %-25n %u %-8s  %S\n")
(provide 'wl-gtalk)