-;;; riece-300.el --- handlers for 300 replies
+;;; riece-300.el --- handlers for 300 replies -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(riece-default-handle-numeric-reply
riece-info-prefix prefix number name string))
-(defun riece-handle-302-message (prefix number name string)
+(defun riece-handle-302-message (_prefix _number _name string)
"RPL_USERHOST \":*1<reply> *( \" \" <reply> )\""
(let ((replies (split-string (if (eq (aref string 0) ?:)
(substring string 1)
(riece-concat-server-name
(riece-concat-user-status
status
- (format "%s is (%s)"
+ (format (riece-mcat "%s is (%s)")
(riece-format-identity
(riece-make-identity user riece-server-name)
t)
"\n"))))
(setq replies (cdr replies)))))
-(defun riece-handle-303-message (prefix number name string)
+(defun riece-handle-303-message (_prefix _number _name string)
(riece-insert-info
(list riece-dialogue-buffer riece-others-buffer)
(concat
(riece-concat-server-name
- (concat "Online: "
+ (concat (riece-mcat "Online: ")
(mapconcat
(lambda (user)
(riece-format-identity
"")))
"\n")))
-(defun riece-handle-301-message (prefix number name string)
+(defun riece-handle-301-message (_prefix _number _name string)
(if (string-match (concat "^\\([^ ]+\\) :?") string)
(let ((user (match-string 1 string))
(message (substring string (match-end 0))))
(list riece-dialogue-buffer riece-others-buffer)
(concat
(riece-concat-server-name
- (format "%s is away: %s"
+ (format (riece-mcat "%s is away: %s")
(riece-format-identity
(riece-make-identity user riece-server-name)
t)
message))
"\n")))))
-(defun riece-handle-305-message (prefix number name string)
+(defun riece-handle-305-message (_prefix _number _name _string)
(riece-user-toggle-away riece-real-nickname nil)
(riece-emit-signal 'user-away-changed
(riece-make-identity riece-real-nickname
riece-server-name)
nil))
-(defun riece-handle-306-message (prefix number name string)
+(defun riece-handle-306-message (_prefix _number _name _string)
(riece-user-toggle-away riece-real-nickname t)
(riece-emit-signal 'user-away-changed
(riece-make-identity riece-real-nickname
riece-server-name)
t))
-(defun riece-handle-311-message (prefix number name string)
+(defun riece-handle-311-message (_prefix _number _name string)
(if (string-match
(concat "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\* :?")
string)
(list riece-dialogue-buffer riece-others-buffer)
(concat
(riece-concat-server-name
- (format "%s is %s (%s)"
+ (format (riece-mcat "%s is %s (%s)")
(riece-format-identity
(riece-make-identity user riece-server-name)
t)
user-at-host))
"\n")))))
-(defun riece-handle-312-message (prefix number name string)
+(defun riece-handle-312-message (_prefix _number _name string)
(if (string-match
(concat "^\\([^ ]+\\) \\([^ ]+\\) :?")
string)
(list riece-dialogue-buffer riece-others-buffer)
(concat
(riece-concat-server-name
- (format "on via server %s: %s"
+ (format (riece-mcat "on via server %s: %s")
(match-string 2 string)
(substring string (match-end 0))))
"\n"))))
-(defun riece-handle-313-message (prefix number name string)
+(defun riece-handle-313-message (_prefix _number _name string)
(if (string-match "^[^ ]+" string)
(let ((user (match-string 0 string)))
(riece-insert-info
(list riece-dialogue-buffer riece-others-buffer)
(concat
(riece-concat-server-name
- (concat (riece-format-identity
+ (format "%s is an IRC operator"
+ (riece-format-identity
(riece-make-identity user riece-server-name)
- t)
- " is an IRC operator"))
+ t)))
"\n")))))
-(defun riece-handle-317-message (prefix number name string)
+(defun riece-handle-317-message (_prefix _number _name string)
(if (string-match
(concat "^\\([^ ]+\\) \\([0-9]+\\) ")
string)
(let* ((user (match-string 1 string))
(seconds (string-to-number (match-string 2 string)))
- (units (list (cons (/ seconds 60 60 24) "days")
- (cons (mod (/ seconds 60 60) 24) "hours")
- (cons (mod (/ seconds 60) 60) "minutes")
- (cons (mod seconds 60) "seconds"))))
+ (units (list (cons (/ seconds 60 60 24) (riece-mcat "days"))
+ (cons (mod (/ seconds 60 60) 24)
+ (riece-mcat "hours"))
+ (cons (mod (/ seconds 60) 60) (riece-mcat "minutes"))
+ (cons (mod seconds 60) (riece-mcat "seconds")))))
(riece-insert-info
(list riece-dialogue-buffer riece-others-buffer)
(concat
(riece-concat-server-name
- (format "%s is %s idle"
+ (format (riece-mcat "%s is %s idle")
(riece-format-identity
(riece-make-identity user riece-server-name)
t)
" ")))
"\n")))))
-(defun riece-handle-319-message (prefix number name string)
+(defun riece-handle-319-message (_prefix _number _name string)
(if (string-match (concat "^\\([^ ]+\\) :?") string)
(let ((user (match-string 1 string))
(channels
channels))
"\n")))))
-(defun riece-handle-351-message (prefix number name string)
+(defun riece-handle-351-message (_prefix _number _name string)
(if (string-match "\\([^ ]+\\.[^ ]+\\) \\([^ ]+\\) :?" string)
(riece-insert-info
(list riece-dialogue-buffer riece-others-buffer)
(concat
(riece-concat-server-name
- (format "%s is running on %s: %s"
+ (format (riece-mcat "%s is running on %s: %s")
(match-string 1 string)
(match-string 2 string)
(substring string (match-end 0))))
"\n"))))
(defvar riece-353-message-alist nil)
-(defun riece-handle-353-message (prefix number name string)
+(defun riece-handle-353-message (_prefix _number _name string)
"RPL_NAMREPLY \"[=\*@] <channel> :[[@|+]<nick> [[@|+]<nick> [...]]]\"."
(make-local-variable 'riece-353-message-alist)
(if (string-match "^[=\*@] *\\([^ ]+\\) +:?" string)
(concat (substring string (match-end 0)) " "))
riece-353-message-alist))))))
-(defun riece-handle-322-message (prefix number name decoded)
+(defun riece-handle-322-message (_prefix _number _name decoded)
(let* ((parameters (riece-split-parameters (riece-decoded-string decoded)))
(channel (car parameters))
(visible (nth 1 parameters))
channel-identity))
topic (nth 2 parameters))
(riece-channel-set-topic (riece-get-channel channel) topic)
- (riece-insert-info buffer (concat visible " users, topic: " topic "\n"))
+ (riece-insert-info buffer (format (riece-mcat "%s users, topic: %s\n")
+ visible topic))
(riece-insert-info
(if (and riece-channel-buffer-mode
(not (eq buffer riece-channel-buffer)))
riece-dialogue-buffer)
(concat
(riece-concat-server-name
- (format "%s: %s users, topic: %s"
+ (format (riece-mcat "%s: %s users, topic: %s")
(riece-format-identity channel-identity t) visible topic))
"\n"))))
-(defun riece-handle-324-message (prefix number name string)
+(defun riece-handle-324-message (_prefix _number _name string)
(if (string-match "^\\([^ ]+\\) \\([^ ]+\\) " string)
(let* ((channel (match-string 1 string))
(mode-string (match-string 2 string)))
(let* ((channel-identity (riece-make-identity channel
riece-server-name))
(buffer (riece-channel-buffer channel-identity)))
- (riece-insert-info buffer (concat "Mode: " mode-string "\n"))
+ (riece-insert-info buffer (concat (riece-mcat "Mode: ") mode-string
+ "\n"))
(riece-insert-info
(if (and riece-channel-buffer-mode
(not (eq buffer riece-channel-buffer)))
riece-dialogue-buffer)
(concat
(riece-concat-server-name
- (format "Mode for %s: %s"
+ (format (riece-mcat "Mode for %s: %s")
(riece-format-identity channel-identity t)
mode-string))
"\n"))))))
-(defun riece-handle-set-topic (prefix number name decoded remove)
+(defun riece-handle-set-topic (_prefix _number _name decoded remove)
(let* ((parameters (riece-split-parameters (riece-decoded-string decoded)))
(channel (car parameters))
topic
channel-identity))
topic (nth 1 parameters))
(riece-channel-set-topic (riece-get-channel channel) topic)
- (riece-insert-info buffer (concat "Topic: " topic "\n"))
+ (riece-insert-info buffer (concat (riece-mcat "Topic: ") topic "\n"))
(riece-insert-info
(if (and riece-channel-buffer-mode
(not (eq buffer riece-channel-buffer)))
riece-dialogue-buffer)
(concat
(riece-concat-server-name
- (format "Topic for %s: %s"
+ (format (riece-mcat "Topic for %s: %s")
(riece-format-identity channel-identity t)
topic))
"\n")))
(defun riece-handle-332-message (prefix number name string)
(riece-handle-set-topic prefix number name string nil))
-(defun riece-handle-341-message (prefix number name string)
+(defun riece-handle-341-message (_prefix _number _name string)
(if (string-match "^\\([^ ]+\\) " string)
(let* ((channel (substring string (match-end 0)))
(user (match-string 1 string))
(channel-identity (riece-make-identity channel riece-server-name))
(buffer (riece-channel-buffer channel-identity)))
- (riece-insert-info buffer (concat "Inviting " user "\n"))
+ (riece-insert-info buffer (format (riece-mcat "Inviting %s\n") user))
(riece-insert-info
(if (and riece-channel-buffer-mode
(not (eq buffer riece-channel-buffer)))
riece-dialogue-buffer)
(concat
(riece-concat-server-name
- (format "Inviting %s to %s" user
+ (format (riece-mcat "Inviting %s to %s") user
(riece-format-identity channel-identity t)))
"\n")))))
-(defun riece-handle-352-message (prefix number name string)
+(defun riece-handle-352-message (_prefix _number _name string)
(if (string-match "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([HG]\\)\\(\\*\\)?\\([@+]\\)? :\\([0-9]+\\) " string)
(let* ((channel (match-string 1 string))
(user (match-string 2 string))
info)))
"\n")))))
-(defun riece-handle-315-message (prefix number name string))
-(defun riece-handle-318-message (prefix number name string))
-(defun riece-handle-323-message (prefix number name string))
+(defun riece-handle-315-message (_prefix _number _name _string))
+(defun riece-handle-318-message (_prefix _number _name _string))
+(defun riece-handle-323-message (_prefix _number _name _string))
-(defun riece-handle-366-message (prefix number name string)
+(defun riece-handle-366-message (_prefix _number _name string)
"RPL_ENDOFNAMES \"<channel> :End of NAMES list\""
(if (string-match "^\\([^ ]+\\) " string)
(let* ((channel (match-string 1 string))
(riece-naming-assert-channel-users users channel)
(riece-insert-info
buffer
- (concat (format "%d users: " (length users)) string "\n"))
+ (concat (format (riece-mcat "%d users: ") (length users)) string
+ "\n"))
(riece-insert-info
(if (and riece-channel-buffer-mode
(not (eq buffer riece-channel-buffer)))
riece-dialogue-buffer)
(concat
(riece-concat-server-name
- (concat (format "%d users on %s: "
+ (concat (format (riece-mcat "%d users on %s: ")
(length users)
(riece-format-identity channel-identity t))
string))