[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/rcirc-update 1c3bad8 4/7: Display server buffer after connecting
From: |
Philip Kaludercic |
Subject: |
feature/rcirc-update 1c3bad8 4/7: Display server buffer after connecting |
Date: |
Tue, 14 Sep 2021 16:10:32 -0400 (EDT) |
branch: feature/rcirc-update
commit 1c3bad8c2e311cce81dc5203cab77f4d65ab3e82
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
Display server buffer after connecting
* rcirc.el (rcirc-display-server-buffer): Add new option
(rcirc): Respect rcirc-display-server-buffer
---
lisp/net/rcirc.el | 23 ++++++++++++++++-------
1 file changed, 16 insertions(+), 7 deletions(-)
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 6c66956..579a350 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -419,6 +419,11 @@ will be killed."
:version "28.1"
:type 'boolean)
+(defcustom rcirc-display-server-buffer t
+ "Non-nil means the server buffer should be shown on connecting."
+ :version "28.1"
+ :type 'boolean)
+
(defvar-local rcirc-nick nil
"The nickname used for the current connection.")
@@ -518,10 +523,12 @@ If ARG is non-nil, instead prompt for connection
parameters."
:channels)
" "))
"[, ]+" t))
- (encryption (rcirc-prompt-for-encryption server-plist)))
- (rcirc-connect server port nick user-name
- rcirc-default-full-name
- channels password encryption))
+ (encryption (rcirc-prompt-for-encryption server-plist))
+ (process (rcirc-connect server port nick user-name
+ rcirc-default-full-name
+ channels password encryption)))
+ (when rcirc-display-server-buffer
+ (pop-to-buffer-same-window (process-buffer process))))
;; connect to servers in `rcirc-server-alist'
(let (connected-servers)
(dolist (c rcirc-server-alist)
@@ -550,9 +557,11 @@ If ARG is non-nil, instead prompt for connection
parameters."
(setq connected p)))
(if (not connected)
(condition-case nil
- (rcirc-connect server port nick user-name
- full-name channels password encryption
- server-alias)
+ (let ((process (rcirc-connect server port nick user-name
+ full-name channels
password encryption
+ server-alias)))
+ (when rcirc-display-server-buffer
+ (pop-to-buffer-same-window (process-buffer
process))))
(quit (message "Quit connecting to %s"
(or server-alias server))))
(with-current-buffer (process-buffer connected)
- feature/rcirc-update updated (0d35040 -> 5ebad79), Philip Kaludercic, 2021/09/14
- feature/rcirc-update 3405c85 6/7: Unset mode-line-process for all buffers on reconnecting, Philip Kaludercic, 2021/09/14
- feature/rcirc-update 8eb9eb0 3/7: Allow for multiple attempts when reconnecting, Philip Kaludercic, 2021/09/14
- feature/rcirc-update ec50a36 2/7: * rcirc.texi (Hacking and Tweaking): Add missing section to menu, Philip Kaludercic, 2021/09/14
- feature/rcirc-update 1c3bad8 4/7: Display server buffer after connecting,
Philip Kaludercic <=
- feature/rcirc-update 5ebad79 7/7: Fix interactive forms for rcirc-define-command, Philip Kaludercic, 2021/09/14
- feature/rcirc-update 767fa97 1/7: * rcirc.el (rcirc-server-alist): Add #emacs to default server list, Philip Kaludercic, 2021/09/14
- feature/rcirc-update 1e13786 5/7: Restore rcirc-target if possible, Philip Kaludercic, 2021/09/14