Cleanup jabber-init

- Add proper requirements to fix compiler warnings.
- Remove old stumpwm notification functions.
- Add dukgo jabber account.
- Remove old work gmail account.

emacs/.emacs.d/site-lisp/jabber-init.el

@@ -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)
+(setq jabber-account-list
-  "Use stumpwm to echo a message has arrived."
+      `((,(concat "tom@ryuslash.org/" (system-name))
-  (oni:stumpwm-echo title))
+         (:connection-type . starttls))
-
+        (,(concat "ryuslash@dukgo.com/" (system-name))
-(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)
          (: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)