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 From 867eae4618be36c2a5c7ab315148bbf05e0ae530 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sun, 26 Sep 2021 17:13:38 -0500 Subject: whitespace --- init.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/init.el b/init.el index 9dd0a9d..14c85ce 100644 --- a/init.el +++ b/init.el @@ -1898,8 +1898,8 @@ the default is \"/\"." for n from 0 collect (el-patch-swap (org-add-props - head nil '`face - (nth (% n org-n-level-faces) org-level-faces)) + head nil '`face + (nth (% n org-n-level-faces) org-level-faces)) head)) separator)))) (when (> (length fpath) width) -- cgit 1.4.1-21-gabe81