diff options
-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 | ||