(let* ((completion-ignore-case t)
(user (riece-completing-read-identity
"Finger user: "
- (riece-get-users-on-server (riece-current-server-name)))))
+ (riece-get-users-on-server (riece-current-server-name))
+ nil nil nil nil nil t)))
(list user current-prefix-arg)))
(if recurse
(riece-send-string (format "WHOIS %s %s\r\n"
(riece-check-channel-commands-are-usable t)
(list (riece-completing-read-identity
"Invite user: "
- (riece-get-users-on-server (riece-current-server-name))))))
+ (riece-get-users-on-server (riece-current-server-name))
+ nil nil nil nil nil t))))
(riece-send-string (format "INVITE %s %s\r\n"
(riece-identity-prefix user)
(riece-identity-prefix riece-current-channel))))
(if current-prefix-arg
(riece-completing-read-identity
"Change mode for channel/user: "
- (riece-get-identities-on-server (riece-current-server-name)))
+ (riece-get-identities-on-server (riece-current-server-name))
+ nil nil nil nil nil t)
(riece-check-channel-commands-are-usable t)
riece-current-channel))
(riece-overriding-server-name (riece-identity-server channel))
(concat (riece-concat-channel-modes
channel "Mode (? for help)") ": ")
nil riece-minibuffer-map))))
- (riece-send-string (format "MODE %s :%s\r\n" (riece-identity-prefix channel)
- change)))
+ (if (equal change "")
+ (riece-send-string (format "MODE %s\r\n"
+ (riece-identity-prefix channel)))
+ (riece-send-string (format "MODE %s %s\r\n"
+ (riece-identity-prefix channel)
+ change))))
(defun riece-command-set-operators (users &optional arg)
(interactive
(defun riece-command-send-message (message notice)
"Send MESSAGE to the current channel."
+ (run-hooks 'riece-command-send-message-hook)
(if (equal message "")
(error "No text to send"))
(riece-check-channel-commands-are-usable)
(let ((completion-ignore-case t))
(list (riece-completing-read-identity
"Message to user: "
- (riece-get-users-on-server (riece-current-server-name))))))
+ (riece-get-users-on-server (riece-current-server-name))
+ nil nil nil nil nil t))))
(let ((text (buffer-substring
(riece-line-beginning-position)
(riece-line-end-position))))
(interactive "sIRC command: ")
(riece-send-string (concat command "\r\n")))
+(defun riece-command-beginning-of-buffer ()
+ "Scroll channel buffer to the beginning."
+ (interactive)
+ (let (buffer window)
+ (setq buffer (if riece-channel-buffer-mode
+ riece-channel-buffer
+ riece-dialogue-buffer))
+ (or (setq window (get-buffer-window buffer))
+ (setq window (get-buffer-window riece-dialogue-buffer)
+ buffer riece-dialogue-buffer))
+ (when window
+ (save-selected-window
+ (select-window window)
+ (goto-char (point-min))))))
+
(defun riece-command-end-of-buffer ()
- "Get end of the dialogue buffer."
+ "Scroll channel buffer to the end."
(interactive)
(let (buffer window)
(setq buffer (if riece-channel-buffer-mode
(display-completion-list all))
(delete-region (point) (- (point) (length current)))
(insert completion))))))
-
+
(defun riece-command-open-server (server-name)
(interactive
(list (completing-read "Open server: " riece-server-alist)))