ERC

;; ===========================
;; ERC configurations
;; ===========================
(load "erc")

(require 'erc-imenu)
(require 'erc-menu)
(require 'erc-notify)
(require 'erc-ring)

(erc-button-mode 1)
(erc-completion-mode 1)
(erc-fill-mode 1)
(erc-match-mode 1)
(erc-netsplit-mode 1)
(erc-services-mode 1)
(erc-timestamp-mode 1)
(erc-track-mode 1)

;; aqui vc coloca as palavras que vc quer que seja avisada quando foi falada nos canais :P 
(require 'erc-match)
(setq erc-keyword '("lisp" "Diego_Rocha" "emacs"))

(require 'erc-services)
(erc-services-mode t)
(setq erc-prompt-for-nickserv-password nil)
(setq erc-nickserv-passwords '((freenode (("seu primeiro nick" . "a senha dele")
					  ("nick alternativo" . "a senha dele")))))

;; aqui vc coloca os canais pra autojoin 
(require 'erc-join)
(erc-autojoin-mode t)
(setq erc-autojoin-channels-alist
      '(("freenode.net" "#slackware-br" "#freebsd-br" "#openbsd-br" "#lisp-br" 
	"#xforce" "#c" "#emacs" "#emacs-br" "#c++-es" "#emacs-es")))

(setq erc-server "irc.freenode.net"
      erc-port 6667
      erc-nick "seu nick"
      erc-user-full-name "seu nome"
      erc-email-userid "seu email")

(setq erc-log-insert-log-on-open nil)
(setq erc-log-channels t)
(setq erc-log-channels-directory "~/.irclogs/") ;; aqui eh onde fica os logs
(setq erc-save-buffer-on-part t)
(setq erc-hide-timestamps nil)

(setq erc-server-coding-system '(utf-8 . undecided)) ;; esse encoding eh o seguinte sai utf-8 entra tudo que eh tipo de encoding :P excelente

;; aqui ta a chave da coisa :P quando vc quiser entra no ERC digita M-x irc-maybe tecla y e pronto
(defun irc-maybe() 
  "Connect to irc"
  (interactive)
  (when (y-or-n-p "IRC? ")
    (erc :server "irc.freenode.net" :port 6667 :nick erc-nick :full-name erc-user-full-name)))

;; ===============================
;; Fuctions to ERC ( pega o uname do pc )
;; ===============================
(defun erc-cmd-UNAME (&rest ignore)
  "Display the result of running `uname -a' to the current ERC
buffer."
  (let ((uname-output
         (replace-regexp-in-string
          "[ \n]+$" "" (shell-command-to-string "uname -a"))))
    (erc-send-message
     (concat "uname -a: [" uname-output "]"))))