annotate lisp/net/rcirc.el @ 96849:d049ef97c446

* print.c (print_object): Check print_depth before searching for circularities.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 21 Jul 2008 05:02:31 +0000
parents 3dc335bd8a91
children a9dc0e7c3f2b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 ;;; rcirc.el --- default, simple IRC client.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
79714
6888fd3398e8 Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78230
diff changeset
3 ;; Copyright (C) 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 ;; Author: Ryan Yeske
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 ;; URL: http://www.nongnu.org/rcirc
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 ;; Keywords: comm
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8
66272
79d2a5d86ee4 Now part of GNU Emacs. Update FSF's address.
Romain Francoise <romain@orebokech.com>
parents: 66258
diff changeset
9 ;; This file is part of GNU Emacs.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
94677
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 92148
diff changeset
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
94677
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 92148
diff changeset
13 ;; the Free Software Foundation, either version 3 of the License, or
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 92148
diff changeset
14 ;; (at your option) any later version.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
94677
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 92148
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
94677
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 92148
diff changeset
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 ;;; Commentary:
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
26 ;; Internet Relay Chat (IRC) is a form of instant communication over
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
27 ;; the Internet. It is mainly designed for group (many-to-many)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
28 ;; communication in discussion forums called channels, but also allows
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
29 ;; one-to-one communication.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30
96376
c3309dba6542 American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 94677
diff changeset
31 ;; Rcirc has simple defaults and clear and consistent behavior.
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
32 ;; Message arrival timestamps, activity notification on the modeline,
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
33 ;; message filling, nick completion, and keepalive pings are all
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
34 ;; enabled by default, but can easily be adjusted or turned off. Each
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
35 ;; discussion takes place in its own buffer and there is a single
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
36 ;; server buffer per connection.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 ;; Open a new irc connection with:
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 ;; M-x irc RET
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
41 ;;; Todo:
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
42
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 ;;; Code:
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 (require 'ring)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 (require 'time-date)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 (eval-when-compile (require 'cl))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
49 (defgroup rcirc nil
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
50 "Simple IRC client."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
51 :version "22.1"
68960
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
52 :prefix "rcirc-"
69461
1527bb09ec30 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-156
Miles Bader <miles@gnu.org>
parents: 69460
diff changeset
53 :link '(custom-manual "(rcirc)")
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
54 :group 'applications)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
56 (defcustom rcirc-server-alist
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
57 '(("irc.freenode.net" :channels ("#rcirc")))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
58 "An alist of IRC connections to establish when running `rcirc'.
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
59 Each element looks like (SERVER-NAME PARAMETERS).
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
60
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
61 SERVER-NAME is a string describing the server to connect
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
62 to.
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
63
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
64 The optional PARAMETERS come in pairs PARAMETER VALUE.
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
65
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
66 The following parameters are recognized:
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
67
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
68 `:nick'
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
69
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
70 VALUE must be a string. If absent, `rcirc-default-nick' is used
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
71 for this connection.
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
72
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
73 `:port'
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
74
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
75 VALUE must be a number or string. If absent,
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
76 `rcirc-default-port' is used.
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
77
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
78 `:user-name'
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
79
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
80 VALUE must be a string. If absent, `rcirc-default-user-name' is
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
81 used.
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
82
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
83 `:full-name'
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
84
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
85 VALUE must be a string. If absent, `rcirc-default-full-name' is
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
86 used.
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
87
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
88 `:channels'
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
89
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
90 VALUE must be a list of strings describing which channels to join
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
91 when connecting to this server. If absent, no channels will be
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
92 connected to automatically."
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
93 :type '(alist :key-type string
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
94 :value-type (plist :options ((:nick string)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
95 (:port integer)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
96 (:user-name string)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
97 (:full-name string)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
98 (:channels (repeat string)))))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
99 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
101 (defcustom rcirc-default-port 6667
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
102 "The default port to connect to."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
103 :type 'integer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
104 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
106 (defcustom rcirc-default-nick (user-login-name)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
107 "Your nick."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
108 :type 'string
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
109 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
111 (defcustom rcirc-default-user-name (user-login-name)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
112 "Your user name sent to the server when connecting."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
113 :type 'string
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
114 :group 'rcirc)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
115
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
116 (defcustom rcirc-default-full-name (if (string= (user-full-name) "")
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
117 rcirc-default-user-name
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
118 (user-full-name))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
119 "The full name sent to the server when connecting."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
120 :type 'string
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
121 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
123 (defcustom rcirc-fill-flag t
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
124 "*Non-nil means line-wrap messages printed in channel buffers."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
125 :type 'boolean
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
126 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
128 (defcustom rcirc-fill-column nil
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
129 "*Column beyond which automatic line-wrapping should happen.
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
130 If nil, use value of `fill-column'. If 'frame-width, use the
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
131 maximum frame width."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
132 :type '(choice (const :tag "Value of `fill-column'")
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
133 (const :tag "Full frame width" frame-width)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
134 (integer :tag "Number of columns"))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
135 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
137 (defcustom rcirc-fill-prefix nil
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 "*Text to insert before filled lines.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139 If nil, calculate the prefix dynamically to line up text
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
140 underneath each nick."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
141 :type '(choice (const :tag "Dynamic" nil)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
142 (string :tag "Prefix text"))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
143 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
145 (defvar rcirc-ignore-buffer-activity-flag nil
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
146 "If non-nil, ignore activity in this buffer.")
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
147 (make-variable-buffer-local 'rcirc-ignore-buffer-activity-flag)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
149 (defvar rcirc-low-priority-flag nil
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
150 "If non-nil, activity in this buffer is considered low priority.")
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
151 (make-variable-buffer-local 'rcirc-low-priority-flag)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
152
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
153 (defvar rcirc-omit-mode nil
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
154 "Non-nil if Rcirc-Omit mode is enabled.
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
155 Use the command `rcirc-omit-mode' to change this variable.")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
156 (make-variable-buffer-local 'rcirc-omit-mode)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
157
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
158 (defcustom rcirc-time-format "%H:%M "
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 "*Describes how timestamps are printed.
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
160 Used as the first arg to `format-time-string'."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
161 :type 'string
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
162 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
164 (defcustom rcirc-input-ring-size 1024
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
165 "*Size of input history ring."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
166 :type 'integer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
167 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
169 (defcustom rcirc-read-only-flag t
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
170 "*Non-nil means make text in IRC buffers read-only."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
171 :type 'boolean
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
172 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
174 (defcustom rcirc-buffer-maximum-lines nil
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 "*The maximum size in lines for rcirc buffers.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176 Channel buffers are truncated from the top to be no greater than this
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
177 number. If zero or nil, no truncating is done."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
178 :type '(choice (const :tag "No truncation" nil)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
179 (integer :tag "Number of lines"))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
180 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181
72836
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
182 (defcustom rcirc-scroll-show-maximum-output t
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
183 "*If non-nil, scroll buffer to keep the point at the bottom of
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
184 the window."
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
185 :type 'boolean
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
186 :group 'rcirc)
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
187
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
188 (defcustom rcirc-authinfo nil
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
189 "List of authentication passwords.
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
190 Each element of the list is a list with a SERVER-REGEXP string
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
191 and a method symbol followed by method specific arguments.
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
192
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
193 The valid METHOD symbols are `nickserv', `chanserv' and
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
194 `bitlbee'.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
195
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196 The required ARGUMENTS for each METHOD symbol are:
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
197 `nickserv': NICK PASSWORD
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
198 `chanserv': NICK CHANNEL PASSWORD
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
199 `bitlbee': NICK PASSWORD
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
201 Example:
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
202 ((\"freenode\" nickserv \"bob\" \"p455w0rd\")
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
203 (\"freenode\" chanserv \"bob\" \"#bobland\" \"passwd99\")
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
204 (\"bitlbee\" bitlbee \"robert\" \"sekrit\"))"
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
205 :type '(alist :key-type (string :tag "Server")
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
206 :value-type (choice (list :tag "NickServ"
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
207 (const nickserv)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
208 (string :tag "Nick")
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
209 (string :tag "Password"))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
210 (list :tag "ChanServ"
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
211 (const chanserv)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
212 (string :tag "Nick")
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
213 (string :tag "Channel")
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
214 (string :tag "Password"))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
215 (list :tag "BitlBee"
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
216 (const bitlbee)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
217 (string :tag "Nick")
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
218 (string :tag "Password"))))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
219 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
221 (defcustom rcirc-auto-authenticate-flag t
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
222 "*Non-nil means automatically send authentication string to server.
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
223 See also `rcirc-authinfo'."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
224 :type 'boolean
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
225 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
226
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
227 (defcustom rcirc-prompt "> "
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
228 "Prompt string to use in IRC buffers.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230 The following replacements are made:
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
231 %n is your nick.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
232 %s is the server.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
233 %t is the buffer target, a channel or a user.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
234
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
235 Setting this alone will not affect the prompt;
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
236 use either M-x customize or also call `rcirc-update-prompt'."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
237 :type 'string
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
238 :set 'rcirc-set-changed
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
239 :initialize 'custom-initialize-default
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
240 :group 'rcirc)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
241
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
242 (defcustom rcirc-keywords nil
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
243 "List of keywords to highlight in message text."
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
244 :type '(repeat string)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
245 :group 'rcirc)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
246
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
247 (defcustom rcirc-ignore-list ()
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
248 "List of ignored nicks.
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
249 Use /ignore to list them, use /ignore NICK to add or remove a nick."
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
250 :type '(repeat string)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
251 :group 'rcirc)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
252
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
253 (defvar rcirc-ignore-list-automatic ()
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
254 "List of ignored nicks added to `rcirc-ignore-list' because of renaming.
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
255 When an ignored person renames, their nick is added to both lists.
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
256 Nicks will be removed from the automatic list on follow-up renamings or
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
257 parts.")
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
258
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
259 (defcustom rcirc-bright-nicks nil
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
260 "List of nicks to be emphasized.
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
261 See `rcirc-bright-nick' face."
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
262 :type '(repeat string)
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
263 :group 'rcirc)
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
264
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
265 (defcustom rcirc-dim-nicks nil
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
266 "List of nicks to be deemphasized.
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
267 See `rcirc-dim-nick' face."
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
268 :type '(repeat string)
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
269 :group 'rcirc)
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
270
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
271 (defcustom rcirc-print-hooks nil
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
272 "Hook run after text is printed.
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
273 Called with 5 arguments, PROCESS, SENDER, RESPONSE, TARGET and TEXT."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
274 :type 'hook
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
275 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
277 (defcustom rcirc-always-use-server-buffer-flag nil
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
278 "Non-nil means messages without a channel target will go to the server buffer."
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
279 :type 'boolean
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
280 :group 'rcirc)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
281
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
282 (defcustom rcirc-decode-coding-system 'utf-8
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
283 "Coding system used to decode incoming irc messages."
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
284 :type 'coding-system
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
285 :group 'rcirc)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
286
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
287 (defcustom rcirc-encode-coding-system 'utf-8
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
288 "Coding system used to encode outgoing irc messages."
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
289 :type 'coding-system
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
290 :group 'rcirc)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
291
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
292 (defcustom rcirc-coding-system-alist nil
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
293 "Alist to decide a coding system to use for a channel I/O operation.
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
294 The format is ((PATTERN . VAL) ...).
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
295 PATTERN is either a string or a cons of strings.
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
296 If PATTERN is a string, it is used to match a target.
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
297 If PATTERN is a cons of strings, the car part is used to match a
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
298 target, and the cdr part is used to match a server.
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
299 VAL is either a coding system or a cons of coding systems.
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
300 If VAL is a coding system, it is used for both decoding and encoding
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
301 messages.
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
302 If VAL is a cons of coding systems, the car part is used for decoding,
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
303 and the cdr part is used for encoding."
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
304 :type '(alist :key-type (choice (string :tag "Channel Regexp")
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
305 (cons (string :tag "Channel Regexp")
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
306 (string :tag "Server Regexp")))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
307 :value-type (choice coding-system
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
308 (cons (coding-system :tag "Decode")
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
309 (coding-system :tag "Encode"))))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
310 :group 'rcirc)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
311
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
312 (defcustom rcirc-multiline-major-mode 'fundamental-mode
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
313 "Major-mode function to use in multiline edit buffers."
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
314 :type 'function
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
315 :group 'rcirc)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
316
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
317 (defvar rcirc-nick nil)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
318
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 (defvar rcirc-prompt-start-marker nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320 (defvar rcirc-prompt-end-marker nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
322 (defvar rcirc-nick-table nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
323
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
324 (defvar rcirc-recent-quit-alist nil
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
325 "Alist of nicks that have recently quit or parted the channel.")
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
326
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
327 (defvar rcirc-nick-syntax-table
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
328 (let ((table (make-syntax-table text-mode-syntax-table)))
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
329 (mapc (lambda (c) (modify-syntax-entry c "w" table))
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
330 "[]\\`_^{|}-")
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
331 (modify-syntax-entry ?' "_" table)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
332 table)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
333 "Syntax table which includes all nick characters as word constituents.")
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
334
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
335 ;; each process has an alist of (target . buffer) pairs
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
336 (defvar rcirc-buffer-alist nil)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
337
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
338 (defvar rcirc-activity nil
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
339 "List of buffers with unviewed activity.")
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
340
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
341 (defvar rcirc-activity-string ""
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
342 "String displayed in modeline representing `rcirc-activity'.")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
343 (put 'rcirc-activity-string 'risky-local-variable t)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
344
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
345 (defvar rcirc-server-buffer nil
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
346 "The server buffer associated with this channel buffer.")
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
348 (defvar rcirc-target nil
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
349 "The channel or user associated with this buffer.")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
350
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
351 (defvar rcirc-urls nil
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
352 "List of urls seen in the current buffer.")
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
353 (put 'rcirc-urls 'permanent-local t)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
354
77649
2abad7431284 (rcirc-timeout-seconds): Increase to prevent unwanted disconnections.
Richard M. Stallman <rms@gnu.org>
parents: 76444
diff changeset
355 (defvar rcirc-timeout-seconds 600
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
356 "Kill connection after this many seconds if there is no activity.")
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
357
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
358 (defconst rcirc-id-string (concat "rcirc on GNU Emacs " emacs-version))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
359
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
360 (defvar rcirc-startup-channels nil)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
361
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
362 ;;;###autoload
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
363 (defun rcirc (arg)
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
364 "Connect to all servers in `rcirc-server-alist'.
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
365
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
366 Do not connect to a server if it is already connected.
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
367
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
368 If ARG is non-nil, instead prompt for connection parameters."
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
369 (interactive "P")
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
370 (if arg
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
371 (let* ((server (completing-read "IRC Server: "
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
372 rcirc-server-alist
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
373 nil nil
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
374 (caar rcirc-server-alist)))
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
375 (server-plist (cdr (assoc-string server rcirc-server-alist)))
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
376 (port (read-string "IRC Port: "
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
377 (number-to-string
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
378 (or (plist-get server-plist 'port)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
379 rcirc-default-port))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
380 (nick (read-string "IRC Nick: "
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
381 (or (plist-get server-plist 'nick)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
382 rcirc-default-nick)))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
383 (channels (split-string
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
384 (read-string "IRC Channels: "
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
385 (mapconcat 'identity
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
386 (plist-get server-plist
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
387 'channels)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
388 " "))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
389 "[, ]+" t)))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
390 (rcirc-connect server port nick rcirc-default-user-name
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
391 rcirc-default-full-name
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
392 channels))
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
393 ;; connect to servers in `rcirc-server-alist'
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
394 (let (connected-servers)
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
395 (dolist (c rcirc-server-alist)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
396 (let ((server (car c))
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
397 (nick (or (plist-get (cdr c) :nick) rcirc-default-nick))
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
398 (port (or (plist-get (cdr c) :port) rcirc-default-port))
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
399 (user-name (or (plist-get (cdr c) :user-name)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
400 rcirc-default-user-name))
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
401 (full-name (or (plist-get (cdr c) :full-name)
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
402 rcirc-default-full-name))
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
403 (channels (plist-get (cdr c) :channels)))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
404 (when server
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
405 (let (connected)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
406 (dolist (p (rcirc-process-list))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
407 (when (string= server (process-name p))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
408 (setq connected p)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
409 (if (not connected)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
410 (condition-case e
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
411 (rcirc-connect server port nick user-name
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
412 full-name channels)
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
413 (quit (message "Quit connecting to %s" server)))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
414 (with-current-buffer (process-buffer connected)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
415 (setq connected-servers
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
416 (cons (process-contact (get-buffer-process
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
417 (current-buffer)) :host)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
418 connected-servers))))))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
419 (when connected-servers
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
420 (message "Already connected to %s"
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
421 (if (cdr connected-servers)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
422 (concat (mapconcat 'identity (butlast connected-servers) ", ")
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
423 ", and "
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
424 (car (last connected-servers)))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
425 (car connected-servers)))))))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
426
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
427 ;;;###autoload
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
428 (defalias 'irc 'rcirc)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
429
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
430
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
431 (defvar rcirc-process-output nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
432 (defvar rcirc-topic nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
433 (defvar rcirc-keepalive-timer nil)
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
434 (defvar rcirc-last-server-message-time nil)
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
435 (defvar rcirc-server nil) ; server provided by server
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
436 (defvar rcirc-server-name nil) ; server name given by 001 response
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
437 (defvar rcirc-timeout-timer nil)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
438 (defvar rcirc-user-disconnect nil)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
439 (defvar rcirc-connecting nil)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
440 (defvar rcirc-process nil)
69694
f712cf2b3ceb (rcirc-connect): Add autoload cookie.
Romain Francoise <romain@orebokech.com>
parents: 69461
diff changeset
441
f712cf2b3ceb (rcirc-connect): Add autoload cookie.
Romain Francoise <romain@orebokech.com>
parents: 69461
diff changeset
442 ;;;###autoload
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
443 (defun rcirc-connect (server &optional port nick user-name full-name
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
444 startup-channels)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
445 (save-excursion
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446 (message "Connecting to %s..." server)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
447 (let* ((inhibit-eol-conversion)
68960
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
448 (port-number (if port
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
449 (if (stringp port)
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
450 (string-to-number port)
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
451 port)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
452 rcirc-default-port))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
453 (nick (or nick rcirc-default-nick))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
454 (user-name (or user-name rcirc-default-user-name))
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
455 (full-name (or full-name rcirc-default-full-name))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
456 (startup-channels startup-channels)
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
457 (process (make-network-process :name server :host server :service port-number)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
458 ;; set up process
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
459 (set-process-coding-system process 'raw-text 'raw-text)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
460 (switch-to-buffer (rcirc-generate-new-buffer-name process nil))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
461 (set-process-buffer process (current-buffer))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
462 (rcirc-mode process nil)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
463 (set-process-sentinel process 'rcirc-sentinel)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
464 (set-process-filter process 'rcirc-filter)
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
465 (make-local-variable 'rcirc-process)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
466 (setq rcirc-process process)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
467 (make-local-variable 'rcirc-server)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
468 (setq rcirc-server server)
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
469 (make-local-variable 'rcirc-server-name)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
470 (setq rcirc-server-name server) ; update when we get 001 response
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
471 (make-local-variable 'rcirc-buffer-alist)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
472 (setq rcirc-buffer-alist nil)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473 (make-local-variable 'rcirc-nick-table)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 (setq rcirc-nick-table (make-hash-table :test 'equal))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475 (make-local-variable 'rcirc-nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476 (setq rcirc-nick nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 (make-local-variable 'rcirc-process-output)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478 (setq rcirc-process-output nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
479 (make-local-variable 'rcirc-startup-channels)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
480 (setq rcirc-startup-channels startup-channels)
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
481 (make-local-variable 'rcirc-last-server-message-time)
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
482 (setq rcirc-last-server-message-time (current-time))
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
483 (make-local-variable 'rcirc-timeout-timer)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
484 (setq rcirc-timeout-timer nil)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
485 (make-local-variable 'rcirc-user-disconnect)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
486 (setq rcirc-user-disconnect nil)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
487 (make-local-variable 'rcirc-connecting)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
488 (setq rcirc-connecting t)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
489
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
490 (add-hook 'auto-save-hook 'rcirc-log-write)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
491
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
492 ;; identify
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493 (rcirc-send-string process (concat "NICK " nick))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
494 (rcirc-send-string process (concat "USER " user-name
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
495 " hostname servername :"
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
496 full-name))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
498 ;; setup ping timer if necessary
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
499 (unless rcirc-keepalive-timer
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
500 (setq rcirc-keepalive-timer
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
501 (run-at-time 0 (/ rcirc-timeout-seconds 2) 'rcirc-keepalive)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503 (message "Connecting to %s...done" server)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 ;; return process object
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
506 process)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
508 (defmacro with-rcirc-process-buffer (process &rest body)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
509 (declare (indent 1) (debug t))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
510 `(with-current-buffer (process-buffer ,process)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
511 ,@body))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
512
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
513 (defmacro with-rcirc-server-buffer (&rest body)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
514 (declare (indent 0) (debug t))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
515 `(with-current-buffer rcirc-server-buffer
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
516 ,@body))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
517
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518 (defun rcirc-keepalive ()
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
519 "Send keep alive pings to active rcirc processes.
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
520 Kill processes that have not received a server message since the
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
521 last ping."
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522 (if (rcirc-process-list)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 (mapc (lambda (process)
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
524 (with-rcirc-process-buffer process
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
525 (when (not rcirc-connecting)
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
526 (rcirc-send-string process
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
527 (format "PRIVMSG %s :\C-aKEEPALIVE %f\C-a"
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
528 rcirc-nick
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
529 (time-to-seconds
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
530 (current-time)))))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 (rcirc-process-list))
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
532 ;; no processes, clean up timer
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533 (cancel-timer rcirc-keepalive-timer)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534 (setq rcirc-keepalive-timer nil)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
536 (defun rcirc-handler-ctcp-KEEPALIVE (process target sender message)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
537 (with-rcirc-process-buffer process
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
538 (setq header-line-format (format "%f" (- (time-to-seconds (current-time))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
539 (string-to-number message))))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
540
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
541 (defvar rcirc-debug-buffer " *rcirc debug*")
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
542 (defvar rcirc-debug-flag nil
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
543 "If non-nil, write information to `rcirc-debug-buffer'.")
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
544 (defun rcirc-debug (process text)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545 "Add an entry to the debug log including PROCESS and TEXT.
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
546 Debug text is written to `rcirc-debug-buffer' if `rcirc-debug-flag'
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
547 is non-nil."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
548 (when rcirc-debug-flag
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549 (save-excursion
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
550 (set-buffer (get-buffer-create rcirc-debug-buffer))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
551 (goto-char (point-max))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
552 (insert (concat
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
553 "["
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
554 (format-time-string "%Y-%m-%dT%T ") (process-name process)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
555 "] "
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
556 text)))))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
557
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
558 (defvar rcirc-sentinel-hooks nil
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
559 "Hook functions called when the process sentinel is called.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
560 Functions are called with PROCESS and SENTINEL arguments.")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
561
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
562 (defun rcirc-sentinel (process sentinel)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
563 "Called when PROCESS receives SENTINEL."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
564 (let ((sentinel (replace-regexp-in-string "\n" "" sentinel)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
565 (rcirc-debug process (format "SENTINEL: %S %S\n" process sentinel))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
566 (with-rcirc-process-buffer process
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
567 (dolist (buffer (cons nil (mapcar 'cdr rcirc-buffer-alist)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
568 (with-current-buffer (or buffer (current-buffer))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
569 (rcirc-print process "rcirc.el" "ERROR" rcirc-target
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
570 (format "%s: %s (%S)"
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
571 (process-name process)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
572 sentinel
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
573 (process-status process)) (not rcirc-target))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
574 (rcirc-disconnect-buffer)))
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
575 (run-hook-with-args 'rcirc-sentinel-hooks process sentinel))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
576
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
577 (defun rcirc-disconnect-buffer (&optional buffer)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
578 (with-current-buffer (or buffer (current-buffer))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
579 ;; set rcirc-target to nil for each channel so cleanup
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
580 ;; doesnt happen when we reconnect
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
581 (setq rcirc-target nil)
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
582 (setq mode-line-process ":disconnected")))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
583
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 (defun rcirc-process-list ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585 "Return a list of rcirc processes."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 (let (ps)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587 (mapc (lambda (p)
71442
00a28b680b71 (rcirc-default-user-full-name): Default to `rcirc-default-user-name' instead
Eli Zaretskii <eliz@gnu.org>
parents: 71440
diff changeset
588 (when (buffer-live-p (process-buffer p))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
589 (with-rcirc-process-buffer p
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590 (when (eq major-mode 'rcirc-mode)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
591 (setq ps (cons p ps))))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
592 (process-list))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
593 ps))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
594
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
595 (defvar rcirc-receive-message-hooks nil
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
596 "Hook functions run when a message is received from server.
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
597 Function is called with PROCESS, COMMAND, SENDER, ARGS and LINE.")
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
598 (defun rcirc-filter (process output)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
599 "Called when PROCESS receives OUTPUT."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
600 (rcirc-debug process output)
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
601 (rcirc-reschedule-timeout process)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
602 (with-rcirc-process-buffer process
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
603 (setq rcirc-last-server-message-time (current-time))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
604 (setq rcirc-process-output (concat rcirc-process-output output))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605 (when (= (aref rcirc-process-output
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
606 (1- (length rcirc-process-output))) ?\n)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
607 (mapc (lambda (line)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
608 (rcirc-process-server-response process line))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
609 (split-string rcirc-process-output "[\n\r]" t))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
610 (setq rcirc-process-output nil))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
611
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
612 (defun rcirc-reschedule-timeout (process)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
613 (with-rcirc-process-buffer process
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
614 (when (not rcirc-connecting)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
615 (with-rcirc-process-buffer process
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
616 (when rcirc-timeout-timer (cancel-timer rcirc-timeout-timer))
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
617 (setq rcirc-timeout-timer (run-at-time rcirc-timeout-seconds nil
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
618 'rcirc-delete-process
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
619 process))))))
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
620
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
621 (defun rcirc-delete-process (process)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
622 (delete-process process))
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
623
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
624 (defvar rcirc-trap-errors-flag t)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
625 (defun rcirc-process-server-response (process text)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
626 (if rcirc-trap-errors-flag
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
627 (condition-case err
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
628 (rcirc-process-server-response-1 process text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
629 (error
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
630 (rcirc-print process "RCIRC" "ERROR" nil
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
631 (format "\"%s\" %s" text err) t)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
632 (rcirc-process-server-response-1 process text)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
633
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634 (defun rcirc-process-server-response-1 (process text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
635 (if (string-match "^\\(:\\([^ ]+\\) \\)?\\([^ ]+\\) \\(.+\\)$" text)
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
636 (let* ((user (match-string 2 text))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
637 (sender (rcirc-user-nick user))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
638 (cmd (match-string 3 text))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
639 (args (match-string 4 text))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
640 (handler (intern-soft (concat "rcirc-handler-" cmd))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
641 (string-match "^\\([^:]*\\):?\\(.+\\)?$" args)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
642 (let* ((args1 (match-string 1 args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
643 (args2 (match-string 2 args))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
644 (args (delq nil (append (split-string args1 " " t)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
645 (list args2)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
646 (if (not (fboundp handler))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
647 (rcirc-handler-generic process cmd sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
648 (funcall handler process sender args text))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
649 (run-hook-with-args 'rcirc-receive-message-hooks
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
650 process cmd sender args text)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
651 (message "UNHANDLED: %s" text)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
652
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
653 (defvar rcirc-responses-no-activity '("305" "306")
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
654 "Responses that don't trigger activity in the mode-line indicator.")
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
655
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
656 (defun rcirc-handler-generic (process response sender args text)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657 "Generic server response handler."
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
658 (rcirc-print process sender response nil
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
659 (mapconcat 'identity (cdr args) " ")
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
660 (not (member response rcirc-responses-no-activity))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
661
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
662 (defun rcirc-send-string (process string)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
663 "Send PROCESS a STRING plus a newline."
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
664 (let ((string (concat (encode-coding-string string rcirc-encode-coding-system)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
665 "\n")))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
666 (unless (eq (process-status process) 'open)
68077
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
667 (error "Network connection to %s is not open"
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
668 (process-name process)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
669 (rcirc-debug process string)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
670 (process-send-string process string)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
671
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
672 (defun rcirc-buffer-process (&optional buffer)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
673 "Return the process associated with channel BUFFER.
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
674 With no argument or nil as argument, use the current buffer."
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
675 (or (get-buffer-process (if buffer
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
676 (with-current-buffer buffer
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
677 rcirc-server-buffer)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
678 rcirc-server-buffer))
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
679 rcirc-process))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
680
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
681 (defun rcirc-server-name (process)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
682 "Return PROCESS server name, given by the 001 response."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
683 (with-rcirc-process-buffer process
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
684 (or rcirc-server-name
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
685 (warn "server name for process %S unknown" process))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
686
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
687 (defun rcirc-nick (process)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
688 "Return PROCESS nick."
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
689 (with-rcirc-process-buffer process
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
690 (or rcirc-nick rcirc-default-nick)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
691
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
692 (defun rcirc-buffer-nick (&optional buffer)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
693 "Return the nick associated with BUFFER.
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
694 With no argument or nil as argument, use the current buffer."
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
695 (with-current-buffer (or buffer (current-buffer))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
696 (with-current-buffer rcirc-server-buffer
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
697 (or rcirc-nick rcirc-default-nick))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
698
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
699 (defvar rcirc-max-message-length 420
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
700 "Messages longer than this value will be split.")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
701
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
702 (defun rcirc-send-message (process target message &optional noticep silent)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
703 "Send TARGET associated with PROCESS a privmsg with text MESSAGE.
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
704 If NOTICEP is non-nil, send a notice instead of privmsg.
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
705 If SILENT is non-nil, do not print the message in any irc buffer."
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
706 ;; max message length is 512 including CRLF
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
707 (let* ((response (if noticep "NOTICE" "PRIVMSG"))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
708 (oversize (> (length message) rcirc-max-message-length))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
709 (text (if oversize
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
710 (substring message 0 rcirc-max-message-length)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
711 message))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
712 (text (if (string= text "")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
713 " "
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
714 text))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
715 (more (if oversize
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
716 (substring message rcirc-max-message-length))))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
717 (rcirc-get-buffer-create process target)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
718 (rcirc-send-string process (concat response " " target " :" text))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
719 (unless silent
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
720 (rcirc-print process (rcirc-nick process) response target text))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
721 (when more (rcirc-send-message process target more noticep))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
722
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
723 (defvar rcirc-input-ring nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
724 (defvar rcirc-input-ring-index 0)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
725 (defun rcirc-prev-input-string (arg)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
726 (ring-ref rcirc-input-ring (+ rcirc-input-ring-index arg)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
727
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
728 (defun rcirc-insert-prev-input (arg)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
729 (interactive "p")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
730 (when (<= rcirc-prompt-end-marker (point))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
731 (delete-region rcirc-prompt-end-marker (point-max))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
732 (insert (rcirc-prev-input-string 0))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
733 (setq rcirc-input-ring-index (1+ rcirc-input-ring-index))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
734
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
735 (defun rcirc-insert-next-input (arg)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
736 (interactive "p")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
737 (when (<= rcirc-prompt-end-marker (point))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
738 (delete-region rcirc-prompt-end-marker (point-max))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
739 (setq rcirc-input-ring-index (1- rcirc-input-ring-index))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
740 (insert (rcirc-prev-input-string -1))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
741
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
742 (defvar rcirc-nick-completions nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
743 (defvar rcirc-nick-completion-start-offset nil)
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
744
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
745 (defun rcirc-complete-nick ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
746 "Cycle through nick completions from list of nicks in channel."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
747 (interactive)
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
748 (if (eq last-command this-command)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
749 (setq rcirc-nick-completions
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
750 (append (cdr rcirc-nick-completions)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
751 (list (car rcirc-nick-completions))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
752 (setq rcirc-nick-completion-start-offset
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
753 (- (save-excursion
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
754 (if (re-search-backward " " rcirc-prompt-end-marker t)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
755 (1+ (point))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
756 rcirc-prompt-end-marker))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
757 rcirc-prompt-end-marker))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
758 (setq rcirc-nick-completions
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
759 (let ((completion-ignore-case t))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
760 (all-completions
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
761 (buffer-substring
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
762 (+ rcirc-prompt-end-marker
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
763 rcirc-nick-completion-start-offset)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
764 (point))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
765 (mapcar (lambda (x) (cons x nil))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
766 (rcirc-channel-nicks (rcirc-buffer-process)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
767 rcirc-target))))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
768 (let ((completion (car rcirc-nick-completions)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
769 (when completion
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
770 (delete-region (+ rcirc-prompt-end-marker
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
771 rcirc-nick-completion-start-offset)
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
772 (point))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
773 (insert (concat completion
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
774 (if (= (+ rcirc-prompt-end-marker
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
775 rcirc-nick-completion-start-offset)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
776 rcirc-prompt-end-marker)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
777 ": "))))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
778
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
779 (defun set-rcirc-decode-coding-system (coding-system)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
780 "Set the decode coding system used in this channel."
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
781 (interactive "zCoding system for incoming messages: ")
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
782 (setq rcirc-decode-coding-system coding-system))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
783
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
784 (defun set-rcirc-encode-coding-system (coding-system)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
785 "Set the encode coding system used in this channel."
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
786 (interactive "zCoding system for outgoing messages: ")
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
787 (setq rcirc-encode-coding-system coding-system))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
788
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
789 (defvar rcirc-mode-map (make-sparse-keymap)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
790 "Keymap for rcirc mode.")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
791
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
792 (define-key rcirc-mode-map (kbd "RET") 'rcirc-send-input)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
793 (define-key rcirc-mode-map (kbd "M-p") 'rcirc-insert-prev-input)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
794 (define-key rcirc-mode-map (kbd "M-n") 'rcirc-insert-next-input)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
795 (define-key rcirc-mode-map (kbd "TAB") 'rcirc-complete-nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
796 (define-key rcirc-mode-map (kbd "C-c C-b") 'rcirc-browse-url)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
797 (define-key rcirc-mode-map (kbd "C-c C-c") 'rcirc-edit-multiline)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
798 (define-key rcirc-mode-map (kbd "C-c C-j") 'rcirc-cmd-join)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
799 (define-key rcirc-mode-map (kbd "C-c C-k") 'rcirc-cmd-kick)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
800 (define-key rcirc-mode-map (kbd "C-c C-l") 'rcirc-toggle-low-priority)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
801 (define-key rcirc-mode-map (kbd "C-c C-d") 'rcirc-cmd-mode)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
802 (define-key rcirc-mode-map (kbd "C-c C-m") 'rcirc-cmd-msg)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
803 (define-key rcirc-mode-map (kbd "C-c C-r") 'rcirc-cmd-nick) ; rename
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
804 (define-key rcirc-mode-map (kbd "C-c C-o") 'rcirc-omit-mode)
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
805 (define-key rcirc-mode-map (kbd "M-o") 'rcirc-omit-mode)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
806 (define-key rcirc-mode-map (kbd "C-c C-p") 'rcirc-cmd-part)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
807 (define-key rcirc-mode-map (kbd "C-c C-q") 'rcirc-cmd-query)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
808 (define-key rcirc-mode-map (kbd "C-c C-t") 'rcirc-cmd-topic)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
809 (define-key rcirc-mode-map (kbd "C-c C-n") 'rcirc-cmd-names)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
810 (define-key rcirc-mode-map (kbd "C-c C-w") 'rcirc-cmd-whois)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
811 (define-key rcirc-mode-map (kbd "C-c C-x") 'rcirc-cmd-quit)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
812 (define-key rcirc-mode-map (kbd "C-c TAB") ; C-i
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
813 'rcirc-toggle-ignore-buffer-activity)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
814 (define-key rcirc-mode-map (kbd "C-c C-s") 'rcirc-switch-to-server-buffer)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
815 (define-key rcirc-mode-map (kbd "C-c C-a") 'rcirc-jump-to-first-unread-line)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
816
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
817 (defvar rcirc-browse-url-map (make-sparse-keymap)
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
818 "Keymap used for browsing URLs in `rcirc-mode'.")
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
819
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
820 (define-key rcirc-browse-url-map (kbd "RET") 'rcirc-browse-url-at-point)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
821 (define-key rcirc-browse-url-map (kbd "<mouse-2>") 'rcirc-browse-url-at-mouse)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
822
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
823 (defvar rcirc-short-buffer-name nil
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
824 "Generated abbreviation to use to indicate buffer activity.")
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
825
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
826 (defvar rcirc-mode-hook nil
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
827 "Hook run when setting up rcirc buffer.")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
828
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
829 (defvar rcirc-last-post-time nil)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
830
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
831 (defvar rcirc-log-alist nil
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
832 "Alist of lines to log to disk when `rcirc-log-flag' is non-nil.
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
833 Each element looks like (FILENAME . TEXT).")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
834
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
835 (defvar rcirc-current-line 0
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
836 "The current number of responses printed in this channel.
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
837 This number is independent of the number of lines in the buffer.")
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
838
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
839 (defun rcirc-mode (process target)
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
840 "Major mode for IRC channel buffers.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
841
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
842 \\{rcirc-mode-map}"
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
843 (kill-all-local-variables)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
844 (use-local-map rcirc-mode-map)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
845 (setq mode-name "rcirc")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
846 (setq major-mode 'rcirc-mode)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
847 (setq mode-line-process nil)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
848
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
849 (make-local-variable 'rcirc-input-ring)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
850 (setq rcirc-input-ring (make-ring rcirc-input-ring-size))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
851 (make-local-variable 'rcirc-server-buffer)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
852 (setq rcirc-server-buffer (process-buffer process))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
853 (make-local-variable 'rcirc-target)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
854 (setq rcirc-target target)
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
855 (make-local-variable 'rcirc-topic)
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
856 (setq rcirc-topic nil)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
857 (make-local-variable 'rcirc-last-post-time)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
858 (setq rcirc-last-post-time (current-time))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
859 (make-local-variable 'fill-paragraph-function)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
860 (setq fill-paragraph-function 'rcirc-fill-paragraph)
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
861 (make-local-variable 'rcirc-recent-quit-alist)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
862 (setq rcirc-recent-quit-alist nil)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
863 (make-local-variable 'rcirc-current-line)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
864 (setq rcirc-current-line 0)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
865
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
866 (make-local-variable 'rcirc-short-buffer-name)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
867 (setq rcirc-short-buffer-name nil)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
868 (make-local-variable 'rcirc-urls)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
869 (setq use-hard-newlines t)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
870
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
871 ;; setup for omitting responses
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
872 (setq buffer-invisibility-spec '())
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
873 (setq buffer-display-table (make-display-table))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
874 (set-display-table-slot buffer-display-table 4
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
875 (let ((glyph (make-glyph-code
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
876 ?. 'font-lock-keyword-face)))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
877 (make-vector 3 glyph)))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
878
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
879 (make-local-variable 'rcirc-decode-coding-system)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
880 (make-local-variable 'rcirc-encode-coding-system)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
881 (dolist (i rcirc-coding-system-alist)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
882 (let ((chan (if (consp (car i)) (caar i) (car i)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
883 (serv (if (consp (car i)) (cdar i) "")))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
884 (when (and (string-match chan (or target ""))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
885 (string-match serv (rcirc-server-name process)))
71440
fd07cc034d56 (rcirc-mode): Fix initialization of coding systems based on
Eli Zaretskii <eliz@gnu.org>
parents: 70215
diff changeset
886 (setq rcirc-decode-coding-system (if (consp (cdr i)) (cadr i) (cdr i))
fd07cc034d56 (rcirc-mode): Fix initialization of coding systems based on
Eli Zaretskii <eliz@gnu.org>
parents: 70215
diff changeset
887 rcirc-encode-coding-system (if (consp (cdr i)) (cddr i) (cdr i))))))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
888
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
889 ;; setup the prompt and markers
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
890 (make-local-variable 'rcirc-prompt-start-marker)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
891 (setq rcirc-prompt-start-marker (make-marker))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
892 (set-marker rcirc-prompt-start-marker (point-max))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
893 (make-local-variable 'rcirc-prompt-end-marker)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
894 (setq rcirc-prompt-end-marker (make-marker))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
895 (set-marker rcirc-prompt-end-marker (point-max))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
896 (rcirc-update-prompt)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
897 (goto-char rcirc-prompt-end-marker)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
898 (make-local-variable 'overlay-arrow-position)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
899 (setq overlay-arrow-position (make-marker))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
900 (set-marker overlay-arrow-position nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
901
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
902 ;; if the user changes the major mode or kills the buffer, there is
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
903 ;; cleanup work to do
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
904 (add-hook 'change-major-mode-hook 'rcirc-change-major-mode-hook nil t)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
905 (add-hook 'kill-buffer-hook 'rcirc-kill-buffer-hook nil t)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
906
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
907 ;; add to buffer list, and update buffer abbrevs
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
908 (when target ; skip server buffer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
909 (let ((buffer (current-buffer)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
910 (with-rcirc-process-buffer process
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
911 (setq rcirc-buffer-alist (cons (cons target buffer)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
912 rcirc-buffer-alist))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
913 (rcirc-update-short-buffer-names))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
914
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
915 (run-hooks 'rcirc-mode-hook))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
916
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
917 (defun rcirc-update-prompt (&optional all)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
918 "Reset the prompt string in the current buffer.
66252
684cec8133e3 (with-rcirc-process-buffer): Move above its first user.
Romain Francoise <romain@orebokech.com>
parents: 66250
diff changeset
919
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
920 If ALL is non-nil, update prompts in all IRC buffers."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
921 (if all
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
922 (mapc (lambda (process)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
923 (mapc (lambda (buffer)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
924 (with-current-buffer buffer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
925 (rcirc-update-prompt)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
926 (with-rcirc-process-buffer process
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
927 (mapcar 'cdr rcirc-buffer-alist))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
928 (rcirc-process-list))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
929 (let ((inhibit-read-only t)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
930 (prompt (or rcirc-prompt "")))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
931 (mapc (lambda (rep)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
932 (setq prompt
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
933 (replace-regexp-in-string (car rep) (cdr rep) prompt)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
934 (list (cons "%n" (rcirc-buffer-nick))
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
935 (cons "%s" (with-rcirc-server-buffer rcirc-server-name))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
936 (cons "%t" (or rcirc-target ""))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
937 (save-excursion
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
938 (delete-region rcirc-prompt-start-marker rcirc-prompt-end-marker)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
939 (goto-char rcirc-prompt-start-marker)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
940 (let ((start (point)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
941 (insert-before-markers prompt)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
942 (set-marker rcirc-prompt-start-marker start)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
943 (when (not (zerop (- rcirc-prompt-end-marker
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
944 rcirc-prompt-start-marker)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
945 (add-text-properties rcirc-prompt-start-marker
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
946 rcirc-prompt-end-marker
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
947 (list 'face 'rcirc-prompt
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
948 'read-only t 'field t
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
949 'front-sticky t 'rear-nonsticky t))))))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
950
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
951 (defun rcirc-set-changed (option value)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
952 "Set OPTION to VALUE and do updates after a customization change."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
953 (set-default option value)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
954 (cond ((eq option 'rcirc-prompt)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
955 (rcirc-update-prompt 'all))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
956 (t
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
957 (error "Bad option %s" option))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
958
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
959 (defun rcirc-channel-p (target)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
960 "Return t if TARGET is a channel name."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
961 (and target
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
962 (not (zerop (length target)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
963 (or (eq (aref target 0) ?#)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
964 (eq (aref target 0) ?&))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
965
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
966 (defun rcirc-kill-buffer-hook ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
967 "Part the channel when killing an rcirc buffer."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
968 (when (eq major-mode 'rcirc-mode)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
969 (rcirc-clean-up-buffer "Killed buffer")))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
970
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
971 (defun rcirc-change-major-mode-hook ()
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
972 "Part the channel when changing the major-mode."
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
973 (rcirc-clean-up-buffer "Changed major mode"))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
974
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
975 (defun rcirc-clean-up-buffer (reason)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
976 (let ((buffer (current-buffer)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
977 (rcirc-clear-activity buffer)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
978 (when (and (rcirc-buffer-process)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
979 (eq (process-status (rcirc-buffer-process)) 'open))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
980 (with-rcirc-server-buffer
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
981 (setq rcirc-buffer-alist
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
982 (rassq-delete-all buffer rcirc-buffer-alist)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
983 (rcirc-update-short-buffer-names)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
984 (if (rcirc-channel-p rcirc-target)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
985 (rcirc-send-string (rcirc-buffer-process)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
986 (concat "PART " rcirc-target " :" reason))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
987 (when rcirc-target
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
988 (rcirc-remove-nick-channel (rcirc-buffer-process)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
989 (rcirc-buffer-nick)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
990 rcirc-target))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
991 (setq rcirc-target nil)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
992
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
993 (defun rcirc-generate-new-buffer-name (process target)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
994 "Return a buffer name based on PROCESS and TARGET.
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
995 This is used for the initial name given to IRC buffers."
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
996 (substring-no-properties
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
997 (if target
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
998 (concat target "@" (process-name process))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
999 (concat "*" (process-name process) "*"))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1000
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1001 (defun rcirc-get-buffer (process target &optional server)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1002 "Return the buffer associated with the PROCESS and TARGET.
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1003
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1004 If optional argument SERVER is non-nil, return the server buffer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1005 if there is no existing buffer for TARGET, otherwise return nil."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1006 (with-rcirc-process-buffer process
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1007 (if (null target)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1008 (current-buffer)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1009 (let ((buffer (cdr (assoc-string target rcirc-buffer-alist t))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1010 (or buffer (when server (current-buffer)))))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1011
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1012 (defun rcirc-get-buffer-create (process target)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1013 "Return the buffer associated with the PROCESS and TARGET.
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1014 Create the buffer if it doesn't exist."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1015 (let ((buffer (rcirc-get-buffer process target)))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1016 (if (and buffer (buffer-live-p buffer))
68960
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1017 (with-current-buffer buffer
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1018 (when (not rcirc-target)
68960
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1019 (setq rcirc-target target))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1020 buffer)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1021 ;; create the buffer
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1022 (with-rcirc-process-buffer process
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1023 (let ((new-buffer (get-buffer-create
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1024 (rcirc-generate-new-buffer-name process target))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1025 (with-current-buffer new-buffer
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1026 (rcirc-mode process target)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1027 (rcirc-put-nick-channel process (rcirc-nick process) target
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1028 rcirc-current-line))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1029 new-buffer)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1030
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1031 (defun rcirc-send-input ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1032 "Send input to target associated with the current buffer."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1033 (interactive)
68077
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1034 (if (< (point) rcirc-prompt-end-marker)
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1035 ;; copy the line down to the input area
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1036 (progn
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1037 (forward-line 0)
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1038 (let ((start (if (eq (point) (point-min))
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1039 (point)
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1040 (if (get-text-property (1- (point)) 'hard)
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1041 (point)
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1042 (previous-single-property-change (point) 'hard))))
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1043 (end (next-single-property-change (1+ (point)) 'hard)))
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1044 (goto-char (point-max))
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1045 (insert (replace-regexp-in-string
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1046 "\n\\s-+" " "
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1047 (buffer-substring-no-properties start end)))))
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1048 ;; process input
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1049 (goto-char (point-max))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1050 (when (not (equal 0 (- (point) rcirc-prompt-end-marker)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1051 ;; delete a trailing newline
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1052 (when (eq (point) (point-at-bol))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1053 (delete-backward-char 1))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1054 (let ((input (buffer-substring-no-properties
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1055 rcirc-prompt-end-marker (point))))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1056 (dolist (line (split-string input "\n"))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1057 (rcirc-process-input-line line))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1058 ;; add to input-ring
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1059 (save-excursion
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1060 (ring-insert rcirc-input-ring input)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1061 (setq rcirc-input-ring-index 0))))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1062
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1063 (defun rcirc-fill-paragraph (&optional arg)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1064 (interactive "p")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1065 (when (> (point) rcirc-prompt-end-marker)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1066 (save-restriction
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1067 (narrow-to-region rcirc-prompt-end-marker (point-max))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1068 (let ((fill-column rcirc-max-message-length))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1069 (fill-region (point-min) (point-max))))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1070
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1071 (defun rcirc-process-input-line (line)
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1072 (if (string-match "^/\\([^ ]+\\) ?\\(.*\\)$" line)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1073 (rcirc-process-command (match-string 1 line)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1074 (match-string 2 line)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1075 line)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1076 (rcirc-process-message line)))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1077
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1078 (defun rcirc-process-message (line)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1079 (if (not rcirc-target)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1080 (message "Not joined (no target)")
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1081 (delete-region rcirc-prompt-end-marker (point))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1082 (rcirc-send-message (rcirc-buffer-process) rcirc-target line)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1083 (setq rcirc-last-post-time (current-time))))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1084
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1085 (defun rcirc-process-command (command args line)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1086 (if (eq (aref command 0) ?/)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1087 ;; "//text" will send "/text" as a message
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1088 (rcirc-process-message (substring line 1))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1089 (let ((fun (intern-soft (concat "rcirc-cmd-" command)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1090 (process (rcirc-buffer-process)))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1091 (newline)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1092 (with-current-buffer (current-buffer)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1093 (delete-region rcirc-prompt-end-marker (point))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1094 (if (string= command "me")
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1095 (rcirc-print process (rcirc-buffer-nick)
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1096 "ACTION" rcirc-target args)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1097 (rcirc-print process (rcirc-buffer-nick)
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1098 "COMMAND" rcirc-target line))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1099 (set-marker rcirc-prompt-end-marker (point))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1100 (if (fboundp fun)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1101 (funcall fun args process rcirc-target)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1102 (rcirc-send-string process
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1103 (concat command " :" args)))))))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1104
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1105 (defvar rcirc-parent-buffer nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1106 (defvar rcirc-window-configuration nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1107 (defun rcirc-edit-multiline ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1108 "Move current edit to a dedicated buffer."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1109 (interactive)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1110 (let ((pos (1+ (- (point) rcirc-prompt-end-marker))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1111 (goto-char (point-max))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1112 (let ((text (buffer-substring-no-properties rcirc-prompt-end-marker
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1113 (point)))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1114 (parent (buffer-name)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1115 (delete-region rcirc-prompt-end-marker (point))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1116 (setq rcirc-window-configuration (current-window-configuration))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1117 (pop-to-buffer (concat "*multiline " parent "*"))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1118 (funcall rcirc-multiline-major-mode)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1119 (rcirc-multiline-minor-mode 1)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1120 (setq rcirc-parent-buffer parent)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1121 (insert text)
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1122 (and (> pos 0) (goto-char pos))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1123 (message "Type C-c C-c to return text to %s, or C-c C-k to cancel" parent))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1124
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1125 (defvar rcirc-multiline-minor-mode-map (make-sparse-keymap)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1126 "Keymap for multiline mode in rcirc.")
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
1127 (define-key rcirc-multiline-minor-mode-map
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1128 (kbd "C-c C-c") 'rcirc-multiline-minor-submit)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1129 (define-key rcirc-multiline-minor-mode-map
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1130 (kbd "C-x C-s") 'rcirc-multiline-minor-submit)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1131 (define-key rcirc-multiline-minor-mode-map
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1132 (kbd "C-c C-k") 'rcirc-multiline-minor-cancel)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1133 (define-key rcirc-multiline-minor-mode-map
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1134 (kbd "ESC ESC ESC") 'rcirc-multiline-minor-cancel)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1135
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1136 (define-minor-mode rcirc-multiline-minor-mode
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1137 "Minor mode for editing multiple lines in rcirc."
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1138 :init-value nil
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1139 :lighter " rcirc-mline"
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1140 :keymap rcirc-multiline-minor-mode-map
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1141 :global nil
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1142 :group 'rcirc
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1143 (make-local-variable 'rcirc-parent-buffer)
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
1144 (put 'rcirc-parent-buffer 'permanent-local t)
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
1145 (setq fill-column rcirc-max-message-length))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1146
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1147 (defun rcirc-multiline-minor-submit ()
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1148 "Send the text in buffer back to parent buffer."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1149 (interactive)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1150 (untabify (point-min) (point-max))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1151 (let ((text (buffer-substring (point-min) (point-max)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1152 (buffer (current-buffer))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1153 (pos (point)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1154 (set-buffer rcirc-parent-buffer)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1155 (goto-char (point-max))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1156 (insert text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1157 (kill-buffer buffer)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1158 (set-window-configuration rcirc-window-configuration)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1159 (goto-char (+ rcirc-prompt-end-marker (1- pos)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1160
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1161 (defun rcirc-multiline-minor-cancel ()
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1162 "Cancel the multiline edit."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1163 (interactive)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1164 (kill-buffer (current-buffer))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1165 (set-window-configuration rcirc-window-configuration))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1166
68960
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1167 (defun rcirc-any-buffer (process)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1168 "Return a buffer for PROCESS, either the one selected or the process buffer."
68960
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1169 (if rcirc-always-use-server-buffer-flag
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1170 (process-buffer process)
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1171 (let ((buffer (window-buffer (selected-window))))
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1172 (if (and buffer
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1173 (with-current-buffer buffer
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1174 (and (eq major-mode 'rcirc-mode)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1175 (eq (rcirc-buffer-process) process))))
68960
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1176 buffer
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1177 (process-buffer process)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1178
68807
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1179 (defcustom rcirc-response-formats
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1180 '(("PRIVMSG" . "<%N> %m")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1181 ("NOTICE" . "-%N- %m")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1182 ("ACTION" . "[%N %m]")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1183 ("COMMAND" . "%m")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1184 ("ERROR" . "%fw!!! %m")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1185 (t . "%fp*** %fs%n %r %m"))
68807
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1186 "An alist of formats used for printing responses.
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1187 The format is looked up using the response-type as a key;
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1188 if no match is found, the default entry (with a key of `t') is used.
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1189
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1190 The entry's value part should be a string, which is inserted with
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1191 the of the following escape sequences replaced by the described values:
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1192
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1193 %m The message text
68960
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1194 %n The sender's nick
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1195 %N The sender's nick (with face `rcirc-my-nick' or `rcirc-other-nick')
68807
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1196 %r The response-type
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1197 %t The target
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1198 %fw Following text uses the face `font-lock-warning-face'
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1199 %fp Following text uses the face `rcirc-server-prefix'
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1200 %fs Following text uses the face `rcirc-server'
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1201 %f[FACE] Following text uses the face FACE
68838
6a3bf61d8473 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-79
Miles Bader <miles@gnu.org>
parents: 68807
diff changeset
1202 %f- Following text uses the default face
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1203 %% A literal `%' character"
68807
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1204 :type '(alist :key-type (choice (string :tag "Type")
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1205 (const :tag "Default" t))
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1206 :value-type string)
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1207 :group 'rcirc)
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1208
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1209 (defcustom rcirc-omit-responses
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1210 '("JOIN" "PART" "QUIT" "NICK")
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1211 "Responses which will be hidden when `rcirc-omit-mode' is enabled."
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1212 :type '(repeat string)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1213 :group 'rcirc)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1214
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1215 (defun rcirc-format-response-string (process sender response target text)
68807
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1216 "Return a nicely-formatted response string, incorporating TEXT
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1217 \(and perhaps other arguments). The specific formatting used
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1218 is found by looking up RESPONSE in `rcirc-response-formats'."
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1219 (with-temp-buffer
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1220 (insert (or (cdr (assoc response rcirc-response-formats))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1221 (cdr (assq t rcirc-response-formats))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1222 (goto-char (point-min))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1223 (let ((start (point-min))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1224 (sender (if (or (not sender)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1225 (string= (rcirc-server-name process) sender))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1226 ""
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1227 sender))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1228 face)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1229 (while (re-search-forward "%\\(\\(f\\(.\\)\\)\\|\\(.\\)\\)" nil t)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1230 (rcirc-add-face start (match-beginning 0) face)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1231 (setq start (match-beginning 0))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1232 (replace-match
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1233 (case (aref (match-string 1) 0)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1234 (?f (setq face
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1235 (case (string-to-char (match-string 3))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1236 (?w 'font-lock-warning-face)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1237 (?p 'rcirc-server-prefix)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1238 (?s 'rcirc-server)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1239 (t nil)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1240 "")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1241 (?n sender)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1242 (?N (let ((my-nick (rcirc-nick process)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1243 (save-match-data
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1244 (with-syntax-table rcirc-nick-syntax-table
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1245 (rcirc-facify sender
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1246 (cond ((string= sender my-nick)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1247 'rcirc-my-nick)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1248 ((and rcirc-bright-nicks
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1249 (string-match
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1250 (regexp-opt rcirc-bright-nicks
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1251 'words)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1252 sender))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1253 'rcirc-bright-nick)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1254 ((and rcirc-dim-nicks
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1255 (string-match
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1256 (regexp-opt rcirc-dim-nicks
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1257 'words)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1258 sender))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1259 'rcirc-dim-nick)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1260 (t
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1261 'rcirc-other-nick)))))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1262 (?m (propertize text 'rcirc-text text))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1263 (?r response)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1264 (?t (or target ""))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1265 (t (concat "UNKNOWN CODE:" (match-string 0))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1266 t t nil 0)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1267 (rcirc-add-face (match-beginning 0) (match-end 0) face))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1268 (rcirc-add-face start (match-beginning 0) face))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1269 (buffer-substring (point-min) (point-max))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1270
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1271 (defun rcirc-target-buffer (process sender response target text)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1272 "Return a buffer to print the server response."
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1273 (assert (not (bufferp target)))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1274 (with-rcirc-process-buffer process
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1275 (cond ((not target)
68960
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1276 (rcirc-any-buffer process))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1277 ((not (rcirc-channel-p target))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1278 ;; message from another user
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1279 (if (or (string= response "PRIVMSG")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1280 (string= response "ACTION"))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1281 (rcirc-get-buffer-create process (if (string= sender rcirc-nick)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1282 target
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1283 sender))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1284 (rcirc-get-buffer process target t)))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1285 ((or (rcirc-get-buffer process target)
68960
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1286 (rcirc-any-buffer process))))))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1287
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1288 (defvar rcirc-activity-types nil)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1289 (make-variable-buffer-local 'rcirc-activity-types)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1290 (defvar rcirc-last-sender nil)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1291 (make-variable-buffer-local 'rcirc-last-sender)
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1292
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1293 (defcustom rcirc-log-directory "~/.emacs.d/rcirc-log"
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1294 "Directory to keep IRC logfiles."
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1295 :type 'directory
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1296 :group 'rcirc)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1297
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1298 (defcustom rcirc-log-flag nil
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1299 "Non-nil means log IRC activity to disk.
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1300 Logfiles are kept in `rcirc-log-directory'."
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1301 :type 'boolean
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1302 :group 'rcirc)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1303
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1304 (defcustom rcirc-omit-threshold 100
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1305 "Number of lines since last activity from a nick before `rcirc-omit-responses' are omitted."
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1306 :type 'integer
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1307 :group 'rcirc)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1308
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1309 (defun rcirc-last-quit-line (process nick target)
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1310 "Return the line number where NICK left TARGET.
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1311 Returns nil if the information is not recorded."
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1312 (let ((chanbuf (rcirc-get-buffer process target)))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1313 (when chanbuf
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1314 (cdr (assoc-string nick (with-current-buffer chanbuf
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1315 rcirc-recent-quit-alist))))))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1316
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1317 (defun rcirc-last-line (process nick target)
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1318 "Return the line from the last activity from NICK in TARGET."
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1319 (let* ((chanbuf (rcirc-get-buffer process target))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1320 (line (or (cdr (assoc-string target
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1321 (gethash nick (with-rcirc-server-buffer
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1322 rcirc-nick-table)) t))
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1323 (rcirc-last-quit-line process nick target))))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1324 (if line
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1325 line
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1326 ;;(message "line is nil for %s in %s" nick target)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1327 nil)))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1328
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1329 (defun rcirc-elapsed-lines (process nick target)
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1330 "Return the number of lines since activity from NICK in TARGET."
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1331 (let ((last-activity-line (rcirc-last-line process nick target)))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1332 (when (and last-activity-line
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1333 (> last-activity-line 0))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1334 (- rcirc-current-line last-activity-line))))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1335
85500
0dcd1f3c9909 * textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82140
diff changeset
1336 (defvar rcirc-markup-text-functions
0dcd1f3c9909 * textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82140
diff changeset
1337 '(rcirc-markup-attributes
0dcd1f3c9909 * textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82140
diff changeset
1338 rcirc-markup-my-nick
0dcd1f3c9909 * textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82140
diff changeset
1339 rcirc-markup-urls
0dcd1f3c9909 * textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82140
diff changeset
1340 rcirc-markup-keywords
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1341 rcirc-markup-bright-nicks)
85500
0dcd1f3c9909 * textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82140
diff changeset
1342
0dcd1f3c9909 * textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82140
diff changeset
1343 "List of functions used to manipulate text before it is printed.
0dcd1f3c9909 * textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82140
diff changeset
1344
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1345 Each function takes two arguments, SENDER, and RESPONSE. The
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1346 buffer is narrowed with the text to be printed and the point is
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1347 at the beginning of the `rcirc-text' propertized text.")
85500
0dcd1f3c9909 * textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82140
diff changeset
1348
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1349 (defun rcirc-print (process sender response target text &optional activity)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1350 "Print TEXT in the buffer associated with TARGET.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1351 Format based on SENDER and RESPONSE. If ACTIVITY is non-nil,
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1352 record activity."
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1353 (or text (setq text ""))
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1354 (unless (and (or (member sender rcirc-ignore-list)
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1355 (member (with-syntax-table rcirc-nick-syntax-table
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1356 (when (string-match "^\\([^/]\\w*\\)[:,]" text)
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1357 (match-string 1 text)))
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1358 rcirc-ignore-list))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1359 ;; do not ignore if we sent the message
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1360 (not (string= sender (rcirc-nick process))))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1361 (let* ((buffer (rcirc-target-buffer process sender response target text))
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1362 (inhibit-read-only t))
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1363 (with-current-buffer buffer
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1364 (let ((moving (= (point) rcirc-prompt-end-marker))
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1365 (old-point (point-marker))
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1366 (fill-start (marker-position rcirc-prompt-start-marker)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1367
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1368 (unless (string= sender (rcirc-nick process))
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1369 ;; only decode text from other senders, not ours
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1370 (setq text (decode-coding-string text rcirc-decode-coding-system))
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1371 ;; mark the line with overlay arrow
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1372 (unless (or (marker-position overlay-arrow-position)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1373 (get-buffer-window (current-buffer))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1374 (member response rcirc-omit-responses))
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1375 (set-marker overlay-arrow-position
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1376 (marker-position rcirc-prompt-start-marker))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1377
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1378 ;; temporarily set the marker insertion-type because
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1379 ;; insert-before-markers results in hidden text in new buffers
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1380 (goto-char rcirc-prompt-start-marker)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1381 (set-marker-insertion-type rcirc-prompt-start-marker t)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1382 (set-marker-insertion-type rcirc-prompt-end-marker t)
68807
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1383
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1384 (let ((start (point)))
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1385 (insert (rcirc-format-response-string process sender response nil
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1386 text)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1387 (propertize "\n" 'hard t))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1388
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1389 ;; squeeze spaces out of text before rcirc-text
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1390 (fill-region fill-start
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1391 (1- (or (next-single-property-change fill-start
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1392 'rcirc-text)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1393 rcirc-prompt-end-marker)))
68960
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1394
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1395 ;; run markup functions
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1396 (save-excursion
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1397 (save-restriction
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1398 (narrow-to-region start rcirc-prompt-start-marker)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1399 (goto-char (or (next-single-property-change start 'rcirc-text)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1400 (point)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1401 (when (rcirc-buffer-process)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1402 (save-excursion (rcirc-markup-timestamp sender response))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1403 (dolist (fn rcirc-markup-text-functions)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1404 (save-excursion (funcall fn sender response)))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1405 (when rcirc-fill-flag
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1406 (save-excursion (rcirc-markup-fill sender response))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1407
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1408 (when rcirc-read-only-flag
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1409 (add-text-properties (point-min) (point-max)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1410 '(read-only t front-sticky t))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1411 ;; make text omittable
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1412 (let ((last-activity-lines (rcirc-elapsed-lines process sender target)))
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1413 (if (and (not (string= (rcirc-nick process) sender))
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1414 (member response rcirc-omit-responses)
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1415 (or (not last-activity-lines)
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1416 (< rcirc-omit-threshold last-activity-lines)))
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1417 (put-text-property (1- start) (1- rcirc-prompt-start-marker)
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1418 'invisible 'rcirc-omit)
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1419 ;; otherwise increment the line count
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1420 (setq rcirc-current-line (1+ rcirc-current-line))))))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1421
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1422 (set-marker-insertion-type rcirc-prompt-start-marker nil)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1423 (set-marker-insertion-type rcirc-prompt-end-marker nil)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1424
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1425 ;; truncate buffer if it is very long
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1426 (save-excursion
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1427 (when (and rcirc-buffer-maximum-lines
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1428 (> rcirc-buffer-maximum-lines 0)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1429 (= (forward-line (- rcirc-buffer-maximum-lines)) 0))
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1430 (delete-region (point-min) (point))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1431
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1432 ;; set the window point for buffers show in windows
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1433 (walk-windows (lambda (w)
72836
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1434 (when (and (not (eq (selected-window) w))
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1435 (eq (current-buffer)
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1436 (window-buffer w))
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1437 (>= (window-point w)
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1438 rcirc-prompt-end-marker))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1439 (set-window-point w (point-max))))
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1440 nil t)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1441
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1442 ;; restore the point
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1443 (goto-char (if moving rcirc-prompt-end-marker old-point))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1444
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1445 ;; keep window on bottom line if it was already there
72836
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1446 (when rcirc-scroll-show-maximum-output
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1447 (walk-windows (lambda (w)
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1448 (when (eq (window-buffer w) (current-buffer))
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1449 (with-current-buffer (window-buffer w)
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1450 (when (eq major-mode 'rcirc-mode)
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1451 (with-selected-window w
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1452 (when (<= (- (window-height)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1453 (count-screen-lines (window-point)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1454 (window-start))
72836
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1455 1)
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1456 0)
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1457 (recenter -1)))))))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1458 nil t))
72836
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1459
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1460 ;; flush undo (can we do something smarter here?)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1461 (buffer-disable-undo)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1462 (buffer-enable-undo))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1463
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1464 ;; record modeline activity
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1465 (when (and activity
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1466 (not rcirc-ignore-buffer-activity-flag)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1467 (not (and rcirc-dim-nicks sender
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1468 (string-match (regexp-opt rcirc-dim-nicks) sender)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1469 (rcirc-channel-p target))))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1470 (rcirc-record-activity (current-buffer)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1471 (when (not (rcirc-channel-p rcirc-target))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1472 'nick)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1473
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1474 (when rcirc-log-flag
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1475 (rcirc-log process sender response target text))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1476
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1477 (sit-for 0) ; displayed text before hook
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1478 (run-hook-with-args 'rcirc-print-hooks
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1479 process sender response target text)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1480
87520
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1481 (defcustom rcirc-log-filename-function 'rcirc-generate-new-buffer-name
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1482 "A function to generate the filename used by rcirc's logging facility.
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1483
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1484 It is called with two arguments, PROCESS and TARGET (see
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1485 `rcirc-generate-new-buffer-name' for their meaning), and should
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1486 return the filename, or nil if no logging is desired for this
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1487 session.
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1488
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1489 If the returned filename is absolute (`file-name-absolute-p'
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1490 returns true), then it is used as-is, otherwise the resulting
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1491 file is put into `rcirc-log-directory'."
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1492 :group 'rcirc
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1493 :type 'function)
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1494
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1495 (defun rcirc-log (process sender response target text)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1496 "Record line in `rcirc-log', to be later written to disk."
87520
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1497 (let ((filename (funcall rcirc-log-filename-function process target)))
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1498 (unless (null filename)
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1499 (let ((cell (assoc-string filename rcirc-log-alist))
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1500 (line (concat (format-time-string rcirc-time-format)
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1501 (substring-no-properties
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1502 (rcirc-format-response-string process sender
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1503 response target text))
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1504 "\n")))
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1505 (if cell
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1506 (setcdr cell (concat (cdr cell) line))
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1507 (setq rcirc-log-alist
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1508 (cons (cons filename line) rcirc-log-alist)))))))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1509
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1510 (defun rcirc-log-write ()
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1511 "Flush `rcirc-log-alist' data to disk.
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1512
87520
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1513 Log data is written to `rcirc-log-directory', except for
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1514 log-files with absolute names (see `rcirc-log-filename-function')."
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1515 (dolist (cell rcirc-log-alist)
87520
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1516 (let ((filename (expand-file-name (car cell) rcirc-log-directory))
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1517 (coding-system-for-write 'utf-8))
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1518 (make-directory (file-name-directory filename) t)
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1519 (with-temp-buffer
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1520 (insert (cdr cell))
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1521 (write-region (point-min) (point-max) filename t 'quiet))))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1522 (setq rcirc-log-alist nil))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1523
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1524 (defun rcirc-join-channels (process channels)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1525 "Join CHANNELS."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1526 (save-window-excursion
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1527 (dolist (channel channels)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1528 (with-rcirc-process-buffer process
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1529 (rcirc-cmd-join channel process)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1530
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1531 ;;; nick management
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
1532 (defvar rcirc-nick-prefix-chars "~&@%+")
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1533 (defun rcirc-user-nick (user)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1534 "Return the nick from USER. Remove any non-nick junk."
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1535 (save-match-data
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
1536 (if (string-match (concat "^[" rcirc-nick-prefix-chars
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
1537 "]?\\([^! ]+\\)!?") (or user ""))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1538 (match-string 1 user)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1539 user)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1540
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1541 (defun rcirc-nick-channels (process nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1542 "Return list of channels for NICK."
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1543 (with-rcirc-process-buffer process
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1544 (mapcar (lambda (x) (car x))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1545 (gethash nick rcirc-nick-table))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1546
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1547 (defun rcirc-put-nick-channel (process nick channel &optional line)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1548 "Add CHANNEL to list associated with NICK.
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1549 Update the associated linestamp if LINE is non-nil.
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1550
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1551 If the record doesn't exist, and LINE is nil, set the linestamp
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1552 to zero."
68960
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1553 (let ((nick (rcirc-user-nick nick)))
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1554 (with-rcirc-process-buffer process
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1555 (let* ((chans (gethash nick rcirc-nick-table))
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1556 (record (assoc-string channel chans t)))
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1557 (if record
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1558 (when line (setcdr record line))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1559 (puthash nick (cons (cons channel (or line 0))
68960
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1560 chans)
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1561 rcirc-nick-table))))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1562
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1563 (defun rcirc-nick-remove (process nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1564 "Remove NICK from table."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1565 (with-rcirc-process-buffer process
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1566 (remhash nick rcirc-nick-table)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1567
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1568 (defun rcirc-remove-nick-channel (process nick channel)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1569 "Remove the CHANNEL from list associated with NICK."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1570 (with-rcirc-process-buffer process
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1571 (let* ((chans (gethash nick rcirc-nick-table))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1572 (newchans
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1573 ;; instead of assoc-string-delete-all:
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1574 (let ((record (assoc-string channel chans t)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1575 (when record
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1576 (setcar record 'delete)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1577 (assq-delete-all 'delete chans)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1578 (if newchans
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1579 (puthash nick newchans rcirc-nick-table)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1580 (remhash nick rcirc-nick-table)))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1581
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1582 (defun rcirc-channel-nicks (process target)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1583 "Return the list of nicks associated with TARGET sorted by last activity."
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1584 (when target
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1585 (if (rcirc-channel-p target)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1586 (with-rcirc-process-buffer process
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1587 (let (nicks)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1588 (maphash
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1589 (lambda (k v)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1590 (let ((record (assoc-string target v t)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1591 (if record
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1592 (setq nicks (cons (cons k (cdr record)) nicks)))))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1593 rcirc-nick-table)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1594 (mapcar (lambda (x) (car x))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1595 (sort nicks (lambda (x y)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1596 (let ((lx (or (cdr x) 0))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1597 (ly (or (cdr y) 0)))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1598 (< ly lx)))))))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1599 (list target))))
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1600
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1601 (defun rcirc-ignore-update-automatic (nick)
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
1602 "Remove NICK from `rcirc-ignore-list'
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
1603 if NICK is also on `rcirc-ignore-list-automatic'."
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1604 (when (member nick rcirc-ignore-list-automatic)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1605 (setq rcirc-ignore-list-automatic
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1606 (delete nick rcirc-ignore-list-automatic)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1607 rcirc-ignore-list
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1608 (delete nick rcirc-ignore-list))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1609
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1610 ;;; activity tracking
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1611 (defvar rcirc-track-minor-mode-map (make-sparse-keymap)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1612 "Keymap for rcirc track minor mode.")
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1613
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1614 (define-key rcirc-track-minor-mode-map (kbd "C-c `") 'rcirc-next-active-buffer)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1615 (define-key rcirc-track-minor-mode-map (kbd "C-c C-@") 'rcirc-next-active-buffer)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1616 (define-key rcirc-track-minor-mode-map (kbd "C-c C-SPC") 'rcirc-next-active-buffer)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1617
69461
1527bb09ec30 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-156
Miles Bader <miles@gnu.org>
parents: 69460
diff changeset
1618 ;;;###autoload
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1619 (define-minor-mode rcirc-track-minor-mode
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1620 "Global minor mode for tracking activity in rcirc buffers."
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1621 :init-value nil
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1622 :lighter ""
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1623 :keymap rcirc-track-minor-mode-map
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1624 :global t
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1625 :group 'rcirc
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1626 (or global-mode-string (setq global-mode-string '("")))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1627 ;; toggle the mode-line channel indicator
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1628 (if rcirc-track-minor-mode
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1629 (progn
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1630 (and (not (memq 'rcirc-activity-string global-mode-string))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1631 (setq global-mode-string
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1632 (append global-mode-string '(rcirc-activity-string))))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1633 (add-hook 'window-configuration-change-hook
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1634 'rcirc-window-configuration-change))
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
1635 (setq global-mode-string
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1636 (delete 'rcirc-activity-string global-mode-string))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1637 (remove-hook 'window-configuration-change-hook
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1638 'rcirc-window-configuration-change)))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1639
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1640 (or (assq 'rcirc-ignore-buffer-activity-flag minor-mode-alist)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1641 (setq minor-mode-alist
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1642 (cons '(rcirc-ignore-buffer-activity-flag " Ignore") minor-mode-alist)))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1643 (or (assq 'rcirc-low-priority-flag minor-mode-alist)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1644 (setq minor-mode-alist
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1645 (cons '(rcirc-low-priority-flag " LowPri") minor-mode-alist)))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1646 (or (assq 'rcirc-omit-mode minor-mode-alist)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1647 (setq minor-mode-alist
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1648 (cons '(rcirc-omit-mode " Omit") minor-mode-alist)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1649
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1650 (defun rcirc-toggle-ignore-buffer-activity ()
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1651 "Toggle the value of `rcirc-ignore-buffer-activity-flag'."
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1652 (interactive)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1653 (setq rcirc-ignore-buffer-activity-flag
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1654 (not rcirc-ignore-buffer-activity-flag))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1655 (message (if rcirc-ignore-buffer-activity-flag
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1656 "Ignore activity in this buffer"
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1657 "Notice activity in this buffer"))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1658 (force-mode-line-update))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1659
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1660 (defun rcirc-toggle-low-priority ()
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
1661 "Toggle the value of `rcirc-low-priority-flag'."
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1662 (interactive)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1663 (setq rcirc-low-priority-flag
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1664 (not rcirc-low-priority-flag))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1665 (message (if rcirc-low-priority-flag
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1666 "Activity in this buffer is low priority"
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1667 "Activity in this buffer is normal priority"))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1668 (force-mode-line-update))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1669
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1670 (defun rcirc-omit-mode ()
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1671 "Toggle the Rcirc-Omit mode.
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1672 If enabled, \"uninteresting\" lines are not shown.
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1673 Uninteresting lines are those whose responses are listed in
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1674 `rcirc-omit-responses'."
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1675 (interactive)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1676 (setq rcirc-omit-mode (not rcirc-omit-mode))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1677 (if rcirc-omit-mode
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1678 (progn
91688
dc73ee82d684 (rcirc-omit-mode): Suppress invisibility ellipsis
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1679 (add-to-invisibility-spec '(rcirc-omit . nil))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1680 (message "Rcirc-Omit mode enabled"))
91688
dc73ee82d684 (rcirc-omit-mode): Suppress invisibility ellipsis
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1681 (remove-from-invisibility-spec '(rcirc-omit . nil))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1682 (message "Rcirc-Omit mode disabled"))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1683 (recenter (when (> (point) rcirc-prompt-start-marker) -1)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1684
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1685 (defun rcirc-switch-to-server-buffer ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1686 "Switch to the server buffer associated with current channel buffer."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1687 (interactive)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1688 (switch-to-buffer rcirc-server-buffer))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1689
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1690 (defun rcirc-jump-to-first-unread-line ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1691 "Move the point to the first unread line in this buffer."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1692 (interactive)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1693 (if (marker-position overlay-arrow-position)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1694 (goto-char overlay-arrow-position)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1695 (message "No unread messages")))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1696
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1697 (defun rcirc-non-irc-buffer ()
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1698 (let ((buflist (buffer-list))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1699 buffer)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1700 (while (and buflist (not buffer))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1701 (with-current-buffer (car buflist)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1702 (unless (or (eq major-mode 'rcirc-mode)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1703 (= ?\s (aref (buffer-name) 0)) ; internal buffers
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1704 (get-buffer-window (current-buffer)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1705 (setq buffer (current-buffer))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1706 (setq buflist (cdr buflist)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1707 buffer))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1708
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1709 (defun rcirc-next-active-buffer (arg)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1710 "Switch to the next rcirc buffer with activity.
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1711 With prefix ARG, go to the next low priority buffer with activity."
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1712 (interactive "P")
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1713 (let* ((pair (rcirc-split-activity rcirc-activity))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1714 (lopri (car pair))
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
1715 (hipri (cdr pair)))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1716 (if (or (and (not arg) hipri)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1717 (and arg lopri))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1718 (progn
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1719 (switch-to-buffer (car (if arg lopri hipri)))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1720 (when (> (point) rcirc-prompt-start-marker)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1721 (recenter -1)))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1722 (if (eq major-mode 'rcirc-mode)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1723 (switch-to-buffer (rcirc-non-irc-buffer))
87170
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 85854
diff changeset
1724 (message "%s" (concat
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 85854
diff changeset
1725 "No IRC activity."
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 85854
diff changeset
1726 (when lopri
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 85854
diff changeset
1727 (concat
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 85854
diff changeset
1728 " Type C-u "
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 85854
diff changeset
1729 (key-description (this-command-keys))
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 85854
diff changeset
1730 " for low priority activity."))))))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1731
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1732 (defvar rcirc-activity-hooks nil
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1733 "Hook to be run when there is channel activity.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1734
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1735 Functions are called with a single argument, the buffer with the
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1736 activity. Only run if the buffer is not visible and
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1737 `rcirc-ignore-buffer-activity-flag' is non-nil.")
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1738
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1739 (defun rcirc-record-activity (buffer &optional type)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1740 "Record BUFFER activity with TYPE."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1741 (with-current-buffer buffer
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1742 (let ((old-activity rcirc-activity)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1743 (old-types rcirc-activity-types))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1744 (when (not (get-buffer-window (current-buffer) t))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1745 (setq rcirc-activity
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1746 (sort (add-to-list 'rcirc-activity (current-buffer))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1747 (lambda (b1 b2)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1748 (let ((t1 (with-current-buffer b1 rcirc-last-post-time))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1749 (t2 (with-current-buffer b2 rcirc-last-post-time)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1750 (time-less-p t2 t1)))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1751 (pushnew type rcirc-activity-types)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1752 (unless (and (equal rcirc-activity old-activity)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1753 (member type old-types))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1754 (rcirc-update-activity-string)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1755 (run-hook-with-args 'rcirc-activity-hooks buffer))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1756
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1757 (defun rcirc-clear-activity (buffer)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1758 "Clear the BUFFER activity."
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1759 (setq rcirc-activity (remove buffer rcirc-activity))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1760 (with-current-buffer buffer
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1761 (setq rcirc-activity-types nil)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1762
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1763 (defun rcirc-clear-unread (buffer)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1764 "Erase the last read message arrow from BUFFER."
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1765 (when (buffer-live-p buffer)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1766 (with-current-buffer buffer
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1767 (set-marker overlay-arrow-position nil))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1768
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1769 (defun rcirc-split-activity (activity)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1770 "Return a cons cell with ACTIVITY split into (lopri . hipri)."
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1771 (let (lopri hipri)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1772 (dolist (buf rcirc-activity)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1773 (with-current-buffer buf
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1774 (if (and rcirc-low-priority-flag
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1775 (not (member 'nick rcirc-activity-types)))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1776 (add-to-list 'lopri buf t)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1777 (add-to-list 'hipri buf t))))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1778 (cons lopri hipri)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1779
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1780 (defvar rcirc-update-activity-string-hook nil
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1781 "Hook run whenever the activity string is updated.")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1782
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1783 ;; TODO: add mouse properties
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1784 (defun rcirc-update-activity-string ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1785 "Update mode-line string."
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1786 (let* ((pair (rcirc-split-activity rcirc-activity))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1787 (lopri (car pair))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1788 (hipri (cdr pair)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1789 (setq rcirc-activity-string
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1790 (cond ((or hipri lopri)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1791 (concat (and hipri "[")
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1792 (rcirc-activity-string hipri)
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1793 (and hipri lopri ",")
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1794 (and lopri
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1795 (concat "("
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1796 (rcirc-activity-string lopri)
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1797 ")"))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1798 (and hipri "]")))
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1799 ((not (null (rcirc-process-list)))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1800 "[]")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1801 (t "[]")))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1802 (run-hooks 'rcirc-update-activity-string-hook)))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1803
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1804 (defun rcirc-activity-string (buffers)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1805 (mapconcat (lambda (b)
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1806 (let ((s (substring-no-properties (rcirc-short-buffer-name b))))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1807 (with-current-buffer b
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1808 (dolist (type rcirc-activity-types)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1809 (rcirc-add-face 0 (length s)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1810 (case type
72699
249ed2e06deb * net/rcirc.el (rcirc-activity-string): Don't quote value in case
Chong Yidong <cyd@stupidchicken.com>
parents: 72616
diff changeset
1811 (nick 'rcirc-track-nick)
249ed2e06deb * net/rcirc.el (rcirc-activity-string): Don't quote value in case
Chong Yidong <cyd@stupidchicken.com>
parents: 72616
diff changeset
1812 (keyword 'rcirc-track-keyword))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1813 s)))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1814 s))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1815 buffers ","))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1816
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1817 (defun rcirc-short-buffer-name (buffer)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1818 "Return a short name for BUFFER to use in the modeline indicator."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1819 (with-current-buffer buffer
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1820 (or rcirc-short-buffer-name (buffer-name))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1821
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1822 (defun rcirc-visible-buffers ()
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1823 "Return a list of the visible buffers that are in rcirc-mode."
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1824 (let (acc)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1825 (walk-windows (lambda (w)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1826 (with-current-buffer (window-buffer w)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1827 (when (eq major-mode 'rcirc-mode)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1828 (push (current-buffer) acc)))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1829 acc))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1830
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1831 (defvar rcirc-visible-buffers nil)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1832 (defun rcirc-window-configuration-change ()
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1833 (unless (minibuffer-window-active-p (minibuffer-window))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1834 ;; delay this until command has finished to make sure window is
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1835 ;; actually visible before clearing activity
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1836 (add-hook 'post-command-hook 'rcirc-window-configuration-change-1)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1837
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1838 (defun rcirc-window-configuration-change-1 ()
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1839 ;; clear activity and overlay arrows
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1840 (let* ((old-activity rcirc-activity)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1841 (hidden-buffers rcirc-visible-buffers))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1842
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1843 (setq rcirc-visible-buffers (rcirc-visible-buffers))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1844
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1845 (dolist (vbuf rcirc-visible-buffers)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1846 (setq hidden-buffers (delq vbuf hidden-buffers))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1847 ;; clear activity for all visible buffers
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1848 (rcirc-clear-activity vbuf))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1849
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1850 ;; clear unread arrow from recently hidden buffers
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1851 (dolist (hbuf hidden-buffers)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1852 (rcirc-clear-unread hbuf))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1853
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1854 ;; remove any killed buffers from list
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1855 (setq rcirc-activity
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1856 (delq nil (mapcar (lambda (buf) (when (buffer-live-p buf) buf))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1857 rcirc-activity)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1858 ;; update the mode-line string
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1859 (unless (equal old-activity rcirc-activity)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1860 (rcirc-update-activity-string)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1861
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1862 (remove-hook 'post-command-hook 'rcirc-window-configuration-change-1))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1863
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1864
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1865 ;;; buffer name abbreviation
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1866 (defun rcirc-update-short-buffer-names ()
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1867 (let ((bufalist
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1868 (apply 'append (mapcar (lambda (process)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1869 (with-rcirc-process-buffer process
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1870 rcirc-buffer-alist))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1871 (rcirc-process-list)))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1872 (dolist (i (rcirc-abbreviate bufalist))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1873 (when (buffer-live-p (cdr i))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1874 (with-current-buffer (cdr i)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1875 (setq rcirc-short-buffer-name (car i)))))))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1876
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1877 (defun rcirc-abbreviate (pairs)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1878 (apply 'append (mapcar 'rcirc-rebuild-tree (rcirc-make-trees pairs))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1879
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1880 (defun rcirc-rebuild-tree (tree &optional acc)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1881 (let ((ch (char-to-string (car tree))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1882 (dolist (x (cdr tree))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1883 (if (listp x)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1884 (setq acc (append acc
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1885 (mapcar (lambda (y)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1886 (cons (concat ch (car y))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1887 (cdr y)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1888 (rcirc-rebuild-tree x))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1889 (setq acc (cons (cons ch x) acc))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1890 acc))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1891
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1892 (defun rcirc-make-trees (pairs)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1893 (let (alist)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1894 (mapc (lambda (pair)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1895 (if (consp pair)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1896 (let* ((str (car pair))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1897 (data (cdr pair))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1898 (char (unless (zerop (length str))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1899 (aref str 0)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1900 (rest (unless (zerop (length str))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1901 (substring str 1)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1902 (part (if char (assq char alist))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1903 (if part
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1904 ;; existing partition
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1905 (setcdr part (cons (cons rest data) (cdr part)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1906 ;; new partition
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1907 (setq alist (cons (if char
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1908 (list char (cons rest data))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1909 data)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1910 alist))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1911 (setq alist (cons pair alist))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1912 pairs)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1913 ;; recurse into cdrs of alist
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1914 (mapc (lambda (x)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1915 (when (and (listp x) (listp (cadr x)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1916 (setcdr x (if (> (length (cdr x)) 1)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1917 (rcirc-make-trees (cdr x))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1918 (setcdr x (list (cdadr x)))))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1919 alist)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1920
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1921 ;;; /commands these are called with 3 args: PROCESS, TARGET, which is
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1922 ;; the current buffer/channel/user, and ARGS, which is a string
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1923 ;; containing the text following the /cmd.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1924
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1925 (defmacro defun-rcirc-command (command argument docstring interactive-form
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1926 &rest body)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1927 "Define a command."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1928 `(defun ,(intern (concat "rcirc-cmd-" (symbol-name command)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1929 (,@argument &optional process target)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1930 ,(concat docstring "\n\nNote: If PROCESS or TARGET are nil, the values given"
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1931 "\nby `rcirc-buffer-process' and `rcirc-target' will be used.")
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1932 ,interactive-form
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1933 (let ((process (or process (rcirc-buffer-process)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1934 (target (or target rcirc-target)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1935 ,@body)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1936
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1937 (defun-rcirc-command msg (message)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1938 "Send private MESSAGE to TARGET."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1939 (interactive "i")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1940 (if (null message)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1941 (progn
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1942 (setq target (completing-read "Message nick: "
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
1943 (with-rcirc-server-buffer
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1944 rcirc-nick-table)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1945 (when (> (length target) 0)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1946 (setq message (read-string (format "Message %s: " target)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1947 (when (> (length message) 0)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1948 (rcirc-send-message process target message))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1949 (if (not (string-match "\\([^ ]+\\) \\(.+\\)" message))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1950 (message "Not enough args, or something.")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1951 (setq target (match-string 1 message)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1952 message (match-string 2 message))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1953 (rcirc-send-message process target message))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1954
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1955 (defun-rcirc-command query (nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1956 "Open a private chat buffer to NICK."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1957 (interactive (list (completing-read "Query nick: "
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1958 (with-rcirc-server-buffer rcirc-nick-table))))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1959 (let ((existing-buffer (rcirc-get-buffer process nick)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1960 (switch-to-buffer (or existing-buffer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1961 (rcirc-get-buffer-create process nick)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1962 (when (not existing-buffer)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1963 (rcirc-cmd-whois nick))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1964
68578
2b5f6787aa4f (rcirc-cmd-join): Improve argument/docstring consistency.
Juanma Barranquero <lekktu@gmail.com>
parents: 68563
diff changeset
1965 (defun-rcirc-command join (channel)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1966 "Join CHANNEL."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1967 (interactive "sJoin channel: ")
68578
2b5f6787aa4f (rcirc-cmd-join): Improve argument/docstring consistency.
Juanma Barranquero <lekktu@gmail.com>
parents: 68563
diff changeset
1968 (let ((buffer (rcirc-get-buffer-create process
2b5f6787aa4f (rcirc-cmd-join): Improve argument/docstring consistency.
Juanma Barranquero <lekktu@gmail.com>
parents: 68563
diff changeset
1969 (car (split-string channel)))))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1970 (rcirc-send-string process (concat "JOIN " channel))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1971 (when (not (eq (selected-window) (minibuffer-window)))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1972 (switch-to-buffer buffer))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1973
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1974 ;; TODO: /part #channel reason, or consider removing #channel altogether
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1975 (defun-rcirc-command part (channel)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1976 "Part CHANNEL."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1977 (interactive "sPart channel: ")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1978 (let ((channel (if (> (length channel) 0) channel target)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1979 (rcirc-send-string process (concat "PART " channel " :" rcirc-id-string))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1980
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1981 (defun-rcirc-command quit (reason)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1982 "Send a quit message to server with REASON."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1983 (interactive "sQuit reason: ")
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1984 (rcirc-send-string process (concat "QUIT :"
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1985 (if (not (zerop (length reason)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1986 reason
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1987 rcirc-id-string))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1988
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1989 (defun-rcirc-command nick (nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1990 "Change nick to NICK."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1991 (interactive "i")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1992 (when (null nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1993 (setq nick (read-string "New nick: " (rcirc-nick process))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1994 (rcirc-send-string process (concat "NICK " nick)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1995
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1996 (defun-rcirc-command names (channel)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1997 "Display list of names in CHANNEL or in current channel if CHANNEL is nil.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1998 If called interactively, prompt for a channel when prefix arg is supplied."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1999 (interactive "P")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2000 (if (interactive-p)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2001 (if channel
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2002 (setq channel (read-string "List names in channel: " target))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2003 (let ((channel (if (> (length channel) 0)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2004 channel
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2005 target)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2006 (rcirc-send-string process (concat "NAMES " channel))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2007
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2008 (defun-rcirc-command topic (topic)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2009 "List TOPIC for the TARGET channel.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2010 With a prefix arg, prompt for new topic."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2011 (interactive "P")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2012 (if (and (interactive-p) topic)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2013 (setq topic (read-string "New Topic: " rcirc-topic)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2014 (rcirc-send-string process (concat "TOPIC " target
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2015 (when (> (length topic) 0)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2016 (concat " :" topic)))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2017
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2018 (defun-rcirc-command whois (nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2019 "Request information from server about NICK."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2020 (interactive (list
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2021 (completing-read "Whois: "
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2022 (with-rcirc-server-buffer rcirc-nick-table))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2023 (rcirc-send-string process (concat "WHOIS " nick)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2024
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2025 (defun-rcirc-command mode (args)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2026 "Set mode with ARGS."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2027 (interactive (list (concat (read-string "Mode nick or channel: ")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2028 " " (read-string "Mode: "))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2029 (rcirc-send-string process (concat "MODE " args)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2030
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2031 (defun-rcirc-command list (channels)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2032 "Request information on CHANNELS from server."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2033 (interactive "sList Channels: ")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2034 (rcirc-send-string process (concat "LIST " channels)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2035
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2036 (defun-rcirc-command oper (args)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2037 "Send operator command to server."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2038 (interactive "sOper args: ")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2039 (rcirc-send-string process (concat "OPER " args)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2040
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2041 (defun-rcirc-command quote (message)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2042 "Send MESSAGE literally to server."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2043 (interactive "sServer message: ")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2044 (rcirc-send-string process message))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2045
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2046 (defun-rcirc-command kick (arg)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2047 "Kick NICK from current channel."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2048 (interactive (list
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2049 (concat (completing-read "Kick nick: "
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
2050 (rcirc-channel-nicks
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2051 (rcirc-buffer-process)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2052 rcirc-target))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2053 (read-from-minibuffer "Kick reason: "))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2054 (let* ((arglist (split-string arg))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2055 (argstring (concat (car arglist) " :"
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2056 (mapconcat 'identity (cdr arglist) " "))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2057 (rcirc-send-string process (concat "KICK " target " " argstring))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2058
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2059 (defun rcirc-cmd-ctcp (args &optional process target)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2060 (if (string-match "^\\([^ ]+\\)\\s-+\\(.+\\)$" args)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2061 (let ((target (match-string 1 args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2062 (request (match-string 2 args)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2063 (rcirc-send-string process
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2064 (format "PRIVMSG %s \C-a%s\C-a"
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2065 target (upcase request))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2066 (rcirc-print process (rcirc-nick process) "ERROR" nil
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2067 "usage: /ctcp NICK REQUEST")))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2068
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2069 (defun rcirc-cmd-me (args &optional process target)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2070 (rcirc-send-string process (format "PRIVMSG %s :\C-aACTION %s\C-a"
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2071 target args)))
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2072
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2073 (defun rcirc-add-or-remove (set &optional elt)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2074 (if (and elt (not (string= "" elt)))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2075 (if (member-ignore-case elt set)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2076 (delete elt set)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2077 (cons elt set))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2078 set))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2079
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2080 (defun-rcirc-command ignore (nick)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2081 "Manage the ignore list.
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2082 Ignore NICK, unignore NICK if already ignored, or list ignored
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2083 nicks when no NICK is given. When listing ignored nicks, the
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
2084 ones added to the list automatically are marked with an asterisk."
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2085 (interactive "sToggle ignoring of nick: ")
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2086 (setq rcirc-ignore-list (rcirc-add-or-remove rcirc-ignore-list nick))
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
2087 (rcirc-print process nil "IGNORE" target
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2088 (mapconcat
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2089 (lambda (nick)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2090 (concat nick
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2091 (if (member nick rcirc-ignore-list-automatic)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2092 "*" "")))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2093 rcirc-ignore-list " ")))
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2094
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2095 (defun-rcirc-command bright (nick)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2096 "Manage the bright nick list."
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2097 (interactive "sToggle emphasis of nick: ")
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2098 (setq rcirc-bright-nicks (rcirc-add-or-remove rcirc-bright-nicks nick))
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
2099 (rcirc-print process nil "BRIGHT" target
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2100 (mapconcat 'identity rcirc-bright-nicks " ")))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2101
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2102 (defun-rcirc-command dim (nick)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2103 "Manage the dim nick list."
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2104 (interactive "sToggle deemphasis of nick: ")
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2105 (setq rcirc-dim-nicks (rcirc-add-or-remove rcirc-dim-nicks nick))
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
2106 (rcirc-print process nil "DIM" target
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2107 (mapconcat 'identity rcirc-dim-nicks " ")))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2108
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2109 (defun-rcirc-command keyword (keyword)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2110 "Manage the keyword list.
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2111 Mark KEYWORD, unmark KEYWORD if already marked, or list marked
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2112 keywords when no KEYWORD is given."
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2113 (interactive "sToggle highlighting of keyword: ")
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2114 (setq rcirc-keywords (rcirc-add-or-remove rcirc-keywords keyword))
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
2115 (rcirc-print process nil "KEYWORD" target
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2116 (mapconcat 'identity rcirc-keywords " ")))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2117
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2118
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2119 (defun rcirc-add-face (start end name &optional object)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2120 "Add face NAME to the face text property of the text from START to END."
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2121 (when name
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2122 (let ((pos start)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2123 next prop)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2124 (while (< pos end)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2125 (setq prop (get-text-property pos 'face object)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2126 next (next-single-property-change pos 'face object end))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2127 (unless (member name (get-text-property pos 'face object))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2128 (add-text-properties pos next (list 'face (cons name prop)) object))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2129 (setq pos next)))))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2130
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2131 (defun rcirc-facify (string face)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2132 "Return a copy of STRING with FACE property added."
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2133 (let ((string (or string "")))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2134 (rcirc-add-face 0 (length string) face string)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2135 string))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2136
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2137 (defvar rcirc-url-regexp
80097
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2138 (concat
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2139 "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|"
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2140 "nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)"
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2141 "\\(//[-a-z0-9_.]+:[0-9]*\\)?"
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2142 (if (string-match "[[:digit:]]" "1") ;; Support POSIX?
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2143 (let ((chars "-a-z0-9_=#$@~%&*+\\/[:word:]")
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2144 (punct "!?:;.,"))
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2145 (concat
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2146 "\\(?:"
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2147 ;; Match paired parentheses, e.g. in Wikipedia URLs:
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2148 "[" chars punct "]+" "(" "[" chars punct "]+" "[" chars "]*)" "[" chars "]"
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2149 "\\|"
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2150 "[" chars punct "]+" "[" chars "]"
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2151 "\\)"))
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2152 (concat ;; XEmacs 21.4 doesn't support POSIX.
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2153 "\\([-a-z0-9_=!?#$@~%&*+\\/:;.,]\\|\\w\\)+"
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2154 "\\([-a-z0-9_=#$@~%&*+\\/]\\|\\w\\)"))
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2155 "\\)")
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
2156 "Regexp matching URLs. Set to nil to disable URL features in rcirc.")
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2157
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2158 (defun rcirc-browse-url (&optional arg)
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
2159 "Prompt for URL to browse based on URLs in buffer."
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2160 (interactive "P")
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2161 (let ((completions (mapcar (lambda (x) (cons x nil)) rcirc-urls))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2162 (initial-input (car rcirc-urls))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2163 (history (cdr rcirc-urls)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2164 (browse-url (completing-read "rcirc browse-url: "
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2165 completions nil nil initial-input 'history)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2166 arg)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2167
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2168 (defun rcirc-browse-url-at-point (point)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2169 "Send URL at point to `browse-url'."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2170 (interactive "d")
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
2171 (let ((beg (previous-single-property-change (1+ point) 'mouse-face))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2172 (end (next-single-property-change point 'mouse-face)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2173 (browse-url (buffer-substring-no-properties beg end))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2174
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2175 (defun rcirc-browse-url-at-mouse (event)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2176 "Send URL at mouse click to `browse-url'."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2177 (interactive "e")
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2178 (let ((position (event-end event)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2179 (with-current-buffer (window-buffer (posn-window position))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2180 (rcirc-browse-url-at-point (posn-point position)))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2181
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2182
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2183 (defun rcirc-markup-timestamp (sender response)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2184 (goto-char (point-min))
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
2185 (insert (rcirc-facify (format-time-string rcirc-time-format)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2186 'rcirc-timestamp)))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2187
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2188 (defun rcirc-markup-attributes (sender response)
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2189 (while (re-search-forward "\\([\C-b\C-_\C-v]\\).*?\\(\\1\\|\C-o\\)" nil t)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2190 (rcirc-add-face (match-beginning 0) (match-end 0)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2191 (case (char-after (match-beginning 1))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2192 (?\C-b 'bold)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2193 (?\C-v 'italic)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2194 (?\C-_ 'underline)))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2195 ;; keep the ^O since it could terminate other attributes
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2196 (when (not (eq ?\C-o (char-before (match-end 2))))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2197 (delete-region (match-beginning 2) (match-end 2)))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2198 (delete-region (match-beginning 1) (match-end 1))
96432
3dc335bd8a91 Fix a bug with parsing of overlapping markup sequences in rcirc
Miles Bader <miles@gnu.org>
parents: 96376
diff changeset
2199 (goto-char (match-beginning 1)))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2200 ;; remove the ^O characters now
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2201 (while (re-search-forward "\C-o+" nil t)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2202 (delete-region (match-beginning 0) (match-end 0))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2203
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2204 (defun rcirc-markup-my-nick (sender response)
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2205 (with-syntax-table rcirc-nick-syntax-table
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
2206 (while (re-search-forward (concat "\\b"
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
2207 (regexp-quote (rcirc-nick
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2208 (rcirc-buffer-process)))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2209 "\\b")
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2210 nil t)
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
2211 (rcirc-add-face (match-beginning 0) (match-end 0)
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2212 'rcirc-nick-in-message)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2213 (when (string= response "PRIVMSG")
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
2214 (rcirc-add-face (point-min) (point-max)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2215 'rcirc-nick-in-message-full-line)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2216 (rcirc-record-activity (current-buffer) 'nick)))))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2217
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2218 (defun rcirc-markup-urls (sender response)
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2219 (while (re-search-forward rcirc-url-regexp nil t)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2220 (let ((start (match-beginning 0))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2221 (end (match-end 0)))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2222 (rcirc-add-face start end 'rcirc-url)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2223 (add-text-properties start end (list 'mouse-face 'highlight
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2224 'keymap rcirc-browse-url-map))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2225 ;; record the url
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2226 (push (buffer-substring-no-properties start end) rcirc-urls))))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2227
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2228 (defun rcirc-markup-keywords (sender response)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2229 (when (and (string= response "PRIVMSG")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2230 (not (string= sender (rcirc-nick (rcirc-buffer-process)))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2231 (let* ((target (or rcirc-target ""))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2232 (keywords (delq nil (mapcar (lambda (keyword)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2233 (when (not (string-match keyword
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2234 target))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2235 keyword))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2236 rcirc-keywords))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2237 (when keywords
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2238 (while (re-search-forward (regexp-opt keywords 'words) nil t)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2239 (rcirc-add-face (match-beginning 0) (match-end 0) 'rcirc-keyword)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2240 (rcirc-record-activity (current-buffer) 'keyword))))))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2241
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2242 (defun rcirc-markup-bright-nicks (sender response)
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2243 (when (and rcirc-bright-nicks
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2244 (string= response "NAMES"))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2245 (with-syntax-table rcirc-nick-syntax-table
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2246 (while (re-search-forward (regexp-opt rcirc-bright-nicks 'words) nil t)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2247 (rcirc-add-face (match-beginning 0) (match-end 0)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2248 'rcirc-bright-nick)))))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2249
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2250 (defun rcirc-markup-fill (sender response)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2251 (when (not (string= response "372")) ; /motd
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2252 (let ((fill-prefix
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2253 (or rcirc-fill-prefix
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2254 (make-string (- (point) (line-beginning-position)) ?\s)))
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2255 (fill-column (- (cond ((eq rcirc-fill-column 'frame-width)
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2256 (1- (frame-width)))
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2257 (rcirc-fill-column
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2258 rcirc-fill-column)
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2259 (t fill-column))
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2260 ;; make sure ... doesn't cause line wrapping
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2261 3)))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2262 (fill-region (point) (point-max) nil t))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2263
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2264 ;;; handlers
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2265 ;; these are called with the server PROCESS, the SENDER, which is a
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2266 ;; server or a user, depending on the command, the ARGS, which is a
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2267 ;; list of strings, and the TEXT, which is the original server text,
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2268 ;; verbatim
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2269 (defun rcirc-handler-001 (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2270 (rcirc-handler-generic process "001" sender args text)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2271 (with-rcirc-process-buffer process
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
2272 (setq rcirc-connecting nil)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
2273 (rcirc-reschedule-timeout process)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
2274 (setq rcirc-server-name sender)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2275 (setq rcirc-nick (car args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2276 (rcirc-update-prompt)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2277 (when rcirc-auto-authenticate-flag (rcirc-authenticate))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2278 (rcirc-join-channels process rcirc-startup-channels)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2279
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2280 (defun rcirc-handler-PRIVMSG (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2281 (let ((target (if (rcirc-channel-p (car args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2282 (car args)
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2283 sender))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2284 (message (or (cadr args) "")))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2285 (if (string-match "^\C-a\\(.*\\)\C-a$" message)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2286 (rcirc-handler-CTCP process target sender (match-string 1 message))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2287 (rcirc-print process sender "PRIVMSG" target message t))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2288 ;; update nick linestamp
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2289 (with-current-buffer (rcirc-get-buffer process target t)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2290 (rcirc-put-nick-channel process sender target rcirc-current-line))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2291
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2292 (defun rcirc-handler-NOTICE (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2293 (let ((target (car args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2294 (message (cadr args)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2295 (if (string-match "^\C-a\\(.*\\)\C-a$" message)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2296 (rcirc-handler-CTCP-response process target sender
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2297 (match-string 1 message))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2298 (rcirc-print process sender "NOTICE"
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2299 (cond ((rcirc-channel-p target)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2300 target)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2301 ;;; -ChanServ- [#gnu] Welcome...
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2302 ((string-match "\\[\\(#[^\] ]+\\)\\]" message)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2303 (match-string 1 message))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2304 (sender
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2305 (if (string= sender (rcirc-server-name process))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2306 nil ; server notice
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2307 sender)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2308 message t))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2309
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2310 (defun rcirc-handler-WALLOPS (process sender args text)
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2311 (rcirc-print process sender "WALLOPS" sender (car args) t))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2312
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2313 (defun rcirc-handler-JOIN (process sender args text)
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2314 (let ((channel (car args)))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2315 (with-current-buffer (rcirc-get-buffer-create process channel)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2316 ;; when recently rejoining, restore the linestamp
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2317 (rcirc-put-nick-channel process sender channel
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2318 (let ((last-activity-lines
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2319 (rcirc-elapsed-lines process sender channel)))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2320 (when (and last-activity-lines
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2321 (< last-activity-lines rcirc-omit-threshold))
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2322 (rcirc-last-line process sender channel)))))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2323
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2324 (rcirc-print process sender "JOIN" channel "")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2325
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2326 ;; print in private chat buffer if it exists
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2327 (when (rcirc-get-buffer (rcirc-buffer-process) sender)
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2328 (rcirc-print process sender "JOIN" sender channel))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2329
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2330 ;; PART and KICK are handled the same way
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2331 (defun rcirc-handler-PART-or-KICK (process response channel sender nick args)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2332 (rcirc-ignore-update-automatic nick)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2333 (if (not (string= nick (rcirc-nick process)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2334 ;; this is someone else leaving
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2335 (progn
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2336 (rcirc-maybe-remember-nick-quit process nick channel)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2337 (rcirc-remove-nick-channel process nick channel))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2338 ;; this is us leaving
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2339 (mapc (lambda (n)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2340 (rcirc-remove-nick-channel process n channel))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2341 (rcirc-channel-nicks process channel))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2342
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2343 ;; if the buffer is still around, make it inactive
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2344 (let ((buffer (rcirc-get-buffer process channel)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2345 (when buffer
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2346 (rcirc-disconnect-buffer buffer)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2347
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2348 (defun rcirc-handler-PART (process sender args text)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2349 (let* ((channel (car args))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2350 (reason (cadr args))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2351 (message (concat channel " " reason)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2352 (rcirc-print process sender "PART" channel message)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2353 ;; print in private chat buffer if it exists
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2354 (when (rcirc-get-buffer (rcirc-buffer-process) sender)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2355 (rcirc-print process sender "PART" sender message))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2356
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2357 (rcirc-handler-PART-or-KICK process "PART" channel sender sender reason)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2358
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2359 (defun rcirc-handler-KICK (process sender args text)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2360 (let* ((channel (car args))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2361 (nick (cadr args))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2362 (reason (caddr args))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2363 (message (concat nick " " channel " " reason)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2364 (rcirc-print process sender "KICK" channel message t)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2365 ;; print in private chat buffer if it exists
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2366 (when (rcirc-get-buffer (rcirc-buffer-process) nick)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2367 (rcirc-print process sender "KICK" nick message))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2368
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2369 (rcirc-handler-PART-or-KICK process "KICK" channel sender nick reason)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2370
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2371 (defun rcirc-maybe-remember-nick-quit (process nick channel)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2372 "Remember NICK as leaving CHANNEL if they recently spoke."
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2373 (let ((elapsed-lines (rcirc-elapsed-lines process nick channel)))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2374 (when (and elapsed-lines
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2375 (< elapsed-lines rcirc-omit-threshold))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2376 (let ((buffer (rcirc-get-buffer process channel)))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2377 (when buffer
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2378 (with-current-buffer buffer
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2379 (let ((record (assoc-string nick rcirc-recent-quit-alist t))
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2380 (line (rcirc-last-line process nick channel)))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2381 (if record
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2382 (setcdr record line)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2383 (setq rcirc-recent-quit-alist
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2384 (cons (cons nick line)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2385 rcirc-recent-quit-alist))))))))))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2386
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2387 (defun rcirc-handler-QUIT (process sender args text)
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2388 (rcirc-ignore-update-automatic sender)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2389 (mapc (lambda (channel)
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2390 ;; broadcast quit message each channel
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2391 (rcirc-print process sender "QUIT" channel (apply 'concat args))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2392 ;; record nick in quit table if they recently spoke
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2393 (rcirc-maybe-remember-nick-quit process sender channel))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2394 (rcirc-nick-channels process sender))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2395 (rcirc-nick-remove process sender))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2396
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2397 (defun rcirc-handler-NICK (process sender args text)
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2398 (let* ((old-nick sender)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2399 (new-nick (car args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2400 (channels (rcirc-nick-channels process old-nick)))
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2401 ;; update list of ignored nicks
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2402 (rcirc-ignore-update-automatic old-nick)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2403 (when (member old-nick rcirc-ignore-list)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2404 (add-to-list 'rcirc-ignore-list new-nick)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2405 (add-to-list 'rcirc-ignore-list-automatic new-nick))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2406 ;; print message to nick's channels
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2407 (dolist (target channels)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2408 (rcirc-print process sender "NICK" target new-nick))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2409 ;; update private chat buffer, if it exists
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2410 (let ((chat-buffer (rcirc-get-buffer process old-nick)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2411 (when chat-buffer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2412 (with-current-buffer chat-buffer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2413 (rcirc-print process sender "NICK" old-nick new-nick)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2414 (setq rcirc-target new-nick)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2415 (rename-buffer (rcirc-generate-new-buffer-name process new-nick)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2416 ;; remove old nick and add new one
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2417 (with-rcirc-process-buffer process
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2418 (let ((v (gethash old-nick rcirc-nick-table)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2419 (remhash old-nick rcirc-nick-table)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2420 (puthash new-nick v rcirc-nick-table))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2421 ;; if this is our nick...
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2422 (when (string= old-nick rcirc-nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2423 (setq rcirc-nick new-nick)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2424 (rcirc-update-prompt t)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2425 ;; reauthenticate
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2426 (when rcirc-auto-authenticate-flag (rcirc-authenticate))))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2427
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2428 (defun rcirc-handler-PING (process sender args text)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2429 (rcirc-send-string process (concat "PONG :" (car args))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2430
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2431 (defun rcirc-handler-PONG (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2432 ;; do nothing
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2433 )
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2434
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2435 (defun rcirc-handler-TOPIC (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2436 (let ((topic (cadr args)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2437 (rcirc-print process sender "TOPIC" (car args) topic)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2438 (with-current-buffer (rcirc-get-buffer process (car args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2439 (setq rcirc-topic topic))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2440
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2441 (defvar rcirc-nick-away-alist nil)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2442 (defun rcirc-handler-301 (process sender args text)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2443 "RPL_AWAY"
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2444 (let* ((nick (cadr args))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2445 (rec (assoc-string nick rcirc-nick-away-alist))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2446 (away-message (caddr args)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2447 (when (or (not rec)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2448 (not (string= (cdr rec) away-message)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2449 ;; away message has changed
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2450 (rcirc-handler-generic process "AWAY" nick (cdr args) text)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2451 (if rec
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2452 (setcdr rec away-message)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2453 (setq rcirc-nick-away-alist (cons (cons nick away-message)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2454 rcirc-nick-away-alist))))))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2455
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2456 (defun rcirc-handler-332 (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2457 "RPL_TOPIC"
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2458 (let ((buffer (or (rcirc-get-buffer process (cadr args))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2459 (rcirc-get-temp-buffer-create process (cadr args)))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2460 (with-current-buffer buffer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2461 (setq rcirc-topic (caddr args)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2462
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2463 (defun rcirc-handler-333 (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2464 "Not in rfc1459.txt"
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2465 (let ((buffer (or (rcirc-get-buffer process (cadr args))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2466 (rcirc-get-temp-buffer-create process (cadr args)))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2467 (with-current-buffer buffer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2468 (let ((setter (caddr args))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2469 (time (current-time-string
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2470 (seconds-to-time
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2471 (string-to-number (cadddr args))))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2472 (rcirc-print process sender "TOPIC" (cadr args)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2473 (format "%s (%s on %s)" rcirc-topic setter time))))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2474
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2475 (defun rcirc-handler-477 (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2476 "ERR_NOCHANMODES"
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2477 (rcirc-print process sender "477" (cadr args) (caddr args)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2478
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2479 (defun rcirc-handler-MODE (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2480 (let ((target (car args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2481 (msg (mapconcat 'identity (cdr args) " ")))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2482 (rcirc-print process sender "MODE"
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2483 (if (string= target (rcirc-nick process))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2484 nil
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2485 target)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2486 msg)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2487
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2488 ;; print in private chat buffers if they exist
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2489 (mapc (lambda (nick)
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2490 (when (rcirc-get-buffer process nick)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2491 (rcirc-print process sender "MODE" nick msg)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2492 (cddr args))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2493
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2494 (defun rcirc-get-temp-buffer-create (process channel)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2495 "Return a buffer based on PROCESS and CHANNEL."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2496 (let ((tmpnam (concat " " (downcase channel) "TMP" (process-name process))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2497 (get-buffer-create tmpnam)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2498
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2499 (defun rcirc-handler-353 (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2500 "RPL_NAMREPLY"
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2501 (let ((channel (caddr args)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2502 (mapc (lambda (nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2503 (rcirc-put-nick-channel process nick channel))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2504 (split-string (cadddr args) " " t))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2505 (with-current-buffer (rcirc-get-temp-buffer-create process channel)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2506 (goto-char (point-max))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2507 (insert (car (last args)) " "))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2508
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2509 (defun rcirc-handler-366 (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2510 "RPL_ENDOFNAMES"
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2511 (let* ((channel (cadr args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2512 (buffer (rcirc-get-temp-buffer-create process channel)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2513 (with-current-buffer buffer
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2514 (rcirc-print process sender "NAMES" channel
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2515 (buffer-substring (point-min) (point-max))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2516 (kill-buffer buffer)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2517
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2518 (defun rcirc-handler-433 (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2519 "ERR_NICKNAMEINUSE"
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2520 (rcirc-handler-generic process "433" sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2521 (let* ((new-nick (concat (cadr args) "`")))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2522 (with-rcirc-process-buffer process
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2523 (rcirc-cmd-nick new-nick nil process))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2524
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2525 (defun rcirc-authenticate ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2526 "Send authentication to process associated with current buffer.
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2527 Passwords are stored in `rcirc-authinfo' (which see)."
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2528 (interactive)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2529 (with-rcirc-server-buffer
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2530 (dolist (i rcirc-authinfo)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2531 (let ((process (rcirc-buffer-process))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2532 (server (car i))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2533 (nick (caddr i))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2534 (method (cadr i))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2535 (args (cdddr i)))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2536 (when (and (string-match server rcirc-server)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2537 (string-match nick rcirc-nick))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2538 (cond ((equal method 'nickserv)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2539 (rcirc-send-string
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2540 process
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2541 (concat
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2542 "PRIVMSG nickserv :identify "
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2543 (car args))))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2544 ((equal method 'chanserv)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2545 (rcirc-send-string
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2546 process
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2547 (concat
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2548 "PRIVMSG chanserv :identify "
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2549 (car args) " " (cadr args))))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2550 ((equal method 'bitlbee)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2551 (rcirc-send-string
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2552 process
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2553 (concat "PRIVMSG &bitlbee :identify " (car args))))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2554 (t
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2555 (message "No %S authentication method defined"
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2556 method))))))))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2557
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2558 (defun rcirc-handler-INVITE (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2559 (rcirc-print process sender "INVITE" nil (mapconcat 'identity args " ") t))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2560
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2561 (defun rcirc-handler-ERROR (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2562 (rcirc-print process sender "ERROR" nil (mapconcat 'identity args " ")))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2563
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2564 (defun rcirc-handler-CTCP (process target sender text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2565 (if (string-match "^\\([^ ]+\\) *\\(.*\\)$" text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2566 (let* ((request (upcase (match-string 1 text)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2567 (args (match-string 2 text))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2568 (handler (intern-soft (concat "rcirc-handler-ctcp-" request))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2569 (if (not (fboundp handler))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2570 (rcirc-print process sender "ERROR" target
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2571 (format "%s sent unsupported ctcp: %s" sender text)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2572 t)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2573 (funcall handler process target sender args)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2574 (unless (or (string= request "ACTION")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2575 (string= request "KEEPALIVE"))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2576 (rcirc-print process sender "CTCP" target
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2577 (format "%s" text) t))))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2578
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2579 (defun rcirc-handler-ctcp-VERSION (process target sender args)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2580 (rcirc-send-string process
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2581 (concat "NOTICE " sender
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2582 " :\C-aVERSION " rcirc-id-string
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2583 "\C-a")))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2584
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2585 (defun rcirc-handler-ctcp-ACTION (process target sender args)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2586 (rcirc-print process sender "ACTION" target args t))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2587
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2588 (defun rcirc-handler-ctcp-TIME (process target sender args)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2589 (rcirc-send-string process
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2590 (concat "NOTICE " sender
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2591 " :\C-aTIME " (current-time-string) "\C-a")))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2592
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2593 (defun rcirc-handler-CTCP-response (process target sender message)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2594 (rcirc-print process sender "CTCP" nil message t))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2595
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2596 (defgroup rcirc-faces nil
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2597 "Faces for rcirc."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2598 :group 'rcirc
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2599 :group 'faces)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2600
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2601 (defface rcirc-my-nick ; font-lock-function-name-face
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2602 '((((class color) (min-colors 88) (background light)) (:foreground "Blue1"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2603 (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2604 (((class color) (min-colors 16) (background light)) (:foreground "Blue"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2605 (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2606 (((class color) (min-colors 8)) (:foreground "blue" :weight bold))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2607 (t (:inverse-video t :weight bold)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2608 "The face used to highlight my messages."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2609 :group 'rcirc-faces)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2610
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2611 (defface rcirc-other-nick ; font-lock-variable-name-face
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2612 '((((class grayscale) (background light))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2613 (:foreground "Gray90" :weight bold :slant italic))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2614 (((class grayscale) (background dark))
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2615 (:foreground "DimGray" :weight bold :slant italic))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2616 (((class color) (min-colors 88) (background light)) (:foreground "DarkGoldenrod"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2617 (((class color) (min-colors 88) (background dark)) (:foreground "LightGoldenrod"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2618 (((class color) (min-colors 16) (background light)) (:foreground "DarkGoldenrod"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2619 (((class color) (min-colors 16) (background dark)) (:foreground "LightGoldenrod"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2620 (((class color) (min-colors 8)) (:foreground "yellow" :weight light))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2621 (t (:weight bold :slant italic)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2622 "The face used to highlight other messages."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2623 :group 'rcirc-faces)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2624
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2625 (defface rcirc-bright-nick
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2626 '((((class grayscale) (background light))
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2627 (:foreground "LightGray" :weight bold :underline t))
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2628 (((class grayscale) (background dark))
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2629 (:foreground "Gray50" :weight bold :underline t))
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2630 (((class color) (min-colors 88) (background light)) (:foreground "CadetBlue"))
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2631 (((class color) (min-colors 88) (background dark)) (:foreground "Aquamarine"))
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2632 (((class color) (min-colors 16) (background light)) (:foreground "CadetBlue"))
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2633 (((class color) (min-colors 16) (background dark)) (:foreground "Aquamarine"))
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2634 (((class color) (min-colors 8)) (:foreground "magenta"))
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2635 (t (:weight bold :underline t)))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2636 "Face used for nicks matched by `rcirc-bright-nicks'."
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2637 :group 'rcirc-faces)
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2638
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2639 (defface rcirc-dim-nick
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2640 '((t :inherit default))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2641 "Face used for nicks in `rcirc-dim-nicks'."
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2642 :group 'rcirc-faces)
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2643
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2644 (defface rcirc-server ; font-lock-comment-face
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2645 '((((class grayscale) (background light))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2646 (:foreground "DimGray" :weight bold :slant italic))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2647 (((class grayscale) (background dark))
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2648 (:foreground "LightGray" :weight bold :slant italic))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2649 (((class color) (min-colors 88) (background light))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2650 (:foreground "Firebrick"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2651 (((class color) (min-colors 88) (background dark))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2652 (:foreground "chocolate1"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2653 (((class color) (min-colors 16) (background light))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2654 (:foreground "red"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2655 (((class color) (min-colors 16) (background dark))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2656 (:foreground "red1"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2657 (((class color) (min-colors 8) (background light))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2658 )
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2659 (((class color) (min-colors 8) (background dark))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2660 )
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2661 (t (:weight bold :slant italic)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2662 "The face used to highlight server messages."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2663 :group 'rcirc-faces)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2664
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2665 (defface rcirc-server-prefix ; font-lock-comment-delimiter-face
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2666 '((default :inherit rcirc-server)
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2667 (((class grayscale)))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2668 (((class color) (min-colors 16)))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2669 (((class color) (min-colors 8) (background light))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2670 :foreground "red")
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2671 (((class color) (min-colors 8) (background dark))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2672 :foreground "red1"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2673 "The face used to highlight server prefixes."
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2674 :group 'rcirc-faces)
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2675
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2676 (defface rcirc-timestamp
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2677 '((t (:inherit default)))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2678 "The face used to highlight timestamps."
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2679 :group 'rcirc-faces)
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2680
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2681 (defface rcirc-nick-in-message ; font-lock-keyword-face
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2682 '((((class grayscale) (background light)) (:foreground "LightGray" :weight bold))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2683 (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2684 (((class color) (min-colors 88) (background light)) (:foreground "Purple"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2685 (((class color) (min-colors 88) (background dark)) (:foreground "Cyan1"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2686 (((class color) (min-colors 16) (background light)) (:foreground "Purple"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2687 (((class color) (min-colors 16) (background dark)) (:foreground "Cyan"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2688 (((class color) (min-colors 8)) (:foreground "cyan" :weight bold))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2689 (t (:weight bold)))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2690 "The face used to highlight instances of your nick within messages."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2691 :group 'rcirc-faces)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2692
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2693 (defface rcirc-nick-in-message-full-line
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2694 '((t (:bold t)))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2695 "The face used emphasize the entire message when your nick is mentioned."
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
2696 :group 'rcirc-faces)
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2697
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2698 (defface rcirc-prompt ; comint-highlight-prompt
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2699 '((((min-colors 88) (background dark)) (:foreground "cyan1"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2700 (((background dark)) (:foreground "cyan"))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2701 (t (:foreground "dark blue")))
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
2702 "The face used to highlight prompts."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2703 :group 'rcirc-faces)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2704
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2705 (defface rcirc-track-nick
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
2706 '((((type tty)) (:inherit default))
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
2707 (t (:inverse-video t)))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2708 "The face used in the mode-line when your nick is mentioned."
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2709 :group 'rcirc-faces)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2710
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2711 (defface rcirc-track-keyword
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2712 '((t (:bold t )))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2713 "The face used in the mode-line when keywords are mentioned."
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2714 :group 'rcirc-faces)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2715
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2716 (defface rcirc-url
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2717 '((t (:bold t)))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2718 "The face used to highlight urls."
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2719 :group 'rcirc-faces)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2720
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2721 (defface rcirc-keyword
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2722 '((t (:inherit highlight)))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2723 "The face used to highlight keywords."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2724 :group 'rcirc-faces)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2725
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2726
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2727 ;; When using M-x flyspell-mode, only check words after the prompt
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2728 (put 'rcirc-mode 'flyspell-mode-predicate 'rcirc-looking-at-input)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2729 (defun rcirc-looking-at-input ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2730 "Returns true if point is past the input marker."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2731 (>= (point) rcirc-prompt-end-marker))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2732
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2733
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2734 (provide 'rcirc)
66258
4e4cce911e2e Add arch tagline
Miles Bader <miles@gnu.org>
parents: 66252
diff changeset
2735
4e4cce911e2e Add arch tagline
Miles Bader <miles@gnu.org>
parents: 66252
diff changeset
2736 ;; arch-tag: b471b7e8-6b5a-4399-b2c6-a3c78dfc8ffb
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2737 ;;; rcirc.el ends here