summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el9
-rw-r--r--lisp/acdw-irc.el3
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