2015-11-25 23:33:55 +00:00
|
|
|
;;;; IRC packages config
|
2015-11-24 21:12:10 +00:00
|
|
|
|
|
|
|
(require 'erc)
|
2015-11-25 22:35:35 +00:00
|
|
|
(setq erc-default-coding-system 'utf-8
|
|
|
|
erc-autojoin-channels-alist
|
|
|
|
'(("freenode" . ("#emacs" "#lilypond" "#velvetandlace" "#opensourcemusicians"
|
|
|
|
"##classical" "##guitar" "##deutsch" "##hindi")))
|
|
|
|
erc-password "trololo_trololo"
|
|
|
|
erc-fill-mode nil
|
|
|
|
erc-generate-log-file-name-function 'erc-generate-log-file-name-network
|
|
|
|
erc-log-channels-directory "~/.emacs.d/erc/logs/"
|
|
|
|
erc-log-mode t
|
|
|
|
erc-log-write-after-insert t
|
|
|
|
erc-modules '(autojoin completion list log menu ring stamp ercn
|
|
|
|
netsplit button match track readonly networks noncommands
|
|
|
|
irccontrols move-to-prompt)
|
|
|
|
erc-nick '("contrapunctus" "HisaoNakai" "[Batou]" "[Togusa]" "[2501]")
|
|
|
|
erc-stamp-mode t
|
|
|
|
erc-timestamp-format-left "[%Y %m %e %T %N]
|
|
|
|
"
|
|
|
|
erc-timestamp-format-right nil
|
|
|
|
erc-join-buffer 'bury)
|
2015-11-26 23:31:14 +00:00
|
|
|
(global-unset-key (kbd "C-x e"))
|
2015-11-26 23:33:07 +00:00
|
|
|
(defun cp-erc-freenode ()
|
|
|
|
(interactive)
|
|
|
|
(let ((bufname (cp-get-buffer-regexp "^irc")))
|
|
|
|
(if bufname
|
|
|
|
(switch-to-buffer bufname)
|
|
|
|
(erc :server "irc.freenode.net"
|
|
|
|
:nick "contrapunctus"
|
|
|
|
:password "trololo_trololo"))))
|
|
|
|
(defun cp-erc-reconnect ()
|
|
|
|
(interactive)
|
|
|
|
(if (equal major-mode 'erc-mode)
|
|
|
|
(erc-server-reconnect)
|
|
|
|
(progn (switch-to-buffer (cp-get-buffer-regexp "^irc"))
|
|
|
|
(erc-server-reconnect))))
|
2015-11-30 18:12:32 +00:00
|
|
|
(define-key erc-mode-map (kbd "C-c C-c") nil)
|
2015-11-26 23:33:07 +00:00
|
|
|
(cp-set-keys
|
|
|
|
:bindings
|
|
|
|
`((,(kbd "C-x e r") cp-erc-reconnect)
|
2015-11-30 18:12:32 +00:00
|
|
|
(,(kbd "C-x e e") cp-erc-freenode)
|
|
|
|
(,(kbd "C-c C-c") erc-track-switch-buffer)))
|
2015-11-30 18:13:00 +00:00
|
|
|
(add-hook 'erc-mode-hook 'erc-fill-disable)
|
|
|
|
|
2015-11-30 18:13:23 +00:00
|
|
|
(define-derived-mode erc-log-read-mode text-mode "ERC-log"
|
|
|
|
"Major mode for viewing ERC logs."
|
|
|
|
(highlight-lines-matching-regexp "^\[[0-9: ]*\]$"
|
|
|
|
"font-lock-comment-face")
|
|
|
|
(highlight-lines-matching-regexp "^\*\*\*.*\(join\|quit\|part\)"
|
|
|
|
"font-lock-comment-face"))
|
|
|
|
(add-to-list 'auto-mode-alist
|
|
|
|
(cons "/erc/logs/" 'erc-log-read-mode))
|
2015-11-24 21:12:10 +00:00
|
|
|
|
|
|
|
(require 'rcirc)
|
2015-11-25 22:36:39 +00:00
|
|
|
(setq
|
|
|
|
rcirc-log-flag t
|
|
|
|
rcirc-time-format "%Y %m %e %T "
|
|
|
|
rcirc-fill-column 80
|
|
|
|
rcirc-server-alist '(("irc.freenode.net"
|
|
|
|
:channels ("#emacs" "#lilypond" "#velvetandlace" "#opensourcemusicians"
|
|
|
|
"##classical" "##guitar" "##deutsch" "##hindi")
|
|
|
|
:password "trololo_trololo"))
|
|
|
|
rcirc-default-nick "contrapunctus"
|
|
|
|
;; rcirc-coding-system-alist '(("" . 'utf-8))
|
|
|
|
)
|