;; 
;; I'm working for © IONA Technologies
;; I'm a committer of Apache CXF, I also created the CXF Chinese Group
;; I'm the founder of couple projects on code.google, they are fAnt, bSpell
;; I have a blog, all of the posts are about technologies, 
;;     nothing but technologies (hmmm... well, sometimes I put some jokes, but those jokes require some technologies background, sigh!)
;; All the projects I work on are made in emacs, include this page, I stolen the css from my friend;), Nowadays people still using Emacs, yeah!
;; NOTE: The view has some problem, if you know how to fix, please let me know.

(load-file (expand-file-name "c:/bin/emacs/lisp/rcirc.el"))

(eval-after-load "rcirc"
  '(if (not (functionp 'irc))
       (defun irc (x)
         (interactive "P")
         (if x
             (call-interactively 'rcirc)
           (rcirc rcirc-server rcirc-port rcirc-nick
                  (rcirc-startup-channels rcirc-server))))))

(global-set-key (kbd "C-c I") 'irc)

(setq load-path (cons "c:/bin/emacs/lisp/tnt-2.6" load-path))
(load "tnt")

(setq tnt-default-username "jamesmaomaode")

(setq load-path (cons "c:/bin/emacs/lisp/color-theme-6.6.0/" load-path))
(require 'color-theme)
(color-theme-initialize)
(color-theme-charcoal-black)

(require 'msf-abbrev)
(setq msf-abbrev-root "c:/bin/emacs/mode-abbrevs")
(global-set-key (kbd "C-c l") 'msf-abbrev-goto-root)
(global-set-key (kbd "C-c a") 'msf-abbrev-define-new-abbrev-this-mode)
(msf-abbrev-load)