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