lisp/net/rcirc.el

22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
35 ;; message filling, nick completion, and keepalive pings are all
40 ;; Open a new irc connection with:
154 Each element of the list is a list with a SERVER-REGEXP string
207   "List of keywords to highlight in message text."
237 Called with 5 arguments, PROCESS, SENDER, RESPONSE, TARGET and TEXT."
300   "List of buffers with unviewed activity.")
307   "The server buffer associated with this channel buffer.")
310   "The channel or user associated with this buffer.")
350 	(message "Connected to %s"
361 (defvar rcirc-last-server-message-time nil)
372     (message "Connecting to %s..." server)
408       (make-local-variable 'rcirc-last-server-message-time)
409       (setq rcirc-last-server-message-time (current-time))
428       (message "Connecting to %s...done" server)
433 (defmacro with-rcirc-process-buffer (process &rest body)
435   `(with-current-buffer (process-buffer ,process)
438 (defmacro with-rcirc-server-buffer (&rest body)
440   `(with-current-buffer rcirc-server-buffer
445 Kill processes that have not received a server message since the
449 	      (with-rcirc-process-buffer process
477 Functions are called with PROCESS and SENTINEL arguments.")
483     (with-rcirc-process-buffer process
485 	(with-current-buffer (or buffer (current-buffer))
495       (run-hook-with-args 'rcirc-sentinel-hooks process sentinel))))
502               (with-rcirc-process-buffer p
508 (defvar rcirc-receive-message-hooks nil
509   "Hook functions run when a message is received from server.
510 Function is called with PROCESS, COMMAND, SENDER, ARGS and LINE.")
515   (with-rcirc-process-buffer process
516     (setq rcirc-last-server-message-time (current-time))
526   (with-rcirc-process-buffer process
528       (with-rcirc-process-buffer process
535   (message "delete process %S" process)
563         (run-hook-with-args 'rcirc-receive-message-hooks
565     (message "UNHANDLED: %s" text)))
587   "Return the process associated with channel BUFFER.
590 			      (with-current-buffer buffer
597   (with-rcirc-process-buffer process
602   (with-rcirc-process-buffer process
606   "Return the nick associated with BUFFER.
608   (with-current-buffer (or buffer (current-buffer))
609     (with-current-buffer rcirc-server-buffer
612 (defvar rcirc-max-message-length 420
615 (defun rcirc-send-message (process target message &optional noticep)
616   "Send TARGET associated with PROCESS a privmsg with text MESSAGE.
618   ;; max message length is 512 including CRLF
620          (oversize (> (length message) rcirc-max-message-length))
622                    (substring message 0 rcirc-max-message-length)
623                  message))
628                    (substring message rcirc-max-message-length))))
632     (when more (rcirc-send-message process target more noticep))))
798       (with-rcirc-process-buffer process
812 		      (with-current-buffer buffer
814 		    (with-rcirc-process-buffer process
823 		  (cons "%s" (with-rcirc-server-buffer rcirc-server-name))
868       (with-rcirc-server-buffer
888   "Return the buffer associated with the PROCESS and TARGET.
892   (with-rcirc-process-buffer process
899   "Return the buffer associated with the PROCESS and TARGET.
903 	(with-current-buffer buffer
908 	(with-rcirc-process-buffer process
911 	    (with-current-buffer new-buffer
917   "Send input to target associated with the current buffer."
953     (rcirc-process-message line)))
955 (defun rcirc-process-message (line)
957       (message "Not joined (no target)")
959     (rcirc-send-message (rcirc-buffer-process) rcirc-target line)
964       ;; "//text" will send "/text" as a message
965       (rcirc-process-message (substring line 1))
969       (with-current-buffer (current-buffer)
999       (message "Type C-c C-c to return text to %s, or C-c C-k to cancel" parent))))
1021   (setq fill-column rcirc-max-message-length))
1050 	       (with-current-buffer buffer
1065 if no match is found, the default entry (with a key of `t') is used.
1067 The entry's value part should be a string, which is inserted with
1070   %m        The message text
1072   %N        The sender's nick (with face `rcirc-my-nick' or `rcirc-other-nick')
1074   %T        The timestamp (with face `rcirc-timestamp')
1140 		   ;; %m -- message text
1177   (with-rcirc-process-buffer process
1181 	   ;; message from another user
1196   "Print TEXT in the buffer associated with TARGET.
1201 	      (member (with-syntax-table rcirc-nick-syntax-table
1207       (with-current-buffer buffer
1215 	    ;; mark the line with overlay arrow
1290 			      (with-current-buffer (window-buffer w)
1292 				  (with-selected-window w
1316 	(run-hook-with-args 'rcirc-print-hooks
1331       (with-rcirc-process-buffer process
1347   (with-rcirc-process-buffer process
1352   "Add CHANNEL to list associated with NICK."
1354     (with-rcirc-process-buffer process
1365   (with-rcirc-process-buffer process
1369   "Remove the CHANNEL from list associated with NICK."
1370   (with-rcirc-process-buffer process
1383   "Return the list of nicks associated with TARGET sorted by last activity."
1386 	(with-rcirc-process-buffer process
1450   (message (if rcirc-ignore-buffer-activity-flag
1460   (message (if rcirc-low-priority-flag
1471   "Switch to the server buffer associated with current channel buffer."
1485   "Go to the next rcirc buffer with activity.
1486 With prefix ARG, go to the next low priority buffer with activity.
1503 	      (message "No IRC activity.  Start something.")
1504 	    (message "No more IRC activity.  Go back to work.")
1507 	(message (concat
1518 Functions are called with a single argument, the buffer with the
1523   "Record BUFFER activity with TYPE."
1524   (with-current-buffer buffer
1529 		    (let ((t1 (with-current-buffer b1 rcirc-last-post-time))
1530 			  (t2 (with-current-buffer b2 rcirc-last-post-time)))
1534   (run-hook-with-args 'rcirc-activity-hooks buffer))
1539   (with-current-buffer buffer
1543   "Return a cons cell with ACTIVITY split into (lopri . hipri)."
1546       (with-current-buffer buf
1578 		 (with-current-buffer b
1590   (with-current-buffer buffer
1600 		      (with-current-buffer buf
1609       (with-current-buffer rcirc-current-buffer
1627 				  (with-rcirc-process-buffer process
1632 	(with-current-buffer (cdr i)
1680 ;;; /commands these are called with 3 args: PROCESS, TARGET, which is
1696 (defun-rcirc-command msg (message)
1699   (if (null message)
1702                                       (with-rcirc-server-buffer
1705           (setq message (read-string (format "Message %s: " target)))
1706           (when (> (length message) 0)
1707             (rcirc-send-message process target message))))
1708     (if (not (string-match "\\([^ ]+\\) \\(.+\\)" message))
1709         (message "Not enough args, or something.")
1710       (setq target (match-string 1 message)
1711             message (match-string 2 message))
1712       (rcirc-send-message process target message))))
1717                                       (with-rcirc-server-buffer rcirc-nick-table))))
1740   "Send a quit message to server with REASON."
1780                                  (with-rcirc-server-buffer rcirc-nick-table))))
1784   "Set mode with ARGS."
1799 (defun-rcirc-command quote (message)
1801   (interactive "sServer message: ")
1802   (rcirc-send-string process message))
1842 ones added to the list automatically are marked with an asterisk."
1891   "Return a copy of STRING with FACE property added."
1937     (with-current-buffer (window-buffer (posn-window position))
1957   "Return TEXT with properties added based on various patterns."
1959     (with-temp-buffer
1991   (with-syntax-table rcirc-nick-syntax-table
1997 		      'rcirc-nick-in-message)
1999 	(rcirc-add-face (point-min) (point-max) 'rcirc-nick-in-message-full-line)
2011 	(with-current-buffer channel-buffer
2015   (let* ((target (with-current-buffer channel-buffer (or rcirc-target "")))
2030     (with-syntax-table rcirc-nick-syntax-table
2037 ;; these are called with the server PROCESS, the SENDER, which is a
2044   (with-rcirc-process-buffer process
2057         (message (or (cadr args) "")))
2058     (if (string-match "^\C-a\\(.*\\)\C-a$" message)
2059         (rcirc-handler-CTCP process target sender (match-string 1 message))
2060       (rcirc-print process sender "PRIVMSG" target message t))
2067         (message (cadr args)))
2068     (if (string-match "^\C-a\\(.*\\)\C-a$" message)
2070 				     (match-string 1 message))
2075 			 ((string-match "\\[\\(#[^\] ]+\\)\\]" message)
2076 			  (match-string 1 message))
2081                  message t))))
2111 	(with-current-buffer buffer
2117 	 (message (concat channel " " reason)))
2118     (rcirc-print process sender "PART" channel message)
2121       (rcirc-print process sender "PART" sender message))
2129 	 (message (concat nick " " channel " " reason)))
2130     (rcirc-print process sender "KICK" channel message t)
2133       (rcirc-print process sender "KICK" nick message))
2158     ;; print message to nick's channels
2164 	(with-current-buffer chat-buffer
2169     (with-rcirc-process-buffer process
2190     (with-current-buffer (rcirc-get-buffer process (car args))
2198 	 (away-message (caddr args)))
2200 	      (not (string= (cdr rec) away-message)))
2201       ;; away message has changed
2204 	  (setcdr rec away-message)
2205 	(setq rcirc-nick-away-alist (cons (cons nick away-message)
2211 		    (rcirc-get-temp-buffer-create process (cadr args)))))
2212     (with-current-buffer buffer
2218 		    (rcirc-get-temp-buffer-create process (cadr args)))))
2219     (with-current-buffer buffer
2246 (defun rcirc-get-temp-buffer-create (process channel)
2257     (with-current-buffer (rcirc-get-temp-buffer-create process channel)
2264          (buffer (rcirc-get-temp-buffer-create process channel)))
2265     (with-current-buffer buffer
2274     (with-rcirc-process-buffer process
2278   "Send authentication to process associated with current buffer.
2281   (with-rcirc-server-buffer
2307 		 (message "No %S authentication method defined"
2344 (defun rcirc-handler-CTCP-response (process target sender message)
2345   (rcirc-print process sender "CTCP" nil message t))
2433 (defface rcirc-nick-in-message		; font-lock-keyword-face
2445 (defface rcirc-nick-in-message-full-line
2447   "The face used emphasize the entire message when your nick is mentioned."