From ce41b1a6a4851117eecdf771fe2a6748723dc5fe Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 11 Oct 2021 18:02:27 -0500
Subject: Make circe prompt simpler

I'm going to see if this makes the `circe-completion-suffix' work
---
 init.el | 32 ++++----------------------------
 1 file changed, 4 insertions(+), 28 deletions(-)

diff --git a/init.el b/init.el
index 3067953..d767ffa 100644
--- a/init.el
+++ b/init.el
@@ -1151,33 +1151,9 @@ specific to most general, they are these:
            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"
-                         "#emacsconf-org")
-              :sasl-username ,circe-default-nick
-              :sasl-password ,(acdw/make-password-fetcher
-                               :host "libera.chat"))
-             ("Tilde Chat" :host "irc.tilde.chat" :port 6697 :use-tls t
-              :channels ("#meta" "#bread" "#dadjokes" "#team"
-                         "#emacs" "#nsfw")
-              :sasl-username ,circe-default-nick
-              :sasl-password ,(acdw/make-password-fetcher
-                               :host "tilde.chat"))
-             ("Casa" :host "m455.casa" :port 6697 :use-tls t
-              :channels ("#basement")
-              :sasl-username ,circe-default-nick
-              :sasl-password ,(acdw/make-password-fetcher
-                               :host "m455.casa"))
-             ("Pissnet" :host "piss.hmm.st" :port 6697 :use-tls t
-              :channels ("#i-just-peed")
-              :sasl-username ,circe-default-nick
-              :sasl-password ,(acdw/make-password-fetcher
-                               :host "piss.hmm.st"))
-             ("Twitch IRC" :host "irc.chat.twitch.tv" :port 6697 :use-tls t
-              :nick "caseofducks" :user "caseofducks"
-              :pass ,(acdw/make-password-fetcher :host "irc.chat.twitch.tv")))
+           circe-prompt-string (format (format "%%%ds> "
+                                               (- acdw-irc/left-margin 2))
+                                       " ")
            circe-reduce-lurker-spam t
            circe-server-auto-join-default-type :after-auth
            circe-server-buffer-action (lambda (buf)
@@ -1208,7 +1184,7 @@ specific to most general, they are these:
             #'enable-circe-color-nicks
             ;; #'enable-circe-display-images
             #'enable-circe-new-day-notifier
-            #'circe-chat@set-prompt
+            ;; #'circe-chat@set-prompt
             #'topsy-mode))
   (:bind "C-c C-s" #'circe-command-SLAP)
 
-- 
cgit 1.4.1-21-gabe81