contrapunctus/dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

cp-irc.el - erc

Browse Source 
emacs-init-time to open a session showing (only) the *Messages* buffer -
before - 20.7s
after  - 19.6s
This commit is contained in:
Kashish Sharma 2016-06-13 22:54:57 +05:30
parent 2c62d47ff4
commit 98054963f4
1 changed files with 48 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
contrapunctus/cp-irc.el
View File

@ -1,7 +1,7 @@
;;;; IRC packages config
(require 'erc)
(setq ;; erc-default-coding-system 'utf-8
(with-eval-after-load 'erc
(setq ;; erc-default-coding-system 'utf-8
erc-autojoin-channels-alist
'(("freenode"
"#emacs"
@ -50,6 +50,12 @@
erc-join-buffer 'bury
erc-fools '("c-c@" "Kimryd" "csmr"))
(define-key erc-mode-map (kbd "C-c C-c") nil)
(add-hook 'erc-mode-hook 'erc-fill-disable)
(add-hook 'erc-mode-hook (lambda () (setq erc-ignore-list '("*!csmr@kapsi.fi")))))
(autoload 'erc "erc" "ERC." t)
(defun cp-erc-irc-buffer ()
(cp-get-buffer-regexp "^irc"))
(defun cp-erc-freenode ()
@ -83,7 +89,6 @@
;; ())
(global-unset-key (kbd "C-x e"))
(define-key erc-mode-map (kbd "C-c C-c") nil)
(cp-set-keys
:bindings
`((,(kbd "C-x e r") cp-erc-reconnect)
@ -91,8 +96,6 @@
(,(kbd "C-x e w") cp-erc-ghost)
(,(kbd "C-c C-c") erc-track-switch-buffer)
(,(kbd "C-x e a") cp-erc-toggle-autojoin)))
(add-hook 'erc-mode-hook 'erc-fill-disable)
(add-hook 'erc-mode-hook (lambda () (setq erc-ignore-list '("*!csmr@kapsi.fi"))))
(define-derived-mode erc-log-read-mode text-mode "ERC-log"
"Major mode for viewing ERC logs."