From 52a287470ea2088b9aa6c3427b769f4d7b698537 Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
Date: Sat, 1 Nov 2014 18:57:13 +0530
Subject: [PATCH] erc

---
 init.el | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/init.el b/init.el
index 1d969f1..3e4e34a 100644
--- 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
-- 
2.45.2