;;
;; More sane ERC defaults
;;
(require 'erc)

;;
;; ERC flyspell
;;
(add-to-list 'erc-modules 'spelling)

;;
;; This makes erc scroll more like a real IRC client
;;
(erc-scrolltobottom-mode)
(setq erc-input-line-position -1)

;;
;; Covering more should-be-on-by-defaults for ERC
;;
(setq erc-beep-p t)
(setq erc-interpret-controls-p t)
(setq erc-interpret-mirc-color t)
(setq erc-modules
   (quote
    (autojoin completion dcc fill irccontrols list menu move-to-prompt netsplit networks page readonly ring scrolltobottom stamp spelling)))
(setq erc-spelling-mode t)


;;
;; Fix width issues with ERC
;;
(make-variable-buffer-local 'erc-fill-column)
 (add-hook 'window-configuration-change-hook
       '(lambda ()
          (save-excursion
            (walk-windows
         (lambda (w)
           (let ((buffer (window-buffer w)))
             (set-buffer buffer)
             (when (eq major-mode 'erc-mode)
               (setq erc-fill-column (- (window-width w) 2)))))))))

;;
;; ERC should be UTF-8 aware by default
;;
(setq erc-server-coding-system 'utf-8)

;; Turn off the mode line in ERC
(defun erc-disable-modeline ()
  (interactive)
  (setq mode-line-format nil))
(add-hook 'erc-mode-hook 'erc-disable-modeline)

;; Since we have global-autopair-mode set to 1
;; this actually *disables* pair for ERC.
(defun erc-disable-autopair ()
  (interactive)
  (autopair-mode -1))
(add-hook 'erc-mode-hook 'erc-disable-autopair)

;; erc-header-line is just redundant information
(setq erc-header-line-format nil)

;; Turn off the time stamp in ERC buffers
(setq erc-hide-timestamps t)
(setq erc-timestamp-format nil)

;;
;; Fixes some scrolling issues with ERC
;;
(add-to-list 'erc-mode-hook (lambda ()
                              (set (make-local-variable 'scroll-conservatively) 100)))

;; Hide join/part messages in ERC.
(setq erc-lurker-hide-list '("JOIN" "PART" "QUIT"))
(setq erc-lurker-threshold-time 3600)

;;
;; No ERC flood control please
;;
(setq erc-server-flood-penalty 0)