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

cp-irc.el - erc 

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

93
contrapunctus/cp-irc.el
View File

@ -1,54 +1,60 @@
;;;; IRC packages config
(require 'erc)
(setq ;; erc-default-coding-system 'utf-8
erc-autojoin-channels-alist
'(("freenode"
"#emacs"
"##emacs.de"
"#lilypond"
;; "#lisp"
;; "#lispgames"
;; "#scheme"
(with-eval-after-load 'erc
(setq ;; erc-default-coding-system 'utf-8
erc-autojoin-channels-alist
'(("freenode"
"#emacs"
"##emacs.de"
"#lilypond"
;; "#lisp"
;; "#lispgames"
;; "#scheme"
"#opensourcemusicians"
"#opensourcemusicians"
"##classical"
"##guitar"
"#music-theory"
;; "##piano"
"##classical"
"##guitar"
"#music-theory"
;; "##piano"
"##hindi"
;; "##italiano"
"##deutsch"
"##hindi"
;; "##italiano"
"##deutsch"
"#VelvetAndLace")
("oftc" "#debian-next"))
erc-password "trololo_trololo"
erc-fill-mode nil
"#VelvetAndLace")
("oftc" "#debian-next"))
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-save-buffer-on-part nil
erc-save-queries-on-quit nil
erc-log-write-after-send t
erc-log-write-after-insert t
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-save-buffer-on-part nil
erc-save-queries-on-quit nil
erc-log-write-after-send 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 "[%FT%T%z]
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 "[%FT%T%z]
"
erc-timestamp-format-right nil
erc-join-buffer 'bury
erc-fools '("c-c@" "Kimryd" "csmr"))
erc-timestamp-format-right nil
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"))
@ -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."