diff options
-rw-r--r-- | init.el | 9 | ||||
-rw-r--r-- | 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!!!" | |||
228 | circe-format-self-say (format | 228 | circe-format-self-say (format |
229 | "{nick:%1$d.%1$ds} > {body}" | 229 | "{nick:%1$d.%1$ds} > {body}" |
230 | (- acdw-irc/left-margin 3)) | 230 | (- acdw-irc/left-margin 3)) |
231 | circe-network-inhibit-autoconnect '("Pissnet" "Twitch IRC") | ||
231 | circe-network-options | 232 | circe-network-options |
232 | `(("Libera Chat" | 233 | `(("Libera Chat" |
233 | :channels ("#emacs" "#systemcrafters" "##webpals") | 234 | :channels ("#emacs" "#systemcrafters" "##webpals") |
@@ -236,7 +237,7 @@ In short, DO NOT USE THIS FUNCTION!!!" | |||
236 | :host "libera.chat")) | 237 | :host "libera.chat")) |
237 | ("Tilde Chat" :host "irc.tilde.chat" :port 6697 :use-tls t | 238 | ("Tilde Chat" :host "irc.tilde.chat" :port 6697 :use-tls t |
238 | :channels ("#meta" "#bread" "#dadjokes" "#team" | 239 | :channels ("#meta" "#bread" "#dadjokes" "#team" |
239 | "#emacs" "#nsfw") | 240 | "#emacs" (acdw/system (:home "#nsfw"))) |
240 | :sasl-username ,circe-default-nick | 241 | :sasl-username ,circe-default-nick |
241 | :sasl-password ,(acdw/make-password-fetcher | 242 | :sasl-password ,(acdw/make-password-fetcher |
242 | :host "tilde.chat")) | 243 | :host "tilde.chat")) |
@@ -250,8 +251,10 @@ In short, DO NOT USE THIS FUNCTION!!!" | |||
250 | :sasl-username ,circe-default-nick | 251 | :sasl-username ,circe-default-nick |
251 | :sasl-password ,(acdw/make-password-fetcher | 252 | :sasl-password ,(acdw/make-password-fetcher |
252 | :host "piss.hmm.st")) | 253 | :host "piss.hmm.st")) |
253 | ;; TODO: irc.chat.twitch.tv | 254 | ("Twitch IRC" :host "irc.chat.twitch.tv" :port 6697 :use-tls t |
254 | ) | 255 | :nick "caseofducks" :user "caseofducks" |
256 | :pass ,(acdw/make-password-fetcher) | ||
257 | )) | ||
255 | circe-reduce-lurker-spam t | 258 | circe-reduce-lurker-spam t |
256 | circe-server-auto-join-default-type :after-auth | 259 | circe-server-auto-join-default-type :after-auth |
257 | circe-server-buffer-action (lambda (buf) | 260 | 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." | |||
71 | "Connect to all IRC networks in `circe-network-options'." | 71 | "Connect to all IRC networks in `circe-network-options'." |
72 | (interactive) | 72 | (interactive) |
73 | (dolist (network (mapcar #'car circe-network-options)) | 73 | (dolist (network (mapcar #'car circe-network-options)) |
74 | (circe-maybe-connect network))) | 74 | (unless (member network circe-network-inhibit-autoconnect) |
75 | (circe-maybe-connect network)))) | ||
75 | 76 | ||
76 | (el-patch-feature circe) | 77 | (el-patch-feature circe) |
77 | (with-eval-after-load 'circe | 78 | (with-eval-after-load 'circe |