(require 'riece-highlight)
(require 'riece-display)
(require 'riece-debug)
+(require 'riece-mcat)
(defface riece-ctcp-action-face
'((((class color)
riece-dialogue-buffer)
(concat
(riece-concat-server-name
- (format "CTCP VERSION from %s (%s) to %s"
+ (format (riece-mcat "CTCP VERSION from %s (%s) to %s")
user
(riece-strip-user-at-host (riece-prefix-user-at-host prefix))
(riece-format-identity target-identity t)))
riece-dialogue-buffer)
(concat
(riece-concat-server-name
- (format "CTCP PING from %s (%s) to %s"
+ (format (riece-mcat "CTCP PING from %s (%s) to %s")
user
(riece-strip-user-at-host (riece-prefix-user-at-host prefix))
(riece-format-identity target-identity t)))
riece-dialogue-buffer)
(concat
(riece-concat-server-name
- (format "CTCP CLIENTINFO from %s (%s) to %s"
+ (format (riece-mcat "CTCP CLIENTINFO from %s (%s) to %s")
user
(riece-strip-user-at-host (riece-prefix-user-at-host prefix))
(riece-format-identity target-identity t)))
(time (format-time-string "%c")))
(riece-send-string
(format "NOTICE %s :\1TIME %s\1\r\n" user time))
- (riece-insert-change buffer (format "CTCP TIME from %s\n" user))
+ (riece-insert-change buffer (format (riece-mcat "CTCP TIME from %s\n")
+ user))
(riece-insert-change
(if (and riece-channel-buffer-mode
(not (eq buffer riece-channel-buffer)))
riece-dialogue-buffer)
(concat
(riece-concat-server-name
- (format "CTCP TIME from %s (%s) to %s"
+ (format (riece-mcat "CTCP TIME from %s (%s) to %s")
user
(riece-strip-user-at-host (riece-prefix-user-at-host prefix))
(riece-format-identity target-identity t)))
(list riece-dialogue-buffer riece-others-buffer)
(concat
(riece-concat-server-name
- (format "CTCP VERSION for %s (%s) = %s"
+ (format (riece-mcat "CTCP VERSION for %s (%s) = %s")
(riece-prefix-nickname prefix)
(riece-strip-user-at-host (riece-prefix-user-at-host prefix))
string))
(list riece-dialogue-buffer riece-others-buffer)
(concat
(riece-concat-server-name
- (format "CTCP PING for %s (%s) = %d sec"
+ (format (riece-mcat "CTCP PING for %s (%s) = %d sec")
(riece-prefix-nickname prefix)
(riece-strip-user-at-host (riece-prefix-user-at-host prefix))
elapsed))
(list riece-dialogue-buffer riece-others-buffer)
(concat
(riece-concat-server-name
- (format "CTCP CLIENTINFO for %s (%s) = %s"
+ (format (riece-mcat "CTCP CLIENTINFO for %s (%s) = %s")
(riece-prefix-nickname prefix)
(riece-strip-user-at-host (riece-prefix-user-at-host prefix))
string))
(list riece-dialogue-buffer riece-others-buffer)
(concat
(riece-concat-server-name
- (format "CTCP TIME for %s (%s) = %s"
+ (format (riece-mcat "CTCP TIME for %s (%s) = %s")
(riece-prefix-nickname prefix)
(riece-strip-user-at-host (riece-prefix-user-at-host prefix))
string))
(defun riece-command-ctcp-version (target)
(interactive
(list (riece-completing-read-identity
- "Channel/User: "
+ (riece-mcat "Channel/User: ")
(riece-get-identities-on-server (riece-current-server-name)))))
(riece-send-string (format "PRIVMSG %s :\1VERSION\1\r\n"
(riece-identity-prefix target))))
(defun riece-command-ctcp-ping (target)
(interactive
(list (riece-completing-read-identity
- "Channel/User: "
+ (riece-mcat "Channel/User: ")
(riece-get-identities-on-server (riece-current-server-name)))))
(riece-send-string (format "PRIVMSG %s :\1PING\1\r\n"
(riece-identity-prefix target)))
(defun riece-command-ctcp-clientinfo (target)
(interactive
(list (riece-completing-read-identity
- "Channel/User: "
+ (riece-mcat "Channel/User: ")
(riece-get-identities-on-server (riece-current-server-name)))))
(riece-send-string (format "PRIVMSG %s :\1CLIENTINFO\1\r\n"
(riece-identity-prefix target))))
(interactive
(list (if current-prefix-arg
(riece-completing-read-identity
- "Channel/User: "
+ (riece-mcat "Channel/User: ")
(riece-get-identities-on-server (riece-current-server-name)))
riece-current-channel)
(let (message)
(setq message (buffer-substring (point)
(progn (end-of-line) (point))))
(if (equal message "")
- (read-string "Action: ")
- (prog1 (read-from-minibuffer "Action: " (cons message 0))
+ (read-string (riece-mcat "Action: "))
+ (prog1 (read-from-minibuffer (riece-mcat "Action: ")
+ (cons message 0))
(let ((next-line-add-newlines t))
(next-line 1)))))))
(if (equal action "")
(defun riece-command-ctcp-time (target)
(interactive
(list (riece-completing-read-identity
- "Channel/User: "
+ (riece-mcat "Channel/User: ")
(riece-get-identities-on-server (riece-current-server-name)))))
(riece-send-string (format "PRIVMSG %s :\1TIME\1\r\n"
(riece-identity-prefix target))))