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:
parent
2c62d47ff4
commit
98054963f4
|
@ -1,54 +1,60 @@
|
||||||
;;;; IRC packages config
|
;;;; IRC packages config
|
||||||
|
|
||||||
(require 'erc)
|
(with-eval-after-load 'erc
|
||||||
(setq ;; erc-default-coding-system 'utf-8
|
(setq ;; erc-default-coding-system 'utf-8
|
||||||
erc-autojoin-channels-alist
|
erc-autojoin-channels-alist
|
||||||
'(("freenode"
|
'(("freenode"
|
||||||
"#emacs"
|
"#emacs"
|
||||||
"##emacs.de"
|
"##emacs.de"
|
||||||
"#lilypond"
|
"#lilypond"
|
||||||
;; "#lisp"
|
;; "#lisp"
|
||||||
;; "#lispgames"
|
;; "#lispgames"
|
||||||
;; "#scheme"
|
;; "#scheme"
|
||||||
|
|
||||||
"#opensourcemusicians"
|
"#opensourcemusicians"
|
||||||
|
|
||||||
"##classical"
|
"##classical"
|
||||||
"##guitar"
|
"##guitar"
|
||||||
"#music-theory"
|
"#music-theory"
|
||||||
;; "##piano"
|
;; "##piano"
|
||||||
|
|
||||||
"##hindi"
|
"##hindi"
|
||||||
;; "##italiano"
|
;; "##italiano"
|
||||||
"##deutsch"
|
"##deutsch"
|
||||||
|
|
||||||
"#VelvetAndLace")
|
"#VelvetAndLace")
|
||||||
("oftc" "#debian-next"))
|
("oftc" "#debian-next"))
|
||||||
erc-password "trololo_trololo"
|
erc-password "trololo_trololo"
|
||||||
erc-fill-mode nil
|
erc-fill-mode nil
|
||||||
|
|
||||||
erc-generate-log-file-name-function 'erc-generate-log-file-name-network
|
erc-generate-log-file-name-function 'erc-generate-log-file-name-network
|
||||||
erc-log-channels-directory "~/.emacs.d/erc/logs/"
|
erc-log-channels-directory "~/.emacs.d/erc/logs/"
|
||||||
erc-log-mode t
|
erc-log-mode t
|
||||||
erc-save-buffer-on-part nil
|
erc-save-buffer-on-part nil
|
||||||
erc-save-queries-on-quit nil
|
erc-save-queries-on-quit nil
|
||||||
erc-log-write-after-send t
|
erc-log-write-after-send t
|
||||||
erc-log-write-after-insert t
|
erc-log-write-after-insert t
|
||||||
|
|
||||||
erc-modules '(autojoin completion list log menu ring stamp ercn
|
erc-modules '(autojoin completion list log menu ring stamp ercn
|
||||||
netsplit button match track readonly networks noncommands
|
netsplit button match track readonly networks noncommands
|
||||||
irccontrols move-to-prompt)
|
irccontrols move-to-prompt)
|
||||||
erc-nick '("contrapunctus"
|
erc-nick '("contrapunctus"
|
||||||
"HisaoNakai"
|
"HisaoNakai"
|
||||||
"[Batou]"
|
"[Batou]"
|
||||||
"[Togusa]"
|
"[Togusa]"
|
||||||
"[2501]")
|
"[2501]")
|
||||||
erc-stamp-mode t
|
erc-stamp-mode t
|
||||||
erc-timestamp-format-left "[%FT%T%z]
|
erc-timestamp-format-left "[%FT%T%z]
|
||||||
"
|
"
|
||||||
erc-timestamp-format-right nil
|
erc-timestamp-format-right nil
|
||||||
erc-join-buffer 'bury
|
erc-join-buffer 'bury
|
||||||
erc-fools '("c-c@" "Kimryd" "csmr"))
|
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 ()
|
(defun cp-erc-irc-buffer ()
|
||||||
(cp-get-buffer-regexp "^irc"))
|
(cp-get-buffer-regexp "^irc"))
|
||||||
|
@ -83,7 +89,6 @@
|
||||||
;; ())
|
;; ())
|
||||||
|
|
||||||
(global-unset-key (kbd "C-x e"))
|
(global-unset-key (kbd "C-x e"))
|
||||||
(define-key erc-mode-map (kbd "C-c C-c") nil)
|
|
||||||
(cp-set-keys
|
(cp-set-keys
|
||||||
:bindings
|
:bindings
|
||||||
`((,(kbd "C-x e r") cp-erc-reconnect)
|
`((,(kbd "C-x e r") cp-erc-reconnect)
|
||||||
|
@ -91,8 +96,6 @@
|
||||||
(,(kbd "C-x e w") cp-erc-ghost)
|
(,(kbd "C-x e w") cp-erc-ghost)
|
||||||
(,(kbd "C-c C-c") erc-track-switch-buffer)
|
(,(kbd "C-c C-c") erc-track-switch-buffer)
|
||||||
(,(kbd "C-x e a") cp-erc-toggle-autojoin)))
|
(,(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"
|
(define-derived-mode erc-log-read-mode text-mode "ERC-log"
|
||||||
"Major mode for viewing ERC logs."
|
"Major mode for viewing ERC logs."
|
||||||
|
|
Loading…
Reference in New Issue
Block a user