From ac1a4884d03fc0495c773500d8a13f84b695fa43 Mon Sep 17 00:00:00 2001
From: tslil clingman <>
Date: Wed, 11 Sep 2019 19:18:14 -0400
Subject: Init

---
 emacs/inits/30-irc.el | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 emacs/inits/30-irc.el

(limited to 'emacs/inits/30-irc.el')

diff --git a/emacs/inits/30-irc.el b/emacs/inits/30-irc.el
new file mode 100644
index 0000000..7d3566f
--- /dev/null
+++ b/emacs/inits/30-irc.el
@@ -0,0 +1,45 @@
+;; Time-stamp: <2019-01-26 12:55:41 (tslil@winslow)>
+
+(use-package rcirc
+  :ensure t
+  :defer
+  :hook (rcirc-mode . (lambda ()
+                        (rcirc-track-minor-mode)
+                        (flyspell-mode-on)
+                        (set (make-local-variable 'scroll-conservatively) 8192)))
+  :config
+  (use-package rcirc-color
+    :ensure t
+    :if (window-system))
+  
+  (require 'auth-source)
+
+  (defadvice rcirc (before rcirc-read-from-authinfo activate)
+    (unless arg
+      (dolist (p (auth-source-search :port '("nickserv"
+                                             "bitlbee"
+                                             "quakenet")
+                                     :require '(:port :user :secret)))
+        (let ((secret (plist-get p :secret))
+              (method (intern (plist-get p :port))))
+          (add-to-list 'rcirc-authinfo
+                       (list (plist-get p :host)
+                             method
+                             (plist-get p :user)
+                             (if (functionp secret)
+                                 (funcall secret)
+                               secret)))))))
+  
+  (setq rcirc-default-full-name "tslil"
+        rcirc-default-nick "maximum_yellow"
+        rcirc-default-user-name "maximum_yellow"
+        rcirc-time-format "%Y-%m-%d %H:%M "
+        rcirc-log-directory "~/irc/"
+        rcirc-fill-column 80
+        rcirc-log-flag t
+        rcirc-server-alist
+        '(("irc.freenode.net"
+           :port 6697
+           :encryption tls
+           :channels ("#emacs" "#guix")
+           ))))
-- 
cgit v1.2.3