From 98054963f4b9d0050d3a5fb5820c33f02bed32d6 Mon Sep 17 00:00:00 2001
From: Kashish Sharma <music.kashish@gmail.com>
Date: Mon, 13 Jun 2016 22:54:57 +0530
Subject: [PATCH] cp-irc.el - erc

emacs-init-time to open a session showing (only) the *Messages* buffer -
before - 20.7s
after  - 19.6s
---
 contrapunctus/cp-irc.el | 93 +++++++++++++++++++++--------------------
 1 file changed, 48 insertions(+), 45 deletions(-)

diff --git a/contrapunctus/cp-irc.el b/contrapunctus/cp-irc.el
index 4edd973..c88893a 100644
--- a/contrapunctus/cp-irc.el
+++ b/contrapunctus/cp-irc.el
@@ -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."