From 0674f69782236041b64086059fc793bac47b6ddb Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 26 Sep 2021 17:12:53 -0500
Subject: Configure circe

---
 init.el          | 9 ++++++---
 lisp/acdw-irc.el | 3 ++-
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/init.el b/init.el
index d8e9bf0..9dd0a9d 100644
--- a/init.el
+++ b/init.el
@@ -228,6 +228,7 @@ In short, DO NOT USE THIS FUNCTION!!!"
            circe-format-self-say (format
                                   "{nick:%1$d.%1$ds} > {body}"
                                   (- acdw-irc/left-margin 3))
+           circe-network-inhibit-autoconnect '("Pissnet" "Twitch IRC")
            circe-network-options
            `(("Libera Chat"
               :channels ("#emacs" "#systemcrafters" "##webpals")
@@ -236,7 +237,7 @@ In short, DO NOT USE THIS FUNCTION!!!"
                                :host "libera.chat"))
              ("Tilde Chat" :host "irc.tilde.chat" :port 6697 :use-tls t
               :channels ("#meta" "#bread" "#dadjokes" "#team"
-                         "#emacs" "#nsfw")
+                         "#emacs" (acdw/system (:home "#nsfw")))
               :sasl-username ,circe-default-nick
               :sasl-password ,(acdw/make-password-fetcher
                                :host "tilde.chat"))
@@ -250,8 +251,10 @@ In short, DO NOT USE THIS FUNCTION!!!"
               :sasl-username ,circe-default-nick
               :sasl-password ,(acdw/make-password-fetcher
                                :host "piss.hmm.st"))
-             ;; TODO: irc.chat.twitch.tv
-             )
+             ("Twitch IRC" :host "irc.chat.twitch.tv" :port 6697 :use-tls t
+              :nick "caseofducks" :user "caseofducks"
+              :pass ,(acdw/make-password-fetcher)
+              ))
            circe-reduce-lurker-spam t
            circe-server-auto-join-default-type :after-auth
            circe-server-buffer-action (lambda (buf)
diff --git a/lisp/acdw-irc.el b/lisp/acdw-irc.el
index 1fc7482..8ec5893 100644
--- a/lisp/acdw-irc.el
+++ b/lisp/acdw-irc.el
@@ -71,7 +71,8 @@ and right on t."
   "Connect to all IRC networks in `circe-network-options'."
   (interactive)
   (dolist (network (mapcar #'car circe-network-options))
-    (circe-maybe-connect network)))
+    (unless (member network circe-network-inhibit-autoconnect)
+      (circe-maybe-connect network))))
 
 (el-patch-feature circe)
 (with-eval-after-load 'circe
-- 
cgit 1.4.1-21-gabe81