From: Armaan Bhojwani <me@armaanb.net>
Date: Wed, 19 May 2021 02:00:15 +0000 (-0400)
Subject: Switch to circe for IRC
X-Git-Url: https://git.armaanb.net/?p=config.org.git;a=commitdiff_plain;h=8573eb38a04cf1ca243b9e6bbe8d2130166aaedd

Switch to circe for IRC
---

diff --git a/config.org b/config.org
index 5c3a087..49d1eab 100644
--- a/config.org
+++ b/config.org
@@ -445,25 +445,34 @@ Some EWW enhancements.
   (global-set-key (kbd "C-c w") 'eww)
 #+end_src
 ** IRC
-*** Setup ERC
 #+begin_src emacs-lisp
-  (use-package erc
-    :straight (:type built-in)
+  (use-package circe
     :config
-    (erc-notifications-mode 1)
-    (erc-track-enable)
-    (erc-smiley-disable)
-    :custom (erc-prompt-for-password . nil))
+    (enable-lui-track)
+    (enable-circe-color-nicks))
 
-  (use-package erc-hl-nicks
-    :config (erc-hl-nicks-mode 1))
+  (defun fetch-password (&rest params)
+    (require 'auth-source)
+    (let ((match (car (apply 'auth-source-search params))))
+      (if match
+          (let ((secret (plist-get match :secret)))
+            (if (functionp secret)
+                (funcall secret)
+              secret))
+        (error "Password not found for %S" params))))
 
-  (defun acheam-irc ()
-    "Connect to irc"
-    (interactive)
-    (erc-tls :server "irc.armaanb.net" :nick "emacs"))
+  (setq circe-network-options
+        '(("pounce"
+           :host "irc.armaanb.net"
+           :nick "emacs"
+           :use-tls t
+           :port "6697"
+           :pass (lambda (fetch-password
+                          :login "emacs"
+                          :machine "irc.armaanb.net"
+                          :port 6697))))
 
-  (acheam-irc)
+        (circe "pounce")
 #+end_src
 ** Emacs Anywhere
 Use Emacs globally. Use the Emacs daemon and bind a key in your wm to =emacsclient --eval "(emacs-everywhere)"=.