about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-11-22 23:08:46 -0600
committerCase Duckworth2021-11-22 23:09:06 -0600
commit4cce79552f38739c2a1ab3f6231cd48058cc5424 (patch)
tree446524c896c845850d79f3e632218c640ac57356
parentAdd cape (diff)
downloademacs-4cce79552f38739c2a1ab3f6231cd48058cc5424.tar.gz
emacs-4cce79552f38739c2a1ab3f6231cd48058cc5424.zip
Configure +circe-server-buffer-action
-rw-r--r--init.el5
-rw-r--r--lisp/+circe.el4
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 @@
180 (- +circe-left-margin 2)) 180 (- +circe-left-margin 2))
181 " ")) 181 " "))
182 182
183 (:option +circe-network-inhibit-autoconnect _circe-network-inhibit-autoconnect 183 (:option +circe-server-buffer-action (lambda (buf)
184 (message "Connected to %s" buf))
185 +circe-network-inhibit-autoconnect _circe-network-inhibit-autoconnect
184 circe-network-options _circe-network-options 186 circe-network-options _circe-network-options
185 circe-color-nicks-everywhere t 187 circe-color-nicks-everywhere t
186 circe-default-part-message "See You, Space Cowpokes . . ." 188 circe-default-part-message "See You, Space Cowpokes . . ."
@@ -383,7 +385,6 @@
383 "<help> k" 'helpful-key 385 "<help> k" 'helpful-key
384 "C-c C-d" 'helpful-at-point)) 386 "C-c C-d" 'helpful-at-point))
385 387
386
387(setup (:straight (hippie-completing-read 388(setup (:straight (hippie-completing-read
388 :host github 389 :host github
389 :repo "duckwork/hippie-completing-read")) 390 :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.")
91(require 'el-patch) 91(require 'el-patch)
92 92
93(el-patch-feature circe) 93(el-patch-feature circe)
94(defvar circe-server-buffer-action 'pop-to-buffer-same-window 94(defvar +circe-server-buffer-action 'pop-to-buffer-same-window
95 "What to do with `circe-server' buffers when created.") 95 "What to do with `circe-server' buffers when created.")
96 96
97(el-patch-defun circe (network-or-server &rest server-options) 97(el-patch-defun circe (network-or-server &rest server-options)
@@ -122,7 +122,7 @@ See `circe-network-options' for a list of common options."
122 (circe--server-set-variables options) 122 (circe--server-set-variables options)
123 (circe-reconnect)) 123 (circe-reconnect))
124 (el-patch-swap (pop-to-buffer-same-window buffer) 124 (el-patch-swap (pop-to-buffer-same-window buffer)
125 (funcall circe-server-buffer-action buffer)))) 125 (funcall +circe-server-buffer-action buffer))))
126 126
127;;; Chat commands 127;;; Chat commands
128 128