Configure +circe-server-buffer-action

2 files changed, 5 insertions, 4 deletions

@@ -180,7 +180,9 @@
                                                (- +circe-left-margin 2))
                                        " "))
   
-  (:option +circe-network-inhibit-autoconnect _circe-network-inhibit-autoconnect
+  (:option +circe-server-buffer-action (lambda (buf)
+                                         (message "Connected to %s" buf))
+           +circe-network-inhibit-autoconnect _circe-network-inhibit-autoconnect
            circe-network-options _circe-network-options
            circe-color-nicks-everywhere t
            circe-default-part-message "See You, Space Cowpokes . . ."
@@ -383,7 +385,6 @@
            "<help> k" 'helpful-key
            "C-c C-d" 'helpful-at-point))
 
-
 (setup (:straight (hippie-completing-read
                    :host github
                    :repo "duckwork/hippie-completing-read"))
@@ -91,7 +91,7 @@ message the current topic.")
 (require 'el-patch)
 
 (el-patch-feature circe)
-(defvar circe-server-buffer-action 'pop-to-buffer-same-window
+(defvar +circe-server-buffer-action 'pop-to-buffer-same-window
   "What to do with `circe-server' buffers when created.")
 
 (el-patch-defun circe (network-or-server &rest server-options)
@@ -122,7 +122,7 @@ See `circe-network-options' for a list of common options."
         (circe--server-set-variables options)
         (circe-reconnect))
       (el-patch-swap (pop-to-buffer-same-window buffer)
-                     (funcall circe-server-buffer-action buffer))))
+                     (funcall +circe-server-buffer-action buffer))))
 
 ;;; Chat commands