diff options
| author | Case Duckworth | 2021-11-22 23:08:46 -0600 |
|---|---|---|
| committer | Case Duckworth | 2021-11-22 23:09:06 -0600 |
| commit | 4cce79552f38739c2a1ab3f6231cd48058cc5424 (patch) | |
| tree | 446524c896c845850d79f3e632218c640ac57356 | |
| parent | Add cape (diff) | |
| download | emacs-4cce79552f38739c2a1ab3f6231cd48058cc5424.tar.gz emacs-4cce79552f38739c2a1ab3f6231cd48058cc5424.zip | |
Configure +circe-server-buffer-action
| -rw-r--r-- | init.el | 5 | ||||
| -rw-r--r-- | 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 @@ | |||
| 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 | ||