"Select the next channel."
(interactive)
(when (> (length riece-current-channels) 1)
- (let ((channels (copy-sequence riece-current-channels)))
- (setcdr (last channels) channels) ;make a circular link
- (riece-command-switch-to-channel
- (nth 1 (string-list-member-ignore-case
- riece-current-channel channels))))))
+ (let ((pointer (cdr (string-list-member-ignore-case
+ riece-current-channel
+ riece-current-channels))))
+ (while (and pointer
+ (null (car pointer)))
+ (setq pointer (cdr pointer)))
+ (if (car pointer)
+ (riece-command-switch-to-channel (car pointer))
+ (error "No such channel!")))))
(defun riece-command-previous-channel ()
"Select the previous channel."
(interactive)
(when (> (length riece-current-channels) 1)
- (let ((channels (nreverse (copy-sequence riece-current-channels))))
- (setcdr (last channels) channels) ;make a circular link
- (riece-command-switch-to-channel
- (nth 1 (string-list-member-ignore-case
- riece-current-channel channels))))))
+ (let ((pointer (string-list-member-ignore-case
+ riece-current-channel
+ riece-current-channels))
+ (start riece-current-channels)
+ channel)
+ (while (and start (not (eq start pointer)))
+ (if (car start)
+ (setq channel (car start)))
+ (setq start (cdr start)))
+ (if channel
+ (riece-command-switch-to-channel channel)
+ (error "No such channel!")))))
(defun riece-command-select-command-buffer ()
"Select the command buffer."
(defun riece-command-toggle-channel-buffer-mode ()
(interactive)
(setq riece-channel-buffer-mode
- (not riece-channel-buffer-mode))
+ (not riece-channel-buffer-mode)
+ riece-save-variables-are-dirty t)
(riece-command-configure-windows))
(defun riece-command-toggle-user-list-buffer-mode ()
(interactive)
(setq riece-user-list-buffer-mode
- (not riece-user-list-buffer-mode))
+ (not riece-user-list-buffer-mode)
+ riece-save-variables-are-dirty t)
(riece-command-configure-windows))
(defun riece-command-toggle-channel-list-buffer-mode ()
(interactive)
(setq riece-channel-list-buffer-mode
- (not riece-channel-list-buffer-mode))
+ (not riece-channel-list-buffer-mode)
+ riece-save-variables-are-dirty t)
(riece-command-configure-windows))
(defun riece-command-finger (user &optional recurse)
(defun riece-command-open-server (server-name)
(interactive
(list (completing-read "Server: " riece-server-alist)))
- (let ((process (riece-start-server
- (riece-server-name-to-server server-name)
- server-name)))
- (with-current-buffer (process-buffer process)
- (setq riece-server-name server-name))
- (setq riece-server-process-alist
- (cons (cons server-name process)
- riece-server-process-alist))))
+ (if (assoc server-name riece-server-process-alist)
+ (error "%s is already opened" server-name)
+ (riece-open-server
+ (riece-server-name-to-server server-name)
+ server-name)))
(defun riece-command-close-server (server-name &optional message)
(interactive