-
-;; 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
-
-;; sbcl
-(setq inferior-lisp-program "/usr/local/bin/sbcl")
-(require 'slime-autoloads)
-(add-to-list 'slime-contribs '(slime-fancy))
-(eval-after-load 'slime
- `(define-key slime-prefix-map (kbd "M-h") 'slime-documentation-lookup))