erc

diff --git a/init.el b/init.el
index 1d969f192b87b51a69a5275ba81ee02c15cb8654..3e4e34af94d056963063bc9287b738fa68ed44d6 100644 (file)
--- a/init.el
+++ b/init.el
@@ -103,3 +103,28 @@
 (autoload 'ghc-debug "ghc" nil t)
 (add-hook 'haskell-mode-hook (lambda () (ghc-init)))
 
+;; erc
+(require 'erc)
+
+(erc-autojoin-mode t)
+(setq erc-autojoin-channels-alist
+'((".*\\.freenode.net" "#tahoe-lafs")
+(".*\\.oftc.net" "#LeastAuthority")))
+
+;; check channels
+(erc-track-mode t)
+(setq erc-track-exclude-types '("JOIN" "NICK" "PART" "QUIT" "MODE"
+
+"324" "329" "332" "333" "353" "477"))
+;; don't show any of this
+(setq erc-hide-list '("JOIN" "PART" "QUIT" "NICK"))
+
+(defun start-erc ()
+"Connect to IRC."
+(interactive)
+(when (y-or-n-p "Do you want to start IRC? ")
+(erc :server "irc.freenode.net" :port 6667 :nick "rkrishnan" :full-name "Ramakrishnan Muthukrishnan")
+(erc :server "irc.oftc.net" :port 6667 :nick "rkrishnan" :full-name "Ramakrishnan Muthukrishnan")))
+
+;; switch to ERC with Ctrl+c e
+(global-set-key (kbd "C-c e") 'start-erc) ;; ERC