; Colorize nicks.
(require 'erc-highlight-nicknames)
(add-to-list 'erc-modules 'highlight-nicknames)
(erc-update-modules)

; Timestamp color.
(set-face-foreground 'erc-timestamp-face "dimgrey")

; Color of my nick in messages.
(set-face-background 'erc-current-nick-face "red")
;(set-face-foreground 'erc-current-nick-face "grey") Doesn't work becuase of md5 coloring.

; Align nicks 17 spaces to the right and messages to the left.
(setq erc-fill-function 'erc-fill-static)
(setq erc-fill-static-center 17)

; Don't show joins, quits, and parts.
(setq erc-hide-list '("JOIN" "QUIT" "PART"))

; Move timestamp to the left and show seconds too.
(setq erc-insert-timestamp-function 'erc-insert-timestamp-left)
(setq erc-timestamp-format "%T")

; Keep neweset message at bottom of screen.
(erc-scrolltobottom-enable)

; Enable spell check.
(erc-spelling-mode 1)

; Use the "@" and "+" prefixes.
(setq erc-format-nick-function 'erc-format-@nick)

; Ugly hack to get wrapping to adjust to window resizes.
(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) 1)))))))))