From 4cce79552f38739c2a1ab3f6231cd48058cc5424 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 22 Nov 2021 23:08:46 -0600 Subject: Configure +circe-server-buffer-action --- init.el | 5 +++-- lisp/+circe.el | 4 ++-- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/init.el b/init.el index a9da4d4..aadf54a 100644 --- a/init.el +++ b/init.el @@ -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 @@ " k" 'helpful-key "C-c C-d" 'helpful-at-point)) - (setup (:straight (hippie-completing-read :host github :repo "duckwork/hippie-completing-read")) diff --git a/lisp/+circe.el b/lisp/+circe.el index 1403af8..fc8d0be 100644 --- a/lisp/+circe.el +++ b/lisp/+circe.el @@ -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 -- cgit 1.4.1-21-gabe81