     "#haskell@irc.freenode.net")
   "A list of rcirc buffer names in the order in which they should
 be placed into the current set of windows.")
+
+(defvar pjones:rcirc-low-traffic-channels
+  '("#haskell-mobile@irc.freenode.net"
+    "#hakyll@irc.freenode.net"
+    "#derailed@irc.freenode.net")
+  "A list of IRC channels that have low enough traffic that it's
+okay to send me notifications of activity.")
 
 (defun pjones:rcirc-windows ()
   "Split the current frame into several windows and place the

      '(("localhost" :nick "pjones")
        ("irc.freenode.net" :channels ("#xmonad" "#derailed" "#mpd"
                                       "#conkeror" "#debian" "#emacs"
                                       "#haskell" "#gnus"))))

(setq rcirc-authinfo
      `(("freenode"  nickserv "pmade"  ,freenode-password)

(defun pjones:rcirc-hook ()
  (require 'rcirc-color)
  (when (and (string-match "#" (buffer-name))
             (not (string-match "developers\\|twitter" (buffer-name)))
             (not (member (buffer-name) pjones:rcirc-low-traffic-channels)))
    (setq rcirc-ignore-buffer-activity-flag t)
    (rcirc-omit-mode))
  (define-key rcirc-mode-map (kbd "C-c C-o") 'rcirc-browse-url)
