From 4cfece518f5ae5b717bef8b2fa7571dee66c2997 Mon Sep 17 00:00:00 2001 From: Armaan Bhojwani Date: Wed, 19 May 2021 15:56:30 -0400 Subject: [PATCH] Add commentary to IRC section --- config.org | 94 ++++++++++++++++++++++++++++-------------------------- 1 file changed, 48 insertions(+), 46 deletions(-) diff --git a/config.org b/config.org index 964ab2c..3ca50d0 100644 --- a/config.org +++ b/config.org @@ -445,53 +445,55 @@ Some EWW enhancements. (global-set-key (kbd "C-c w") 'eww) #+end_src ** IRC -#+begin_src emacs-lisp - (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)))) +Circe is a really nice IRC client, that claims to be above RCIRC and below ERC in terms of features. ERC felt a bit messy and finicky to me, and Circe has all the features that I need. This setup gets the password for my bouncer (Pounce) instances via my =~/.authinfo.gpg= file. +#+begin_src emacs-lisp + (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)))) - (use-package circe - :config - (enable-lui-track) - (enable-circe-color-nicks) - (circe "libera") - (circe "oftc") - (circe "tilde") - (setq circe-networks '(("libera" - :host "irc.armaanb.net" - :nick "emacs" - :use-tls t - :port "6698" - :pass (lambda (null) (fetch-password - :login "emacs" - :machine "irc.armaanb.net" - :port 6698))) - ("oftc" - :host "irc.armaanb.net" - :nick "emacs" - :use-tls t - :port "6699" - :pass (lambda (null) (fetch-password - :login "emacs" - :machine "irc.armaanb.net" - :port 6699))) - ("tilde" - :host "irc.armaanb.net" - :nick "emacs" - :use-tls t - :port "6696" - :pass (lambda (null) (fetch-password - :login "emacs" - :machine "irc.armaanb.net" - :port 6696))) - )) - :custom (circe-default-part-message "goodbye!")) + (use-package circe + :config + (enable-lui-track) + (enable-circe-color-nicks) + (circe "libera") + (circe "oftc") + (circe "tilde") + (setq circe-networks '(("libera" + :host "irc.armaanb.net" + :nick "emacs" + :use-tls t + :port "6698" + :pass (lambda (null) (fetch-password + :login "emacs" + :machine "irc.armaanb.net" + :port 6698))) + ("oftc" + :host "irc.armaanb.net" + :nick "emacs" + :use-tls t + :port "6699" + :pass (lambda (null) (fetch-password + :login "emacs" + :machine "irc.armaanb.net" + :port 6699))) + ("tilde" + :host "irc.armaanb.net" + :nick "emacs" + :use-tls t + :port "6696" + :pass (lambda (null) (fetch-password + :login "emacs" + :machine "irc.armaanb.net" + :port 6696))) + )) + :custom (circe-default-part-message "goodbye!") + :bind (:map circe-mode-map ("C-c C-r" . circe-reconnect-all))) #+end_src * Emacs IDE ** Code cleanup -- 2.39.2