annotate lisp/net/rcirc.el @ 112403:c81ff7082a9a

src/config.in: shrink slightly * configure.in: Invoke the new gnulib macro gl_ASSERT_NO_GNULIB_TESTS. This makes src/config.in a bit smaller, by removing identifiers like GNULIB_TEST_MKTIME that Emacs does not need. * m4/getopt.m4, m4/gnulib-common.m4, m4/include_next.m4: * m4/multiarch.m4, m4/stddef_h.m4, m4/time_h.m4, m4/unistd_h.m4: Sync from gnulib. This removes a few more unnecessary symbols from src/config.in, such as AA_APPLE_UNIVERSAL_BUILD and HAVE_STDDEF_H. * configure, src/config.in: Regenerate.
author Paul Eggert <eggert@cs.ucla.edu>
date Fri, 21 Jan 2011 16:12:10 -0800
parents ef719132ddfa
children f792eb37d0ca
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
112213
6e613fbf73d7 Use run-mode-hooks for major mode hooks.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110313
diff changeset
3 ;; Copyright (C) 2005, 2006, 2007, 2008, 2009, 2010, 2011
108768
56c66753dd38 * net/rcirc.el (rcirc-default-user-name, rcirc-default-full-name): Add :version.
Glenn Morris <rgm@gnu.org>
parents: 108767
diff changeset
4 ;; Free Software Foundation, Inc.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
112216
7e73e0f65914 * net/rcirc.el: Adding maintainer info and e-mail addresses.
Deniz Dogan <deniz.a.m.dogan@gmail.com>
parents: 112213
diff changeset
6 ;; Author: Ryan Yeske <rcyeske@gmail.com>
7e73e0f65914 * net/rcirc.el: Adding maintainer info and e-mail addresses.
Deniz Dogan <deniz.a.m.dogan@gmail.com>
parents: 112213
diff changeset
7 ;; Maintainers: Ryan Yeske <rcyeske@gmail.com>,
7e73e0f65914 * net/rcirc.el: Adding maintainer info and e-mail addresses.
Deniz Dogan <deniz.a.m.dogan@gmail.com>
parents: 112213
diff changeset
8 ;; Deniz Dogan <deniz.a.m.dogan@gmail.com>
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 ;; Keywords: comm
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
66272
79d2a5d86ee4 Now part of GNU Emacs. Update FSF's address.
Romain Francoise <romain@orebokech.com>
parents: 66258
diff changeset
11 ;; This file is part of GNU Emacs.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12
94677
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 92148
diff changeset
13 ;; 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
14 ;; 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
15 ;; 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
16 ;; (at your option) any later version.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17
94677
91e5880a36c1 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 92148
diff changeset
18 ;; 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
19 ;; 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
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; GNU General Public License for more details.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 ;; 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
24 ;; 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
25
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
28 ;; 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
29 ;; 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
30 ;; 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
31 ;; one-to-one communication.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32
96376
c3309dba6542 American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 94677
diff changeset
33 ;; 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
34 ;; Message arrival timestamps, activity notification on the modeline,
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
35 ;; 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
36 ;; 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
37 ;; 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
38 ;; server buffer per connection.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 ;; Open a new irc connection with:
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 ;; M-x irc RET
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
43 ;;; Todo:
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
44
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 ;;; Code:
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 (require 'ring)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 (require 'time-date)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 (eval-when-compile (require 'cl))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
51 (defgroup rcirc nil
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
52 "Simple IRC client."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
53 :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
54 :prefix "rcirc-"
69461
1527bb09ec30 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-156
Miles Bader <miles@gnu.org>
parents: 69460
diff changeset
55 :link '(custom-manual "(rcirc)")
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
56 :group 'applications)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
58 (defcustom rcirc-server-alist
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
59 '(("irc.freenode.net" :channels ("#rcirc")))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
60 "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
61 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
62
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
63 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
64 to.
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
65
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
66 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
67
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
68 The following parameters are recognized:
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 `:nick'
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
71
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
72 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
73 for this connection.
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 `:port'
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
76
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
77 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
78 `rcirc-default-port' is used.
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 `:user-name'
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
81
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
82 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
83 used.
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
84
108939
dbf3fd5a1594 * lisp/net/rcirc.el: Add support for password authentication.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106815
diff changeset
85 `:password'
dbf3fd5a1594 * lisp/net/rcirc.el: Add support for password authentication.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106815
diff changeset
86
dbf3fd5a1594 * lisp/net/rcirc.el: Add support for password authentication.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106815
diff changeset
87 VALUE must be a string. If absent, no PASS command will be sent
dbf3fd5a1594 * lisp/net/rcirc.el: Add support for password authentication.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106815
diff changeset
88 to the server.
dbf3fd5a1594 * lisp/net/rcirc.el: Add support for password authentication.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106815
diff changeset
89
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
90 `:full-name'
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
91
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
92 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
93 used.
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
94
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
95 `:channels'
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
96
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
97 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
98 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
99 connected to automatically."
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
100 :type '(alist :key-type string
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
101 :value-type (plist :options ((:nick string)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
102 (:port integer)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
103 (:user-name string)
108939
dbf3fd5a1594 * lisp/net/rcirc.el: Add support for password authentication.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106815
diff changeset
104 (:password string)
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
105 (:full-name string)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
106 (:channels (repeat string)))))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
107 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
109 (defcustom rcirc-default-port 6667
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
110 "The default port to connect to."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
111 :type 'integer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
112 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
114 (defcustom rcirc-default-nick (user-login-name)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
115 "Your nick."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
116 :type 'string
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
117 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118
108767
471d9557d537 rcirc update.
Glenn Morris <rgm@gnu.org>
parents: 108765
diff changeset
119 (defcustom rcirc-default-user-name "user"
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
120 "Your user name sent to the server when connecting."
108768
56c66753dd38 * net/rcirc.el (rcirc-default-user-name, rcirc-default-full-name): Add :version.
Glenn Morris <rgm@gnu.org>
parents: 108767
diff changeset
121 :version "24.1" ; changed default
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
122 :type 'string
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
123 :group 'rcirc)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
124
108767
471d9557d537 rcirc update.
Glenn Morris <rgm@gnu.org>
parents: 108765
diff changeset
125 (defcustom rcirc-default-full-name "unknown"
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
126 "The full name sent to the server when connecting."
108768
56c66753dd38 * net/rcirc.el (rcirc-default-user-name, rcirc-default-full-name): Add :version.
Glenn Morris <rgm@gnu.org>
parents: 108767
diff changeset
127 :version "24.1" ; changed default
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
128 :type 'string
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
129 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
131 (defcustom rcirc-fill-flag t
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
132 "*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
133 :type 'boolean
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
134 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
136 (defcustom rcirc-fill-column nil
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
137 "*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
138 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
139 maximum frame width."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
140 :type '(choice (const :tag "Value of `fill-column'")
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
141 (const :tag "Full frame width" frame-width)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
142 (integer :tag "Number of columns"))
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 (defcustom rcirc-fill-prefix nil
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 "*Text to insert before filled lines.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 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
148 underneath each nick."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
149 :type '(choice (const :tag "Dynamic" nil)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
150 (string :tag "Prefix text"))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
151 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
153 (defvar rcirc-ignore-buffer-activity-flag nil
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
154 "If non-nil, ignore activity in this buffer.")
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
155 (make-variable-buffer-local 'rcirc-ignore-buffer-activity-flag)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
157 (defvar rcirc-low-priority-flag nil
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
158 "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
159 (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
160
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
161 (defvar rcirc-omit-mode nil
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
162 "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
163 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
164 (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
165
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
166 (defcustom rcirc-time-format "%H:%M "
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167 "*Describes how timestamps are printed.
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
168 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
169 :type 'string
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
170 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
172 (defcustom rcirc-input-ring-size 1024
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
173 "*Size of input history ring."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
174 :type 'integer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
175 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
177 (defcustom rcirc-read-only-flag t
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
178 "*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
179 :type 'boolean
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
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
182 (defcustom rcirc-buffer-maximum-lines nil
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 "*The maximum size in lines for rcirc buffers.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 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
185 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
186 :type '(choice (const :tag "No truncation" nil)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
187 (integer :tag "Number of lines"))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
188 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189
72836
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
190 (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
191 "*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
192 the window."
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
193 :type 'boolean
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
194 :group 'rcirc)
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
195
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
196 (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
197 "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
198 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
199 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
200
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
201 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
202 `bitlbee'.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203
105611
01e892771abe Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 105372
diff changeset
204 The ARGUMENTS for each METHOD symbol are:
01e892771abe Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 105372
diff changeset
205 `nickserv': NICK PASSWORD [NICKSERV-NICK]
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
206 `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
207 `bitlbee': NICK PASSWORD
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
208
105611
01e892771abe Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 105372
diff changeset
209 Examples:
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
210 ((\"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
211 (\"freenode\" chanserv \"bob\" \"#bobland\" \"passwd99\")
105611
01e892771abe Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 105372
diff changeset
212 (\"bitlbee\" bitlbee \"robert\" \"sekrit\")
01e892771abe Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 105372
diff changeset
213 (\"dal.net\" nickserv \"bob\" \"sekrit\" \"NickServ@services.dal.net\"))"
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
214 :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
215 :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
216 (const nickserv)
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"))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
219 (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
220 (const chanserv)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
221 (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
222 (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
223 (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
224 (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
225 (const bitlbee)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
226 (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
227 (string :tag "Password"))))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
228 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
230 (defcustom rcirc-auto-authenticate-flag t
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
231 "*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
232 See also `rcirc-authinfo'."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
233 :type 'boolean
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
234 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
236 (defcustom rcirc-prompt "> "
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
237 "Prompt string to use in IRC buffers.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
238
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
239 The following replacements are made:
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240 %n is your nick.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
241 %s is the server.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
242 %t is the buffer target, a channel or a user.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
244 Setting this alone will not affect the prompt;
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
245 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
246 :type 'string
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
247 :set 'rcirc-set-changed
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
248 :initialize 'custom-initialize-default
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
249 :group 'rcirc)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
250
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
251 (defcustom rcirc-keywords nil
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
252 "List of keywords to highlight in message text."
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
253 :type '(repeat string)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
254 :group 'rcirc)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
255
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
256 (defcustom rcirc-ignore-list ()
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
257 "List of ignored nicks.
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
258 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
259 :type '(repeat string)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
260 :group 'rcirc)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
261
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
262 (defvar rcirc-ignore-list-automatic ()
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
263 "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
264 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
265 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
266 parts.")
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
267
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
268 (defcustom rcirc-bright-nicks nil
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
269 "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
270 See `rcirc-bright-nick' face."
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
271 :type '(repeat string)
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
272 :group 'rcirc)
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
273
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
274 (defcustom rcirc-dim-nicks nil
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
275 "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
276 See `rcirc-dim-nick' face."
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
277 :type '(repeat string)
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
278 :group 'rcirc)
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
279
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
280 (defcustom rcirc-print-hooks nil
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
281 "Hook run after text is printed.
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
282 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
283 :type 'hook
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
284 :group 'rcirc)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
286 (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
287 "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
288 :type 'boolean
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
289 :group 'rcirc)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
290
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
291 (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
292 "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
293 :type 'coding-system
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
294 :group 'rcirc)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
295
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
296 (defcustom rcirc-encode-coding-system 'utf-8
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
297 "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
298 :type 'coding-system
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
299 :group 'rcirc)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
300
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
301 (defcustom rcirc-coding-system-alist nil
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
302 "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
303 The format is ((PATTERN . VAL) ...).
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
304 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
305 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
306 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
307 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
308 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
309 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
310 messages.
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
311 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
312 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
313 :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
314 (cons (string :tag "Channel Regexp")
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
315 (string :tag "Server Regexp")))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
316 :value-type (choice coding-system
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
317 (cons (coding-system :tag "Decode")
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
318 (coding-system :tag "Encode"))))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
319 :group 'rcirc)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
320
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
321 (defcustom rcirc-multiline-major-mode 'fundamental-mode
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
322 "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
323 :type 'function
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
324 :group 'rcirc)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
325
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
326 (defvar rcirc-nick nil)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
327
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
328 (defvar rcirc-prompt-start-marker nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
329 (defvar rcirc-prompt-end-marker nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
331 (defvar rcirc-nick-table nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
332
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
333 (defvar rcirc-recent-quit-alist nil
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
334 "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
335
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
336 (defvar rcirc-nick-syntax-table
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
337 (let ((table (make-syntax-table text-mode-syntax-table)))
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
338 (mapc (lambda (c) (modify-syntax-entry c "w" table))
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
339 "[]\\`_^{|}-")
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
340 (modify-syntax-entry ?' "_" table)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
341 table)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
342 "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
343
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
344 ;; 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
345 (defvar rcirc-buffer-alist nil)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
346
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347 (defvar rcirc-activity nil
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
348 "List of buffers with unviewed activity.")
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
349
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
350 (defvar rcirc-activity-string ""
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
351 "String displayed in modeline representing `rcirc-activity'.")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
352 (put 'rcirc-activity-string 'risky-local-variable t)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
353
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
354 (defvar rcirc-server-buffer nil
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
355 "The server buffer associated with this channel buffer.")
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
356
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
357 (defvar rcirc-target nil
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
358 "The channel or user associated with this buffer.")
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-urls nil
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
361 "List of urls seen in the current buffer.")
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
362 (put 'rcirc-urls 'permanent-local t)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
363
77649
2abad7431284 (rcirc-timeout-seconds): Increase to prevent unwanted disconnections.
Richard M. Stallman <rms@gnu.org>
parents: 76444
diff changeset
364 (defvar rcirc-timeout-seconds 600
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
365 "Kill connection after this many seconds if there is no activity.")
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
366
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
367 (defconst rcirc-id-string (concat "rcirc on GNU Emacs " emacs-version))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
368
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
369 (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
370
103915
b22ca6941b7b * net/rcirc.el (rcirc): Use history variables.
Chong Yidong <cyd@stupidchicken.com>
parents: 103015
diff changeset
371 (defvar rcirc-server-name-history nil
b22ca6941b7b * net/rcirc.el (rcirc): Use history variables.
Chong Yidong <cyd@stupidchicken.com>
parents: 103015
diff changeset
372 "History variable for \\[rcirc] call.")
b22ca6941b7b * net/rcirc.el (rcirc): Use history variables.
Chong Yidong <cyd@stupidchicken.com>
parents: 103015
diff changeset
373
b22ca6941b7b * net/rcirc.el (rcirc): Use history variables.
Chong Yidong <cyd@stupidchicken.com>
parents: 103015
diff changeset
374 (defvar rcirc-server-port-history nil
b22ca6941b7b * net/rcirc.el (rcirc): Use history variables.
Chong Yidong <cyd@stupidchicken.com>
parents: 103015
diff changeset
375 "History variable for \\[rcirc] call.")
b22ca6941b7b * net/rcirc.el (rcirc): Use history variables.
Chong Yidong <cyd@stupidchicken.com>
parents: 103015
diff changeset
376
b22ca6941b7b * net/rcirc.el (rcirc): Use history variables.
Chong Yidong <cyd@stupidchicken.com>
parents: 103015
diff changeset
377 (defvar rcirc-nick-name-history nil
b22ca6941b7b * net/rcirc.el (rcirc): Use history variables.
Chong Yidong <cyd@stupidchicken.com>
parents: 103015
diff changeset
378 "History variable for \\[rcirc] call.")
b22ca6941b7b * net/rcirc.el (rcirc): Use history variables.
Chong Yidong <cyd@stupidchicken.com>
parents: 103015
diff changeset
379
108767
471d9557d537 rcirc update.
Glenn Morris <rgm@gnu.org>
parents: 108765
diff changeset
380 (defvar rcirc-user-name-history nil
471d9557d537 rcirc update.
Glenn Morris <rgm@gnu.org>
parents: 108765
diff changeset
381 "History variable for \\[rcirc] call.")
471d9557d537 rcirc update.
Glenn Morris <rgm@gnu.org>
parents: 108765
diff changeset
382
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
383 ;;;###autoload
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
384 (defun rcirc (arg)
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
385 "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
386
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
387 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
388
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
389 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
390 (interactive "P")
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
391 (if arg
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
392 (let* ((server (completing-read "IRC Server: "
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
393 rcirc-server-alist
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
394 nil nil
103915
b22ca6941b7b * net/rcirc.el (rcirc): Use history variables.
Chong Yidong <cyd@stupidchicken.com>
parents: 103015
diff changeset
395 (caar rcirc-server-alist)
b22ca6941b7b * net/rcirc.el (rcirc): Use history variables.
Chong Yidong <cyd@stupidchicken.com>
parents: 103015
diff changeset
396 'rcirc-server-name-history))
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
397 (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
398 (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
399 (number-to-string
103015
5c993497b6ee * net/rcirc.el (rcirc): Use correct property names (Bug#3037).
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
400 (or (plist-get server-plist :port)
103915
b22ca6941b7b * net/rcirc.el (rcirc): Use history variables.
Chong Yidong <cyd@stupidchicken.com>
parents: 103015
diff changeset
401 rcirc-default-port))
b22ca6941b7b * net/rcirc.el (rcirc): Use history variables.
Chong Yidong <cyd@stupidchicken.com>
parents: 103015
diff changeset
402 'rcirc-server-port-history))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
403 (nick (read-string "IRC Nick: "
103015
5c993497b6ee * net/rcirc.el (rcirc): Use correct property names (Bug#3037).
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
404 (or (plist-get server-plist :nick)
103915
b22ca6941b7b * net/rcirc.el (rcirc): Use history variables.
Chong Yidong <cyd@stupidchicken.com>
parents: 103015
diff changeset
405 rcirc-default-nick)
b22ca6941b7b * net/rcirc.el (rcirc): Use history variables.
Chong Yidong <cyd@stupidchicken.com>
parents: 103015
diff changeset
406 'rcirc-nick-name-history))
108767
471d9557d537 rcirc update.
Glenn Morris <rgm@gnu.org>
parents: 108765
diff changeset
407 (user-name (read-string "IRC Username: "
471d9557d537 rcirc update.
Glenn Morris <rgm@gnu.org>
parents: 108765
diff changeset
408 (or (plist-get server-plist :user-name)
471d9557d537 rcirc update.
Glenn Morris <rgm@gnu.org>
parents: 108765
diff changeset
409 rcirc-default-user-name)
471d9557d537 rcirc update.
Glenn Morris <rgm@gnu.org>
parents: 108765
diff changeset
410 'rcirc-user-name-history))
108952
7ffdaf7a645c * lisp/net/rcirc.el (rcirc-server-alist, rcirc, rcirc-connect): Resolve
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108947
diff changeset
411 (password (read-passwd "IRC Password: " nil
7ffdaf7a645c * lisp/net/rcirc.el (rcirc-server-alist, rcirc, rcirc-connect): Resolve
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108947
diff changeset
412 (plist-get server-plist :password)))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
413 (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
414 (read-string "IRC Channels: "
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
415 (mapconcat 'identity
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
416 (plist-get server-plist
103015
5c993497b6ee * net/rcirc.el (rcirc): Use correct property names (Bug#3037).
Chong Yidong <cyd@stupidchicken.com>
parents: 100908
diff changeset
417 :channels)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
418 " "))
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
419 "[, ]+" t)))
108952
7ffdaf7a645c * lisp/net/rcirc.el (rcirc-server-alist, rcirc, rcirc-connect): Resolve
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108947
diff changeset
420 (rcirc-connect server port nick user-name
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
421 rcirc-default-full-name
108939
dbf3fd5a1594 * lisp/net/rcirc.el: Add support for password authentication.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106815
diff changeset
422 channels password))
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
423 ;; 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
424 (let (connected-servers)
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
425 (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
426 (let ((server (car c))
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
427 (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
428 (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
429 (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
430 rcirc-default-user-name))
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
431 (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
432 rcirc-default-full-name))
108939
dbf3fd5a1594 * lisp/net/rcirc.el: Add support for password authentication.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106815
diff changeset
433 (channels (plist-get (cdr c) :channels))
dbf3fd5a1594 * lisp/net/rcirc.el: Add support for password authentication.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106815
diff changeset
434 (password (plist-get (cdr c) :password)))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
435 (when server
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
436 (let (connected)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
437 (dolist (p (rcirc-process-list))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
438 (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
439 (setq connected p)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
440 (if (not connected)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
441 (condition-case e
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
442 (rcirc-connect server port nick user-name
108939
dbf3fd5a1594 * lisp/net/rcirc.el: Add support for password authentication.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106815
diff changeset
443 full-name channels password)
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
444 (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
445 (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
446 (setq connected-servers
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
447 (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
448 (current-buffer)) :host)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
449 connected-servers))))))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
450 (when connected-servers
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
451 (message "Already connected to %s"
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
452 (if (cdr connected-servers)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
453 (concat (mapconcat 'identity (butlast connected-servers) ", ")
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
454 ", and "
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
455 (car (last connected-servers)))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
456 (car connected-servers)))))))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
457
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
458 ;;;###autoload
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
459 (defalias 'irc 'rcirc)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
460
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
461
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
462 (defvar rcirc-process-output nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
463 (defvar rcirc-topic nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
464 (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
465 (defvar rcirc-last-server-message-time nil)
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
466 (defvar rcirc-server nil) ; server provided by server
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
467 (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
468 (defvar rcirc-timeout-timer nil)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
469 (defvar rcirc-user-disconnect nil)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
470 (defvar rcirc-connecting nil)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
471 (defvar rcirc-process nil)
69694
f712cf2b3ceb (rcirc-connect): Add autoload cookie.
Romain Francoise <romain@orebokech.com>
parents: 69461
diff changeset
472
f712cf2b3ceb (rcirc-connect): Add autoload cookie.
Romain Francoise <romain@orebokech.com>
parents: 69461
diff changeset
473 ;;;###autoload
108952
7ffdaf7a645c * lisp/net/rcirc.el (rcirc-server-alist, rcirc, rcirc-connect): Resolve
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108947
diff changeset
474 (defun rcirc-connect (server &optional port nick user-name
7ffdaf7a645c * lisp/net/rcirc.el (rcirc-server-alist, rcirc, rcirc-connect): Resolve
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108947
diff changeset
475 full-name startup-channels password)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476 (save-excursion
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 (message "Connecting to %s..." server)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478 (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
479 (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
480 (if (stringp port)
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
481 (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
482 port)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
483 rcirc-default-port))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
484 (nick (or nick rcirc-default-nick))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
485 (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
486 (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
487 (startup-channels startup-channels)
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
488 (process (make-network-process :name server :host server :service port-number)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
489 ;; set up process
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
490 (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
491 (switch-to-buffer (rcirc-generate-new-buffer-name process nil))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
492 (set-process-buffer process (current-buffer))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
493 (rcirc-mode process nil)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
494 (set-process-sentinel process 'rcirc-sentinel)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
495 (set-process-filter process 'rcirc-filter)
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
496 (make-local-variable 'rcirc-process)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
497 (setq rcirc-process process)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
498 (make-local-variable 'rcirc-server)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
499 (setq rcirc-server server)
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
500 (make-local-variable 'rcirc-server-name)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
501 (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
502 (make-local-variable 'rcirc-buffer-alist)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
503 (setq rcirc-buffer-alist nil)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504 (make-local-variable 'rcirc-nick-table)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 (setq rcirc-nick-table (make-hash-table :test 'equal))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
506 (make-local-variable 'rcirc-nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 (setq rcirc-nick nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508 (make-local-variable 'rcirc-process-output)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 (setq rcirc-process-output nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 (make-local-variable 'rcirc-startup-channels)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511 (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
512 (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
513 (setq rcirc-last-server-message-time (current-time))
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
514 (make-local-variable 'rcirc-timeout-timer)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
515 (setq rcirc-timeout-timer nil)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
516 (make-local-variable 'rcirc-user-disconnect)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
517 (setq rcirc-user-disconnect nil)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
518 (make-local-variable 'rcirc-connecting)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
519 (setq rcirc-connecting t)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
521 (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
522
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 ;; identify
108939
dbf3fd5a1594 * lisp/net/rcirc.el: Add support for password authentication.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106815
diff changeset
524 (when password
dbf3fd5a1594 * lisp/net/rcirc.el: Add support for password authentication.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106815
diff changeset
525 (rcirc-send-string process (concat "PASS " password)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526 (rcirc-send-string process (concat "NICK " nick))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527 (rcirc-send-string process (concat "USER " user-name
108767
471d9557d537 rcirc update.
Glenn Morris <rgm@gnu.org>
parents: 108765
diff changeset
528 " 0 * :" full-name))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530 ;; setup ping timer if necessary
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
531 (unless rcirc-keepalive-timer
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
532 (setq rcirc-keepalive-timer
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
533 (run-at-time 0 (/ rcirc-timeout-seconds 2) 'rcirc-keepalive)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535 (message "Connecting to %s...done" server)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
536
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
537 ;; return process object
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538 process)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
540 (defmacro with-rcirc-process-buffer (process &rest body)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
541 (declare (indent 1) (debug t))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
542 `(with-current-buffer (process-buffer ,process)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
543 ,@body))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
544
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
545 (defmacro with-rcirc-server-buffer (&rest body)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
546 (declare (indent 0) (debug t))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
547 `(with-current-buffer rcirc-server-buffer
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
548 ,@body))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
549
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
550 (defun rcirc-keepalive ()
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
551 "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
552 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
553 last ping."
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
554 (if (rcirc-process-list)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
555 (mapc (lambda (process)
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
556 (with-rcirc-process-buffer process
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
557 (when (not rcirc-connecting)
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
558 (rcirc-send-string process
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
559 (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
560 rcirc-nick
104795
521d6c4a95a9 (rcirc-keepalive, rcirc-handler-ctcp-KEEPALIVE):
Glenn Morris <rgm@gnu.org>
parents: 103915
diff changeset
561 (if (featurep 'xemacs)
521d6c4a95a9 (rcirc-keepalive, rcirc-handler-ctcp-KEEPALIVE):
Glenn Morris <rgm@gnu.org>
parents: 103915
diff changeset
562 (time-to-seconds
521d6c4a95a9 (rcirc-keepalive, rcirc-handler-ctcp-KEEPALIVE):
Glenn Morris <rgm@gnu.org>
parents: 103915
diff changeset
563 (current-time))
521d6c4a95a9 (rcirc-keepalive, rcirc-handler-ctcp-KEEPALIVE):
Glenn Morris <rgm@gnu.org>
parents: 103915
diff changeset
564 (float-time)))))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
565 (rcirc-process-list))
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
566 ;; no processes, clean up timer
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567 (cancel-timer rcirc-keepalive-timer)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568 (setq rcirc-keepalive-timer nil)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
569
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
570 (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
571 (with-rcirc-process-buffer process
104795
521d6c4a95a9 (rcirc-keepalive, rcirc-handler-ctcp-KEEPALIVE):
Glenn Morris <rgm@gnu.org>
parents: 103915
diff changeset
572 (setq header-line-format (format "%f" (- (if (featurep 'xemacs)
521d6c4a95a9 (rcirc-keepalive, rcirc-handler-ctcp-KEEPALIVE):
Glenn Morris <rgm@gnu.org>
parents: 103915
diff changeset
573 (time-to-seconds
521d6c4a95a9 (rcirc-keepalive, rcirc-handler-ctcp-KEEPALIVE):
Glenn Morris <rgm@gnu.org>
parents: 103915
diff changeset
574 (current-time))
521d6c4a95a9 (rcirc-keepalive, rcirc-handler-ctcp-KEEPALIVE):
Glenn Morris <rgm@gnu.org>
parents: 103915
diff changeset
575 (float-time))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
576 (string-to-number message))))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
577
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
578 (defvar rcirc-debug-buffer " *rcirc debug*")
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
579 (defvar rcirc-debug-flag nil
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
580 "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
581 (defun rcirc-debug (process text)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582 "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
583 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
584 is non-nil."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
585 (when rcirc-debug-flag
105813
df4934f25eef * textmodes/two-column.el (2C-split):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105637
diff changeset
586 (with-current-buffer (get-buffer-create rcirc-debug-buffer)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
587 (goto-char (point-max))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
588 (insert (concat
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
589 "["
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
590 (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
591 "] "
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
592 text)))))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
593
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
594 (defvar rcirc-sentinel-hooks nil
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
595 "Hook functions called when the process sentinel is called.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
596 Functions are called with PROCESS and SENTINEL arguments.")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
597
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
598 (defun rcirc-sentinel (process sentinel)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
599 "Called when PROCESS receives SENTINEL."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
600 (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
601 (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
602 (with-rcirc-process-buffer process
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
603 (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
604 (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
605 (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
606 (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
607 (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
608 sentinel
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
609 (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
610 (rcirc-disconnect-buffer)))
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
611 (run-hook-with-args 'rcirc-sentinel-hooks process sentinel))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
612
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
613 (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
614 (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
615 ;; 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
616 ;; doesnt happen when we reconnect
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
617 (setq rcirc-target nil)
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
618 (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
619
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
620 (defun rcirc-process-list ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
621 "Return a list of rcirc processes."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
622 (let (ps)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
623 (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
624 (when (buffer-live-p (process-buffer p))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
625 (with-rcirc-process-buffer p
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
626 (when (eq major-mode 'rcirc-mode)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
627 (setq ps (cons p ps))))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
628 (process-list))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
629 ps))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
630
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
631 (defvar rcirc-receive-message-hooks nil
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
632 "Hook functions run when a message is received from server.
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
633 Function is called with PROCESS, COMMAND, SENDER, ARGS and LINE.")
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634 (defun rcirc-filter (process output)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
635 "Called when PROCESS receives OUTPUT."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
636 (rcirc-debug process output)
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
637 (rcirc-reschedule-timeout process)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
638 (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
639 (setq rcirc-last-server-message-time (current-time))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
640 (setq rcirc-process-output (concat rcirc-process-output output))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
641 (when (= (aref rcirc-process-output
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
642 (1- (length rcirc-process-output))) ?\n)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
643 (mapc (lambda (line)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
644 (rcirc-process-server-response process line))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
645 (split-string rcirc-process-output "[\n\r]" t))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
646 (setq rcirc-process-output nil))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
647
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
648 (defun rcirc-reschedule-timeout (process)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
649 (with-rcirc-process-buffer process
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
650 (when (not rcirc-connecting)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
651 (with-rcirc-process-buffer process
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
652 (when rcirc-timeout-timer (cancel-timer rcirc-timeout-timer))
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
653 (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
654 'rcirc-delete-process
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
655 process))))))
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
656
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
657 (defun rcirc-delete-process (process)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
658 (delete-process process))
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
659
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
660 (defvar rcirc-trap-errors-flag t)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
661 (defun rcirc-process-server-response (process text)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
662 (if rcirc-trap-errors-flag
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
663 (condition-case err
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
664 (rcirc-process-server-response-1 process text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
665 (error
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
666 (rcirc-print process "RCIRC" "ERROR" nil
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
667 (format "\"%s\" %s" text err) t)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
668 (rcirc-process-server-response-1 process text)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
669
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
670 (defun rcirc-process-server-response-1 (process text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
671 (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
672 (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
673 (sender (rcirc-user-nick user))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
674 (cmd (match-string 3 text))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
675 (args (match-string 4 text))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
676 (handler (intern-soft (concat "rcirc-handler-" cmd))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
677 (string-match "^\\([^:]*\\):?\\(.+\\)?$" args)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
678 (let* ((args1 (match-string 1 args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
679 (args2 (match-string 2 args))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
680 (args (delq nil (append (split-string args1 " " t)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
681 (list args2)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
682 (if (not (fboundp handler))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
683 (rcirc-handler-generic process cmd sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
684 (funcall handler process sender args text))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
685 (run-hook-with-args 'rcirc-receive-message-hooks
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
686 process cmd sender args text)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
687 (message "UNHANDLED: %s" text)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
688
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
689 (defvar rcirc-responses-no-activity '("305" "306")
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
690 "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
691
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
692 (defun rcirc-handler-generic (process response sender args text)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
693 "Generic server response handler."
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
694 (rcirc-print process sender response nil
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
695 (mapconcat 'identity (cdr args) " ")
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
696 (not (member response rcirc-responses-no-activity))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
697
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
698 (defun rcirc-send-string (process string)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
699 "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
700 (let ((string (concat (encode-coding-string string rcirc-encode-coding-system)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
701 "\n")))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
702 (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
703 (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
704 (process-name process)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
705 (rcirc-debug process string)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
706 (process-send-string process string)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
707
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
708 (defun rcirc-buffer-process (&optional buffer)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
709 "Return the process associated with channel BUFFER.
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
710 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
711 (or (get-buffer-process (if buffer
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
712 (with-current-buffer buffer
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
713 rcirc-server-buffer)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
714 rcirc-server-buffer))
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
715 rcirc-process))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
716
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
717 (defun rcirc-server-name (process)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
718 "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
719 (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
720 (or rcirc-server-name
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
721 (warn "server name for process %S unknown" process))))
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 (defun rcirc-nick (process)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
724 "Return PROCESS nick."
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
725 (with-rcirc-process-buffer process
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
726 (or rcirc-nick rcirc-default-nick)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
727
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
728 (defun rcirc-buffer-nick (&optional buffer)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
729 "Return the nick associated with BUFFER.
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
730 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
731 (with-current-buffer (or buffer (current-buffer))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
732 (with-current-buffer rcirc-server-buffer
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
733 (or rcirc-nick rcirc-default-nick))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
734
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
735 (defvar rcirc-max-message-length 420
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
736 "Messages longer than this value will be split.")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
737
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
738 (defun rcirc-send-message (process target message &optional noticep silent)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
739 "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
740 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
741 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
742 ;; max message length is 512 including CRLF
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
743 (let* ((response (if noticep "NOTICE" "PRIVMSG"))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
744 (oversize (> (length message) rcirc-max-message-length))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
745 (text (if oversize
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
746 (substring message 0 rcirc-max-message-length)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
747 message))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
748 (text (if (string= text "")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
749 " "
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
750 text))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
751 (more (if oversize
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
752 (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
753 (rcirc-get-buffer-create process target)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
754 (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
755 (unless silent
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
756 (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
757 (when more (rcirc-send-message process target more noticep))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
758
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
759 (defvar rcirc-input-ring nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
760 (defvar rcirc-input-ring-index 0)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
761 (defun rcirc-prev-input-string (arg)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
762 (ring-ref rcirc-input-ring (+ rcirc-input-ring-index arg)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
763
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
764 (defun rcirc-insert-prev-input (arg)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
765 (interactive "p")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
766 (when (<= rcirc-prompt-end-marker (point))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
767 (delete-region rcirc-prompt-end-marker (point-max))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
768 (insert (rcirc-prev-input-string 0))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
769 (setq rcirc-input-ring-index (1+ rcirc-input-ring-index))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
770
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
771 (defun rcirc-insert-next-input (arg)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
772 (interactive "p")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
773 (when (<= rcirc-prompt-end-marker (point))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
774 (delete-region rcirc-prompt-end-marker (point-max))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
775 (setq rcirc-input-ring-index (1- rcirc-input-ring-index))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
776 (insert (rcirc-prev-input-string -1))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
777
110313
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
778 (defvar rcirc-server-commands
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
779 '("/admin" "/away" "/connect" "/die" "/error" "/info"
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
780 "/invite" "/ison" "/join" "/kick" "/kill" "/links"
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
781 "/list" "/lusers" "/mode" "/motd" "/names" "/nick"
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
782 "/notice" "/oper" "/part" "/pass" "/ping" "/pong"
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
783 "/privmsg" "/quit" "/rehash" "/restart" "/service" "/servlist"
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
784 "/server" "/squery" "/squit" "/stats" "/summon" "/time"
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
785 "/topic" "/trace" "/user" "/userhost" "/users" "/version"
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
786 "/wallops" "/who" "/whois" "/whowas")
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
787 "A list of user commands by IRC server.
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
788 The value defaults to RFCs 1459 and 2812.")
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
789
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
790 ;; /me and /ctcp are not defined by `defun-rcirc-command'.
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
791 (defvar rcirc-client-commands '("/me" "/ctcp")
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
792 "A list of user commands defined by IRC client rcirc.
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
793 The list is updated automatically by `defun-rcirc-command'.")
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
794
110313
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
795 (defun rcirc-completion-at-point ()
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
796 "Function used for `completion-at-point-functions' in `rcirc-mode'."
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
797 (let* ((beg (save-excursion
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
798 (if (re-search-backward " " rcirc-prompt-end-marker t)
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
799 (1+ (point))
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
800 rcirc-prompt-end-marker)))
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
801 (table (if (and (= beg rcirc-prompt-end-marker)
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
802 (eq (char-after beg) ?/))
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
803 (delete-dups
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
804 (nconc
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
805 (sort (copy-sequence rcirc-client-commands) 'string-lessp)
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
806 (sort (copy-sequence rcirc-server-commands) 'string-lessp)))
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
807 (rcirc-channel-nicks (rcirc-buffer-process) rcirc-target))))
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
808 (list beg (point) table)))
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
809
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
810 (defvar rcirc-completions nil)
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
811 (defvar rcirc-completion-start nil)
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
812
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
813 (defun rcirc-complete ()
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
814 "Cycle through completions from list of nicks in channel or IRC commands.
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
815 IRC command completion is performed only if '/' is the first input char."
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
816 (interactive)
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
817 (if (eq last-command this-command)
110313
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
818 (setq rcirc-completions
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
819 (append (cdr rcirc-completions) (list (car rcirc-completions))))
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
820 (let ((completion-ignore-case t)
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
821 (table (rcirc-completion-at-point)))
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
822 (setq rcirc-completion-start (car table))
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
823 (setq rcirc-completions
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
824 (all-completions (buffer-substring rcirc-completion-start
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
825 (cadr table))
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
826 (nth 2 table)))))
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
827 (let ((completion (car rcirc-completions)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
828 (when completion
110313
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
829 (delete-region rcirc-completion-start (point))
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
830 (insert
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
831 (concat completion
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
832 (cond
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
833 ((= (aref completion 0) ?/) " ")
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
834 ((= rcirc-completion-start rcirc-prompt-end-marker) ": ")
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
835 (t "")))))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
836
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
837 (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
838 "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
839 (interactive "zCoding system for incoming messages: ")
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
840 (setq rcirc-decode-coding-system coding-system))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
841
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
842 (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
843 "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
844 (interactive "zCoding system for outgoing messages: ")
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
845 (setq rcirc-encode-coding-system coding-system))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
846
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
847 (defvar rcirc-mode-map (make-sparse-keymap)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
848 "Keymap for rcirc mode.")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
849
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
850 (define-key rcirc-mode-map (kbd "RET") 'rcirc-send-input)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
851 (define-key rcirc-mode-map (kbd "M-p") 'rcirc-insert-prev-input)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
852 (define-key rcirc-mode-map (kbd "M-n") 'rcirc-insert-next-input)
110313
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
853 (define-key rcirc-mode-map (kbd "TAB") 'rcirc-complete)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
854 (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
855 (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
856 (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
857 (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
858 (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
859 (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
860 (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
861 (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
862 (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
863 (define-key rcirc-mode-map (kbd "M-o") 'rcirc-omit-mode)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
864 (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
865 (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
866 (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
867 (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
868 (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
869 (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
870 (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
871 'rcirc-toggle-ignore-buffer-activity)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
872 (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
873 (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
874
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
875 (defvar rcirc-browse-url-map (make-sparse-keymap)
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
876 "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
877
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
878 (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
879 (define-key rcirc-browse-url-map (kbd "<mouse-2>") 'rcirc-browse-url-at-mouse)
106707
51aa25e5e86b * lisp/net/rcirc.el: Add follow-link binding (Bug#4738).
Chong Yidong <cyd@stupidchicken.com>
parents: 105813
diff changeset
880 (define-key rcirc-browse-url-map [follow-link] 'mouse-face)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
881
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
882 (defvar rcirc-short-buffer-name nil
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
883 "Generated abbreviation to use to indicate buffer activity.")
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
884
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
885 (defvar rcirc-mode-hook nil
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
886 "Hook run when setting up rcirc buffer.")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
887
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
888 (defvar rcirc-last-post-time nil)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
889
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
890 (defvar rcirc-log-alist nil
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
891 "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
892 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
893
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
894 (defvar rcirc-current-line 0
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
895 "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
896 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
897
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
898 (defun rcirc-mode (process target)
112213
6e613fbf73d7 Use run-mode-hooks for major mode hooks.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110313
diff changeset
899 ;; FIXME: Use define-derived-mode.
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
900 "Major mode for IRC channel buffers.
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
901
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
902 \\{rcirc-mode-map}"
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
903 (kill-all-local-variables)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
904 (use-local-map rcirc-mode-map)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
905 (setq mode-name "rcirc")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
906 (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
907 (setq mode-line-process nil)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
908
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
909 (make-local-variable 'rcirc-input-ring)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
910 (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
911 (make-local-variable 'rcirc-server-buffer)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
912 (setq rcirc-server-buffer (process-buffer process))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
913 (make-local-variable 'rcirc-target)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
914 (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
915 (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
916 (setq rcirc-topic nil)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
917 (make-local-variable 'rcirc-last-post-time)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
918 (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
919 (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
920 (setq fill-paragraph-function 'rcirc-fill-paragraph)
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
921 (make-local-variable 'rcirc-recent-quit-alist)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
922 (setq rcirc-recent-quit-alist nil)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
923 (make-local-variable 'rcirc-current-line)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
924 (setq rcirc-current-line 0)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
925
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
926 (make-local-variable 'rcirc-short-buffer-name)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
927 (setq rcirc-short-buffer-name nil)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
928 (make-local-variable 'rcirc-urls)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
929 (setq use-hard-newlines t)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
930
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
931 ;; setup for omitting responses
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
932 (setq buffer-invisibility-spec '())
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
933 (setq buffer-display-table (make-display-table))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
934 (set-display-table-slot buffer-display-table 4
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
935 (let ((glyph (make-glyph-code
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
936 ?. 'font-lock-keyword-face)))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
937 (make-vector 3 glyph)))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
938
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
939 (make-local-variable 'rcirc-decode-coding-system)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
940 (make-local-variable 'rcirc-encode-coding-system)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
941 (dolist (i rcirc-coding-system-alist)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
942 (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
943 (serv (if (consp (car i)) (cdar i) "")))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
944 (when (and (string-match chan (or target ""))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
945 (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
946 (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
947 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
948
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
949 ;; setup the prompt and markers
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
950 (make-local-variable 'rcirc-prompt-start-marker)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
951 (setq rcirc-prompt-start-marker (make-marker))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
952 (set-marker rcirc-prompt-start-marker (point-max))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
953 (make-local-variable 'rcirc-prompt-end-marker)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
954 (setq rcirc-prompt-end-marker (make-marker))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
955 (set-marker rcirc-prompt-end-marker (point-max))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
956 (rcirc-update-prompt)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
957 (goto-char rcirc-prompt-end-marker)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
958 (make-local-variable 'overlay-arrow-position)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
959 (setq overlay-arrow-position (make-marker))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
960 (set-marker overlay-arrow-position nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
961
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
962 ;; 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
963 ;; cleanup work to do
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
964 (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
965 (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
966
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
967 ;; add to buffer list, and update buffer abbrevs
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
968 (when target ; skip server buffer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
969 (let ((buffer (current-buffer)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
970 (with-rcirc-process-buffer process
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
971 (setq rcirc-buffer-alist (cons (cons target buffer)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
972 rcirc-buffer-alist))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
973 (rcirc-update-short-buffer-names))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
974
110313
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
975 (add-hook 'completion-at-point-functions
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
976 'rcirc-completion-at-point nil 'local)
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
977
112213
6e613fbf73d7 Use run-mode-hooks for major mode hooks.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110313
diff changeset
978 (run-mode-hooks 'rcirc-mode-hook))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
979
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
980 (defun rcirc-update-prompt (&optional all)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
981 "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
982
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
983 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
984 (if all
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
985 (mapc (lambda (process)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
986 (mapc (lambda (buffer)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
987 (with-current-buffer buffer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
988 (rcirc-update-prompt)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
989 (with-rcirc-process-buffer process
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
990 (mapcar 'cdr rcirc-buffer-alist))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
991 (rcirc-process-list))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
992 (let ((inhibit-read-only t)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
993 (prompt (or rcirc-prompt "")))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
994 (mapc (lambda (rep)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
995 (setq prompt
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
996 (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
997 (list (cons "%n" (rcirc-buffer-nick))
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
998 (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
999 (cons "%t" (or rcirc-target ""))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1000 (save-excursion
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1001 (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
1002 (goto-char rcirc-prompt-start-marker)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1003 (let ((start (point)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1004 (insert-before-markers prompt)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1005 (set-marker rcirc-prompt-start-marker start)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1006 (when (not (zerop (- rcirc-prompt-end-marker
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1007 rcirc-prompt-start-marker)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1008 (add-text-properties rcirc-prompt-start-marker
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1009 rcirc-prompt-end-marker
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1010 (list 'face 'rcirc-prompt
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1011 'read-only t 'field t
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1012 'front-sticky t 'rear-nonsticky t))))))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1013
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1014 (defun rcirc-set-changed (option value)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1015 "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
1016 (set-default option value)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1017 (cond ((eq option 'rcirc-prompt)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1018 (rcirc-update-prompt 'all))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1019 (t
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1020 (error "Bad option %s" option))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1021
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1022 (defun rcirc-channel-p (target)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1023 "Return t if TARGET is a channel name."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1024 (and target
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1025 (not (zerop (length target)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1026 (or (eq (aref target 0) ?#)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1027 (eq (aref target 0) ?&))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1028
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1029 (defun rcirc-kill-buffer-hook ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1030 "Part the channel when killing an rcirc buffer."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1031 (when (eq major-mode 'rcirc-mode)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1032 (rcirc-clean-up-buffer "Killed buffer")))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1033
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1034 (defun rcirc-change-major-mode-hook ()
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1035 "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
1036 (rcirc-clean-up-buffer "Changed major mode"))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1037
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1038 (defun rcirc-clean-up-buffer (reason)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1039 (let ((buffer (current-buffer)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1040 (rcirc-clear-activity buffer)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1041 (when (and (rcirc-buffer-process)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1042 (eq (process-status (rcirc-buffer-process)) 'open))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1043 (with-rcirc-server-buffer
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1044 (setq rcirc-buffer-alist
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1045 (rassq-delete-all buffer rcirc-buffer-alist)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1046 (rcirc-update-short-buffer-names)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1047 (if (rcirc-channel-p rcirc-target)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1048 (rcirc-send-string (rcirc-buffer-process)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1049 (concat "PART " rcirc-target " :" reason))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1050 (when rcirc-target
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1051 (rcirc-remove-nick-channel (rcirc-buffer-process)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1052 (rcirc-buffer-nick)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1053 rcirc-target))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1054 (setq rcirc-target nil)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1055
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1056 (defun rcirc-generate-new-buffer-name (process target)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1057 "Return a buffer name based on PROCESS and TARGET.
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
1058 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
1059 (substring-no-properties
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1060 (if target
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1061 (concat target "@" (process-name process))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1062 (concat "*" (process-name process) "*"))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1063
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1064 (defun rcirc-get-buffer (process target &optional server)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1065 "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
1066
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1067 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
1068 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
1069 (with-rcirc-process-buffer process
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1070 (if (null target)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1071 (current-buffer)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1072 (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
1073 (or buffer (when server (current-buffer)))))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1074
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1075 (defun rcirc-get-buffer-create (process target)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1076 "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
1077 Create the buffer if it doesn't exist."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1078 (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
1079 (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
1080 (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
1081 (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
1082 (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
1083 buffer)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1084 ;; create the buffer
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1085 (with-rcirc-process-buffer process
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1086 (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
1087 (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
1088 (with-current-buffer new-buffer
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1089 (rcirc-mode process target)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1090 (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
1091 rcirc-current-line))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1092 new-buffer)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1093
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1094 (defun rcirc-send-input ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1095 "Send input to target associated with the current buffer."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1096 (interactive)
68077
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1097 (if (< (point) rcirc-prompt-end-marker)
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1098 ;; 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
1099 (progn
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1100 (forward-line 0)
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1101 (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
1102 (point)
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1103 (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
1104 (point)
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1105 (previous-single-property-change (point) 'hard))))
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1106 (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
1107 (goto-char (point-max))
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1108 (insert (replace-regexp-in-string
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1109 "\n\\s-+" " "
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1110 (buffer-substring-no-properties start end)))))
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1111 ;; process input
7e0fcbf84eb8 (rcirc-send-input): No longer check whether the
Alex Schroeder <alex@gnu.org>
parents: 67014
diff changeset
1112 (goto-char (point-max))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1113 (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
1114 ;; delete a trailing newline
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1115 (when (eq (point) (point-at-bol))
110113
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
1116 (delete-char -1))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1117 (let ((input (buffer-substring-no-properties
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1118 rcirc-prompt-end-marker (point))))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1119 (dolist (line (split-string input "\n"))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1120 (rcirc-process-input-line line))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1121 ;; add to input-ring
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1122 (save-excursion
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1123 (ring-insert rcirc-input-ring input)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1124 (setq rcirc-input-ring-index 0))))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1125
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1126 (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
1127 (interactive "p")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1128 (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
1129 (save-restriction
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1130 (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
1131 (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
1132 (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
1133
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1134 (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
1135 (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
1136 (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
1137 (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
1138 line)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1139 (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
1140
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1141 (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
1142 (if (not rcirc-target)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1143 (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
1144 (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
1145 (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
1146 (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
1147
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1148 (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
1149 (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
1150 ;; "//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
1151 (rcirc-process-message (substring line 1))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1152 (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
1153 (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
1154 (newline)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1155 (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
1156 (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
1157 (if (string= command "me")
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1158 (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
1159 "ACTION" rcirc-target args)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1160 (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
1161 "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
1162 (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
1163 (if (fboundp fun)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1164 (funcall fun args process rcirc-target)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1165 (rcirc-send-string process
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1166 (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
1167
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1168 (defvar rcirc-parent-buffer nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1169 (defvar rcirc-window-configuration nil)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1170 (defun rcirc-edit-multiline ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1171 "Move current edit to a dedicated buffer."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1172 (interactive)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1173 (let ((pos (1+ (- (point) rcirc-prompt-end-marker))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1174 (goto-char (point-max))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1175 (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
1176 (point)))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1177 (parent (buffer-name)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1178 (delete-region rcirc-prompt-end-marker (point))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1179 (setq rcirc-window-configuration (current-window-configuration))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1180 (pop-to-buffer (concat "*multiline " parent "*"))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1181 (funcall rcirc-multiline-major-mode)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1182 (rcirc-multiline-minor-mode 1)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1183 (setq rcirc-parent-buffer parent)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1184 (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
1185 (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
1186 (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
1187
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1188 (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
1189 "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
1190 (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
1191 (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
1192 (define-key rcirc-multiline-minor-mode-map
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1193 (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
1194 (define-key rcirc-multiline-minor-mode-map
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1195 (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
1196 (define-key rcirc-multiline-minor-mode-map
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1197 (kbd "ESC ESC ESC") 'rcirc-multiline-minor-cancel)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1198
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1199 (define-minor-mode rcirc-multiline-minor-mode
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1200 "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
1201 :init-value nil
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1202 :lighter " rcirc-mline"
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1203 :keymap rcirc-multiline-minor-mode-map
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1204 :global nil
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1205 :group 'rcirc
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1206 (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
1207 (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
1208 (setq fill-column rcirc-max-message-length))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1209
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1210 (defun rcirc-multiline-minor-submit ()
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1211 "Send the text in buffer back to parent buffer."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1212 (interactive)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1213 (untabify (point-min) (point-max))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1214 (let ((text (buffer-substring (point-min) (point-max)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1215 (buffer (current-buffer))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1216 (pos (point)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1217 (set-buffer rcirc-parent-buffer)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1218 (goto-char (point-max))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1219 (insert text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1220 (kill-buffer buffer)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1221 (set-window-configuration rcirc-window-configuration)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1222 (goto-char (+ rcirc-prompt-end-marker (1- pos)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1223
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1224 (defun rcirc-multiline-minor-cancel ()
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1225 "Cancel the multiline edit."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1226 (interactive)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1227 (kill-buffer (current-buffer))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1228 (set-window-configuration rcirc-window-configuration))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1229
68960
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1230 (defun rcirc-any-buffer (process)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1231 "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
1232 (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
1233 (process-buffer process)
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1234 (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
1235 (if (and buffer
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1236 (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
1237 (and (eq major-mode 'rcirc-mode)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1238 (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
1239 buffer
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1240 (process-buffer process)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1241
68807
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1242 (defcustom rcirc-response-formats
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1243 '(("PRIVMSG" . "<%N> %m")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1244 ("NOTICE" . "-%N- %m")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1245 ("ACTION" . "[%N %m]")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1246 ("COMMAND" . "%m")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1247 ("ERROR" . "%fw!!! %m")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1248 (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
1249 "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
1250 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
1251 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
1252
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1253 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
1254 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
1255
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1256 %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
1257 %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
1258 %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
1259 %r The response-type
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1260 %t The target
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1261 %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
1262 %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
1263 %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
1264 %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
1265 %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
1266 %% A literal `%' character"
68807
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1267 :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
1268 (const :tag "Default" t))
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1269 :value-type string)
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1270 :group 'rcirc)
7ba97c461db7 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-69
Miles Bader <miles@gnu.org>
parents: 68731
diff changeset
1271
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1272 (defcustom rcirc-omit-responses
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1273 '("JOIN" "PART" "QUIT" "NICK")
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1274 "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
1275 :type '(repeat string)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1276 :group 'rcirc)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1277
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1278 (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
1279 "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
1280 \(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
1281 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
1282 (with-temp-buffer
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1283 (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
1284 (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
1285 (goto-char (point-min))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1286 (let ((start (point-min))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1287 (sender (if (or (not sender)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1288 (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
1289 ""
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1290 sender))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1291 face)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1292 (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
1293 (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
1294 (setq start (match-beginning 0))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1295 (replace-match
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1296 (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
1297 (?f (setq face
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1298 (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
1299 (?w 'font-lock-warning-face)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1300 (?p 'rcirc-server-prefix)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1301 (?s 'rcirc-server)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1302 (t nil)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1303 "")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1304 (?n sender)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1305 (?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
1306 (save-match-data
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1307 (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
1308 (rcirc-facify sender
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1309 (cond ((string= sender my-nick)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1310 'rcirc-my-nick)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1311 ((and rcirc-bright-nicks
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1312 (string-match
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1313 (regexp-opt rcirc-bright-nicks
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1314 'words)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1315 sender))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1316 'rcirc-bright-nick)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1317 ((and rcirc-dim-nicks
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1318 (string-match
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1319 (regexp-opt rcirc-dim-nicks
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1320 'words)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1321 sender))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1322 'rcirc-dim-nick)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1323 (t
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1324 'rcirc-other-nick)))))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1325 (?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
1326 (?r response)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1327 (?t (or target ""))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1328 (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
1329 t t nil 0)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1330 (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
1331 (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
1332 (buffer-substring (point-min) (point-max))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1333
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1334 (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
1335 "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
1336 (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
1337 (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
1338 (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
1339 (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
1340 ((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
1341 ;; message from another user
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1342 (if (or (string= response "PRIVMSG")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1343 (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
1344 (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
1345 target
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1346 sender))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1347 (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
1348 ((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
1349 (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
1350
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1351 (defvar rcirc-activity-types nil)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1352 (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
1353 (defvar rcirc-last-sender nil)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1354 (make-variable-buffer-local 'rcirc-last-sender)
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1355
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1356 (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
1357 "Directory to keep IRC logfiles."
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1358 :type 'directory
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1359 :group 'rcirc)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1360
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1361 (defcustom rcirc-log-flag nil
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1362 "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
1363 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
1364 :type 'boolean
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1365 :group 'rcirc)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1366
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1367 (defcustom rcirc-omit-threshold 100
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1368 "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
1369 :type 'integer
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1370 :group 'rcirc)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1371
109803
2e3c8eb668ba Don't always log RCIRC process buffers to disk (Bug#6828).
Chong Yidong <cyd@stupidchicken.com>
parents: 108952
diff changeset
1372 (defcustom rcirc-log-process-buffers nil
2e3c8eb668ba Don't always log RCIRC process buffers to disk (Bug#6828).
Chong Yidong <cyd@stupidchicken.com>
parents: 108952
diff changeset
1373 "Non-nil if rcirc process buffers should be logged to disk."
2e3c8eb668ba Don't always log RCIRC process buffers to disk (Bug#6828).
Chong Yidong <cyd@stupidchicken.com>
parents: 108952
diff changeset
1374 :group 'rcirc
2e3c8eb668ba Don't always log RCIRC process buffers to disk (Bug#6828).
Chong Yidong <cyd@stupidchicken.com>
parents: 108952
diff changeset
1375 :type 'boolean
2e3c8eb668ba Don't always log RCIRC process buffers to disk (Bug#6828).
Chong Yidong <cyd@stupidchicken.com>
parents: 108952
diff changeset
1376 :version "24.1")
2e3c8eb668ba Don't always log RCIRC process buffers to disk (Bug#6828).
Chong Yidong <cyd@stupidchicken.com>
parents: 108952
diff changeset
1377
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1378 (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
1379 "Return the line number where NICK left TARGET.
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1380 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
1381 (let ((chanbuf (rcirc-get-buffer process target)))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1382 (when chanbuf
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1383 (cdr (assoc-string nick (with-current-buffer chanbuf
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1384 rcirc-recent-quit-alist))))))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1385
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1386 (defun rcirc-last-line (process nick target)
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1387 "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
1388 (let* ((chanbuf (rcirc-get-buffer process target))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1389 (line (or (cdr (assoc-string target
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1390 (gethash nick (with-rcirc-server-buffer
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1391 rcirc-nick-table)) t))
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1392 (rcirc-last-quit-line process nick target))))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1393 (if line
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1394 line
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1395 ;;(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
1396 nil)))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1397
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1398 (defun rcirc-elapsed-lines (process nick target)
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1399 "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
1400 (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
1401 (when (and last-activity-line
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1402 (> last-activity-line 0))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1403 (- rcirc-current-line last-activity-line))))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1404
85500
0dcd1f3c9909 * textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82140
diff changeset
1405 (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
1406 '(rcirc-markup-attributes
0dcd1f3c9909 * textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82140
diff changeset
1407 rcirc-markup-my-nick
0dcd1f3c9909 * textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82140
diff changeset
1408 rcirc-markup-urls
0dcd1f3c9909 * textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82140
diff changeset
1409 rcirc-markup-keywords
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1410 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
1411
0dcd1f3c9909 * textmodes/reftex.el: Move require easymenu before first use.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 82140
diff changeset
1412 "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
1413
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1414 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
1415 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
1416 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
1417
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1418 (defun rcirc-print (process sender response target text &optional activity)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1419 "Print TEXT in the buffer associated with TARGET.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1420 Format based on SENDER and RESPONSE. If ACTIVITY is non-nil,
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1421 record activity."
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1422 (or text (setq text ""))
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1423 (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
1424 (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
1425 (when (string-match "^\\([^/]\\w*\\)[:,]" text)
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1426 (match-string 1 text)))
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1427 rcirc-ignore-list))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1428 ;; do not ignore if we sent the message
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1429 (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
1430 (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
1431 (inhibit-read-only t))
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1432 (with-current-buffer buffer
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1433 (let ((moving (= (point) rcirc-prompt-end-marker))
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1434 (old-point (point-marker))
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1435 (fill-start (marker-position rcirc-prompt-start-marker)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1436
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1437 (unless (string= sender (rcirc-nick process))
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1438 ;; 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
1439 (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
1440 ;; mark the line with overlay arrow
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1441 (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
1442 (get-buffer-window (current-buffer))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1443 (member response rcirc-omit-responses))
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1444 (set-marker overlay-arrow-position
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1445 (marker-position rcirc-prompt-start-marker))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1446
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1447 ;; temporarily set the marker insertion-type because
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1448 ;; 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
1449 (goto-char rcirc-prompt-start-marker)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1450 (set-marker-insertion-type rcirc-prompt-start-marker t)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1451 (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
1452
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1453 (let ((start (point)))
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1454 (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
1455 text)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1456 (propertize "\n" 'hard t))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1457
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1458 ;; 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
1459 (fill-region fill-start
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1460 (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
1461 'rcirc-text)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1462 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
1463
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1464 ;; run markup functions
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1465 (save-excursion
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1466 (save-restriction
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1467 (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
1468 (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
1469 (point)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1470 (when (rcirc-buffer-process)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1471 (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
1472 (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
1473 (save-excursion (funcall fn sender response)))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1474 (when rcirc-fill-flag
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1475 (save-excursion (rcirc-markup-fill sender response))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1476
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1477 (when rcirc-read-only-flag
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1478 (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
1479 '(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
1480 ;; make text omittable
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1481 (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
1482 (if (and (not (string= (rcirc-nick process) sender))
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1483 (member response rcirc-omit-responses)
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1484 (or (not last-activity-lines)
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1485 (< rcirc-omit-threshold last-activity-lines)))
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1486 (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
1487 'invisible 'rcirc-omit)
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1488 ;; otherwise increment the line count
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
1489 (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
1490
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1491 (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
1492 (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
1493
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1494 ;; truncate buffer if it is very long
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1495 (save-excursion
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1496 (when (and rcirc-buffer-maximum-lines
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1497 (> rcirc-buffer-maximum-lines 0)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1498 (= (forward-line (- rcirc-buffer-maximum-lines)) 0))
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1499 (delete-region (point-min) (point))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1500
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1501 ;; set the window point for buffers show in windows
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1502 (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
1503 (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
1504 (eq (current-buffer)
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1505 (window-buffer w))
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1506 (>= (window-point w)
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1507 rcirc-prompt-end-marker))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1508 (set-window-point w (point-max))))
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1509 nil t)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1510
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1511 ;; restore the point
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1512 (goto-char (if moving rcirc-prompt-end-marker old-point))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1513
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1514 ;; 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
1515 (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
1516 (walk-windows (lambda (w)
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1517 (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
1518 (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
1519 (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
1520 (with-selected-window w
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1521 (when (<= (- (window-height)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1522 (count-screen-lines (window-point)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1523 (window-start))
72836
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1524 1)
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1525 0)
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1526 (recenter -1)))))))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1527 nil t))
72836
7e254a2d157c * net/rcirc.el (rcirc-scroll-show-maximum-output): Rename from
Chong Yidong <cyd@stupidchicken.com>
parents: 72699
diff changeset
1528
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1529 ;; flush undo (can we do something smarter here?)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1530 (buffer-disable-undo)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1531 (buffer-enable-undo))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1532
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1533 ;; record modeline activity
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1534 (when (and activity
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1535 (not rcirc-ignore-buffer-activity-flag)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1536 (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
1537 (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
1538 (rcirc-channel-p target))))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1539 (rcirc-record-activity (current-buffer)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1540 (when (not (rcirc-channel-p rcirc-target))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1541 'nick)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1542
109803
2e3c8eb668ba Don't always log RCIRC process buffers to disk (Bug#6828).
Chong Yidong <cyd@stupidchicken.com>
parents: 108952
diff changeset
1543 (when (and rcirc-log-flag
2e3c8eb668ba Don't always log RCIRC process buffers to disk (Bug#6828).
Chong Yidong <cyd@stupidchicken.com>
parents: 108952
diff changeset
1544 (or target
2e3c8eb668ba Don't always log RCIRC process buffers to disk (Bug#6828).
Chong Yidong <cyd@stupidchicken.com>
parents: 108952
diff changeset
1545 rcirc-log-process-buffers))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1546 (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
1547
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1548 (sit-for 0) ; displayed text before hook
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1549 (run-hook-with-args 'rcirc-print-hooks
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1550 process sender response target text)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1551
109803
2e3c8eb668ba Don't always log RCIRC process buffers to disk (Bug#6828).
Chong Yidong <cyd@stupidchicken.com>
parents: 108952
diff changeset
1552 (defun rcirc-generate-log-filename (process target)
2e3c8eb668ba Don't always log RCIRC process buffers to disk (Bug#6828).
Chong Yidong <cyd@stupidchicken.com>
parents: 108952
diff changeset
1553 (if target
2e3c8eb668ba Don't always log RCIRC process buffers to disk (Bug#6828).
Chong Yidong <cyd@stupidchicken.com>
parents: 108952
diff changeset
1554 (rcirc-generate-new-buffer-name process target)
2e3c8eb668ba Don't always log RCIRC process buffers to disk (Bug#6828).
Chong Yidong <cyd@stupidchicken.com>
parents: 108952
diff changeset
1555 (process-name process)))
2e3c8eb668ba Don't always log RCIRC process buffers to disk (Bug#6828).
Chong Yidong <cyd@stupidchicken.com>
parents: 108952
diff changeset
1556
2e3c8eb668ba Don't always log RCIRC process buffers to disk (Bug#6828).
Chong Yidong <cyd@stupidchicken.com>
parents: 108952
diff changeset
1557 (defcustom rcirc-log-filename-function 'rcirc-generate-log-filename
87520
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1558 "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
1559
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1560 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
1561 `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
1562 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
1563 session.
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1564
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1565 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
1566 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
1567 file is put into `rcirc-log-directory'."
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1568 :group 'rcirc
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1569 :type 'function)
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1570
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1571 (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
1572 "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
1573 (let ((filename (funcall rcirc-log-filename-function process target)))
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1574 (unless (null filename)
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1575 (let ((cell (assoc-string filename rcirc-log-alist))
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1576 (line (concat (format-time-string rcirc-time-format)
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1577 (substring-no-properties
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1578 (rcirc-format-response-string process sender
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1579 response target text))
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1580 "\n")))
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1581 (if cell
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1582 (setcdr cell (concat (cdr cell) line))
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1583 (setq rcirc-log-alist
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1584 (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
1585
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1586 (defun rcirc-log-write ()
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1587 "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
1588
87520
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1589 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
1590 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
1591 (dolist (cell rcirc-log-alist)
87520
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1592 (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
1593 (coding-system-for-write 'utf-8))
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1594 (make-directory (file-name-directory filename) t)
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1595 (with-temp-buffer
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1596 (insert (cdr cell))
f5ab33e0dc01 Make rcirc logging more customizable
Miles Bader <miles@gnu.org>
parents: 87170
diff changeset
1597 (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
1598 (setq rcirc-log-alist nil))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1599
105611
01e892771abe Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 105372
diff changeset
1600 (defun rcirc-view-log-file ()
01e892771abe Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 105372
diff changeset
1601 "View logfile corresponding to the current buffer."
01e892771abe Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 105372
diff changeset
1602 (interactive)
01e892771abe Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 105372
diff changeset
1603 (find-file-other-window
01e892771abe Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 105372
diff changeset
1604 (expand-file-name (funcall rcirc-log-filename-function
01e892771abe Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 105372
diff changeset
1605 (rcirc-buffer-process) rcirc-target)
01e892771abe Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 105372
diff changeset
1606 rcirc-log-directory)))
01e892771abe Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 105372
diff changeset
1607
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1608 (defun rcirc-join-channels (process channels)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1609 "Join CHANNELS."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1610 (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
1611 (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
1612 (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
1613 (rcirc-cmd-join channel process)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1614
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1615 ;;; nick management
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
1616 (defvar rcirc-nick-prefix-chars "~&@%+")
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1617 (defun rcirc-user-nick (user)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1618 "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
1619 (save-match-data
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
1620 (if (string-match (concat "^[" rcirc-nick-prefix-chars
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
1621 "]?\\([^! ]+\\)!?") (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
1622 (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
1623 user)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1624
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1625 (defun rcirc-nick-channels (process nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1626 "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
1627 (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
1628 (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
1629 (gethash nick rcirc-nick-table))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1630
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1631 (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
1632 "Add CHANNEL to list associated with NICK.
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1633 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
1634
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1635 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
1636 to zero."
68960
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1637 (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
1638 (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
1639 (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
1640 (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
1641 (if record
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1642 (when line (setcdr record line))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1643 (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
1644 chans)
6e3160901812 (rcirc-connect): Make all arguments optional, and default to global variable
Eli Zaretskii <eliz@gnu.org>
parents: 68838
diff changeset
1645 rcirc-nick-table))))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1646
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1647 (defun rcirc-nick-remove (process nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1648 "Remove NICK from table."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1649 (with-rcirc-process-buffer process
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1650 (remhash nick rcirc-nick-table)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1651
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1652 (defun rcirc-remove-nick-channel (process nick channel)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1653 "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
1654 (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
1655 (let* ((chans (gethash nick rcirc-nick-table))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1656 (newchans
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1657 ;; instead of assoc-string-delete-all:
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1658 (let ((record (assoc-string channel chans t)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1659 (when record
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1660 (setcar record 'delete)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1661 (assq-delete-all 'delete chans)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1662 (if newchans
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1663 (puthash nick newchans rcirc-nick-table)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1664 (remhash nick rcirc-nick-table)))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1665
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1666 (defun rcirc-channel-nicks (process target)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1667 "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
1668 (when target
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1669 (if (rcirc-channel-p target)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1670 (with-rcirc-process-buffer process
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1671 (let (nicks)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1672 (maphash
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1673 (lambda (k v)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1674 (let ((record (assoc-string target v t)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1675 (if record
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1676 (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
1677 rcirc-nick-table)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1678 (mapcar (lambda (x) (car x))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1679 (sort nicks (lambda (x y)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1680 (let ((lx (or (cdr x) 0))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1681 (ly (or (cdr y) 0)))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1682 (< ly lx)))))))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1683 (list target))))
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1684
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1685 (defun rcirc-ignore-update-automatic (nick)
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
1686 "Remove NICK from `rcirc-ignore-list'
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
1687 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
1688 (when (member nick rcirc-ignore-list-automatic)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1689 (setq rcirc-ignore-list-automatic
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1690 (delete nick rcirc-ignore-list-automatic)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1691 rcirc-ignore-list
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
1692 (delete nick rcirc-ignore-list))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1693
108875
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
1694 (defun rcirc-nickname< (s1 s2)
108877
122187b88e6f * net/rcirc.el (rcirc-nickname<, rcirc-sort-nicknames-join): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 108876
diff changeset
1695 "Return t if IRC nickname S1 is less than S2, and nil otherwise.
122187b88e6f * net/rcirc.el (rcirc-nickname<, rcirc-sort-nicknames-join): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 108876
diff changeset
1696 Operator nicknames (@) are considered less than voiced
122187b88e6f * net/rcirc.el (rcirc-nickname<, rcirc-sort-nicknames-join): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 108876
diff changeset
1697 nicknames (+). Any other nicknames are greater than voiced
122187b88e6f * net/rcirc.el (rcirc-nickname<, rcirc-sort-nicknames-join): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 108876
diff changeset
1698 nicknames. The comparison is case-insensitive."
108875
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
1699 (setq s1 (downcase s1)
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
1700 s2 (downcase s2))
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
1701 (let* ((s1-op (eq ?@ (string-to-char s1)))
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
1702 (s2-op (eq ?@ (string-to-char s2))))
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
1703 (if s1-op
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
1704 (if s2-op
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
1705 (string< (substring s1 1) (substring s2 1))
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
1706 t)
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
1707 (if s2-op
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
1708 nil
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
1709 (string< s1 s2)))))
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
1710
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
1711 (defun rcirc-sort-nicknames-join (input sep)
108877
122187b88e6f * net/rcirc.el (rcirc-nickname<, rcirc-sort-nicknames-join): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 108876
diff changeset
1712 "Return a string of sorted nicknames.
108875
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
1713 INPUT is a string containing nicknames separated by SEP.
108877
122187b88e6f * net/rcirc.el (rcirc-nickname<, rcirc-sort-nicknames-join): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 108876
diff changeset
1714 This function does not alter the INPUT string."
108876
d81856a405a6 * net/rcirc.el (rcirc-sort-nicknames): Change default.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108875
diff changeset
1715 (let* ((parts (split-string input sep t))
d81856a405a6 * net/rcirc.el (rcirc-sort-nicknames): Change default.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108875
diff changeset
1716 (sorted (sort parts 'rcirc-nickname<)))
d81856a405a6 * net/rcirc.el (rcirc-sort-nicknames): Change default.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108875
diff changeset
1717 (mapconcat 'identity sorted sep)))
108875
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
1718
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1719 ;;; 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
1720 (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
1721 "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
1722
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1723 (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
1724 (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
1725
69461
1527bb09ec30 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-156
Miles Bader <miles@gnu.org>
parents: 69460
diff changeset
1726 ;;;###autoload
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1727 (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
1728 "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
1729 :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
1730 :lighter ""
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1731 :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
1732 :global t
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1733 :group 'rcirc
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1734 (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
1735 ;; 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
1736 (if rcirc-track-minor-mode
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1737 (progn
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1738 (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
1739 (setq global-mode-string
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1740 (append global-mode-string '(rcirc-activity-string))))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1741 (add-hook 'window-configuration-change-hook
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1742 '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
1743 (setq global-mode-string
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1744 (delete 'rcirc-activity-string global-mode-string))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1745 (remove-hook 'window-configuration-change-hook
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1746 '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
1747
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1748 (or (assq 'rcirc-ignore-buffer-activity-flag minor-mode-alist)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1749 (setq minor-mode-alist
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1750 (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
1751 (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
1752 (setq minor-mode-alist
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1753 (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
1754 (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
1755 (setq minor-mode-alist
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1756 (cons '(rcirc-omit-mode " Omit") minor-mode-alist)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1757
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1758 (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
1759 "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
1760 (interactive)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
1761 (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
1762 (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
1763 (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
1764 "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
1765 "Notice activity in this buffer"))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1766 (force-mode-line-update))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1767
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1768 (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
1769 "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
1770 (interactive)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1771 (setq rcirc-low-priority-flag
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1772 (not rcirc-low-priority-flag))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1773 (message (if rcirc-low-priority-flag
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1774 "Activity in this buffer is low priority"
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1775 "Activity in this buffer is normal priority"))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1776 (force-mode-line-update))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1777
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1778 (defun rcirc-omit-mode ()
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1779 "Toggle the Rcirc-Omit mode.
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1780 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
1781 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
1782 `rcirc-omit-responses'."
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1783 (interactive)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1784 (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
1785 (if rcirc-omit-mode
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1786 (progn
91688
dc73ee82d684 (rcirc-omit-mode): Suppress invisibility ellipsis
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1787 (add-to-invisibility-spec '(rcirc-omit . nil))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1788 (message "Rcirc-Omit mode enabled"))
91688
dc73ee82d684 (rcirc-omit-mode): Suppress invisibility ellipsis
Miles Bader <miles@gnu.org>
parents: 87649
diff changeset
1789 (remove-from-invisibility-spec '(rcirc-omit . nil))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1790 (message "Rcirc-Omit mode disabled"))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1791 (recenter (when (> (point) rcirc-prompt-start-marker) -1)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1792
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1793 (defun rcirc-switch-to-server-buffer ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1794 "Switch to the server buffer associated with current channel buffer."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1795 (interactive)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1796 (switch-to-buffer rcirc-server-buffer))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1797
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1798 (defun rcirc-jump-to-first-unread-line ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1799 "Move the point to the first unread line in this buffer."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1800 (interactive)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1801 (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
1802 (goto-char overlay-arrow-position)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1803 (message "No unread messages")))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1804
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1805 (defun rcirc-non-irc-buffer ()
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1806 (let ((buflist (buffer-list))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1807 buffer)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1808 (while (and buflist (not buffer))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1809 (with-current-buffer (car buflist)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1810 (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
1811 (= ?\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
1812 (get-buffer-window (current-buffer)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1813 (setq buffer (current-buffer))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1814 (setq buflist (cdr buflist)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1815 buffer))
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-next-active-buffer (arg)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1818 "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
1819 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
1820 (interactive "P")
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1821 (let* ((pair (rcirc-split-activity rcirc-activity))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1822 (lopri (car pair))
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
1823 (hipri (cdr pair)))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1824 (if (or (and (not arg) hipri)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1825 (and arg lopri))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1826 (progn
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1827 (switch-to-buffer (car (if arg lopri hipri)))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1828 (when (> (point) rcirc-prompt-start-marker)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
1829 (recenter -1)))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1830 (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
1831 (switch-to-buffer (rcirc-non-irc-buffer))
87170
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 85854
diff changeset
1832 (message "%s" (concat
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 85854
diff changeset
1833 "No IRC activity."
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 85854
diff changeset
1834 (when lopri
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 85854
diff changeset
1835 (concat
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 85854
diff changeset
1836 " Type C-u "
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 85854
diff changeset
1837 (key-description (this-command-keys))
e50a2e215441 * erc-stamp.el (erc-echo-timestamp):
David Kastrup <dak@gnu.org>
parents: 85854
diff changeset
1838 " for low priority activity."))))))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1839
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1840 (defvar rcirc-activity-hooks nil
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1841 "Hook to be run when there is channel activity.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1842
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1843 Functions are called with a single argument, the buffer with the
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1844 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
1845 `rcirc-ignore-buffer-activity-flag' is non-nil.")
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1846
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1847 (defun rcirc-record-activity (buffer &optional type)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1848 "Record BUFFER activity with TYPE."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1849 (with-current-buffer buffer
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1850 (let ((old-activity rcirc-activity)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1851 (old-types rcirc-activity-types))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1852 (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
1853 (setq rcirc-activity
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1854 (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
1855 (lambda (b1 b2)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1856 (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
1857 (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
1858 (time-less-p t2 t1)))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1859 (pushnew type rcirc-activity-types)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1860 (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
1861 (member type old-types))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1862 (rcirc-update-activity-string)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1863 (run-hook-with-args 'rcirc-activity-hooks buffer))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1864
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1865 (defun rcirc-clear-activity (buffer)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1866 "Clear the BUFFER activity."
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
1867 (setq rcirc-activity (remove buffer rcirc-activity))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1868 (with-current-buffer buffer
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1869 (setq rcirc-activity-types nil)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1870
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1871 (defun rcirc-clear-unread (buffer)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1872 "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
1873 (when (buffer-live-p buffer)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1874 (with-current-buffer buffer
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1875 (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
1876
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1877 (defun rcirc-split-activity (activity)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1878 "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
1879 (let (lopri hipri)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1880 (dolist (buf rcirc-activity)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1881 (with-current-buffer buf
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1882 (if (and rcirc-low-priority-flag
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1883 (not (member 'nick rcirc-activity-types)))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1884 (add-to-list 'lopri buf t)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1885 (add-to-list 'hipri buf t))))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1886 (cons lopri hipri)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1887
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1888 (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
1889 "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
1890
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1891 ;; TODO: add mouse properties
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1892 (defun rcirc-update-activity-string ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1893 "Update mode-line string."
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1894 (let* ((pair (rcirc-split-activity rcirc-activity))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1895 (lopri (car pair))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1896 (hipri (cdr pair)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1897 (setq rcirc-activity-string
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1898 (cond ((or hipri lopri)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1899 (concat (and hipri "[")
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1900 (rcirc-activity-string hipri)
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1901 (and hipri lopri ",")
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1902 (and lopri
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1903 (concat "("
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1904 (rcirc-activity-string lopri)
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1905 ")"))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1906 (and hipri "]")))
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
1907 ((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
1908 "[]")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1909 (t "[]")))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1910 (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
1911
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1912 (defun rcirc-activity-string (buffers)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1913 (mapconcat (lambda (b)
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1914 (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
1915 (with-current-buffer b
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1916 (dolist (type rcirc-activity-types)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1917 (rcirc-add-face 0 (length s)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1918 (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
1919 (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
1920 (keyword 'rcirc-track-keyword))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1921 s)))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
1922 s))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1923 buffers ","))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1924
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1925 (defun rcirc-short-buffer-name (buffer)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1926 "Return a short name for BUFFER to use in the modeline indicator."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1927 (with-current-buffer buffer
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1928 (or rcirc-short-buffer-name (buffer-name))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1929
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1930 (defun rcirc-visible-buffers ()
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1931 "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
1932 (let (acc)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1933 (walk-windows (lambda (w)
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1934 (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
1935 (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
1936 (push (current-buffer) acc)))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1937 acc))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1938
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1939 (defvar rcirc-visible-buffers nil)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1940 (defun rcirc-window-configuration-change ()
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1941 (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
1942 ;; 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
1943 ;; actually visible before clearing activity
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1944 (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
1945
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1946 (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
1947 ;; clear activity and overlay arrows
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1948 (let* ((old-activity rcirc-activity)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1949 (hidden-buffers rcirc-visible-buffers))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1950
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1951 (setq rcirc-visible-buffers (rcirc-visible-buffers))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1952
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1953 (dolist (vbuf rcirc-visible-buffers)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1954 (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
1955 ;; 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
1956 (rcirc-clear-activity vbuf))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1957
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1958 ;; 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
1959 (dolist (hbuf hidden-buffers)
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1960 (rcirc-clear-unread hbuf))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1961
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1962 ;; 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
1963 (setq rcirc-activity
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1964 (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
1965 rcirc-activity)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1966 ;; update the mode-line string
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1967 (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
1968 (rcirc-update-activity-string)))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1969
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
1970 (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
1971
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1972
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1973 ;;; buffer name abbreviation
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1974 (defun rcirc-update-short-buffer-names ()
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1975 (let ((bufalist
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1976 (apply 'append (mapcar (lambda (process)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1977 (with-rcirc-process-buffer process
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1978 rcirc-buffer-alist))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1979 (rcirc-process-list)))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1980 (dolist (i (rcirc-abbreviate bufalist))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1981 (when (buffer-live-p (cdr i))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1982 (with-current-buffer (cdr i)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
1983 (setq rcirc-short-buffer-name (car i)))))))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1984
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1985 (defun rcirc-abbreviate (pairs)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1986 (apply 'append (mapcar 'rcirc-rebuild-tree (rcirc-make-trees pairs))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1987
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1988 (defun rcirc-rebuild-tree (tree &optional acc)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1989 (let ((ch (char-to-string (car tree))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1990 (dolist (x (cdr tree))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1991 (if (listp x)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1992 (setq acc (append acc
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1993 (mapcar (lambda (y)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1994 (cons (concat ch (car y))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1995 (cdr y)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1996 (rcirc-rebuild-tree x))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1997 (setq acc (cons (cons ch x) acc))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
1998 acc))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1999
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2000 (defun rcirc-make-trees (pairs)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2001 (let (alist)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2002 (mapc (lambda (pair)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2003 (if (consp pair)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2004 (let* ((str (car pair))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2005 (data (cdr pair))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2006 (char (unless (zerop (length str))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2007 (aref str 0)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2008 (rest (unless (zerop (length str))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2009 (substring str 1)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2010 (part (if char (assq char alist))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2011 (if part
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2012 ;; existing partition
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2013 (setcdr part (cons (cons rest data) (cdr part)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2014 ;; new partition
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2015 (setq alist (cons (if char
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2016 (list char (cons rest data))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2017 data)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2018 alist))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2019 (setq alist (cons pair alist))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2020 pairs)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2021 ;; recurse into cdrs of alist
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2022 (mapc (lambda (x)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2023 (when (and (listp x) (listp (cadr x)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2024 (setcdr x (if (> (length (cdr x)) 1)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2025 (rcirc-make-trees (cdr x))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2026 (setcdr x (list (cdadr x)))))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2027 alist)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2028
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2029 ;;; /commands these are called with 3 args: PROCESS, TARGET, which is
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2030 ;; the current buffer/channel/user, and ARGS, which is a string
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2031 ;; containing the text following the /cmd.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2032
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2033 (defmacro defun-rcirc-command (command argument docstring interactive-form
110313
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
2034 &rest body)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2035 "Define a command."
110313
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
2036 `(progn
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
2037 (add-to-list 'rcirc-client-commands ,(concat "/" (symbol-name command)))
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
2038 (defun ,(intern (concat "rcirc-cmd-" (symbol-name command)))
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
2039 (,@argument &optional process target)
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
2040 ,(concat docstring "\n\nNote: If PROCESS or TARGET are nil, the values given"
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
2041 "\nby `rcirc-buffer-process' and `rcirc-target' will be used.")
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
2042 ,interactive-form
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
2043 (let ((process (or process (rcirc-buffer-process)))
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
2044 (target (or target rcirc-target)))
50c8f347bd8e * lisp/net/rcirc.el (rcirc-server-commands, rcirc-client-commands)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 110133
diff changeset
2045 ,@body))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2046
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2047 (defun-rcirc-command msg (message)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2048 "Send private MESSAGE to TARGET."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2049 (interactive "i")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2050 (if (null message)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2051 (progn
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2052 (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
2053 (with-rcirc-server-buffer
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2054 rcirc-nick-table)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2055 (when (> (length target) 0)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2056 (setq message (read-string (format "Message %s: " target)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2057 (when (> (length message) 0)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2058 (rcirc-send-message process target message))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2059 (if (not (string-match "\\([^ ]+\\) \\(.+\\)" message))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2060 (message "Not enough args, or something.")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2061 (setq target (match-string 1 message)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2062 message (match-string 2 message))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2063 (rcirc-send-message process target message))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2064
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2065 (defun-rcirc-command query (nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2066 "Open a private chat buffer to NICK."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2067 (interactive (list (completing-read "Query nick: "
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2068 (with-rcirc-server-buffer rcirc-nick-table))))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2069 (let ((existing-buffer (rcirc-get-buffer process nick)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2070 (switch-to-buffer (or existing-buffer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2071 (rcirc-get-buffer-create process nick)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2072 (when (not existing-buffer)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2073 (rcirc-cmd-whois nick))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2074
68578
2b5f6787aa4f (rcirc-cmd-join): Improve argument/docstring consistency.
Juanma Barranquero <lekktu@gmail.com>
parents: 68563
diff changeset
2075 (defun-rcirc-command join (channel)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2076 "Join CHANNEL."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2077 (interactive "sJoin channel: ")
68578
2b5f6787aa4f (rcirc-cmd-join): Improve argument/docstring consistency.
Juanma Barranquero <lekktu@gmail.com>
parents: 68563
diff changeset
2078 (let ((buffer (rcirc-get-buffer-create process
2b5f6787aa4f (rcirc-cmd-join): Improve argument/docstring consistency.
Juanma Barranquero <lekktu@gmail.com>
parents: 68563
diff changeset
2079 (car (split-string channel)))))
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2080 (rcirc-send-string process (concat "JOIN " channel))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2081 (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
2082 (switch-to-buffer buffer))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2083
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2084 ;; TODO: /part #channel reason, or consider removing #channel altogether
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2085 (defun-rcirc-command part (channel)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2086 "Part CHANNEL."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2087 (interactive "sPart channel: ")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2088 (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
2089 (rcirc-send-string process (concat "PART " channel " :" rcirc-id-string))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2090
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2091 (defun-rcirc-command quit (reason)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2092 "Send a quit message to server with REASON."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2093 (interactive "sQuit reason: ")
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2094 (rcirc-send-string process (concat "QUIT :"
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2095 (if (not (zerop (length reason)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2096 reason
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2097 rcirc-id-string))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2098
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2099 (defun-rcirc-command nick (nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2100 "Change nick to NICK."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2101 (interactive "i")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2102 (when (null nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2103 (setq nick (read-string "New nick: " (rcirc-nick process))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2104 (rcirc-send-string process (concat "NICK " nick)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2105
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2106 (defun-rcirc-command names (channel)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2107 "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
2108 If called interactively, prompt for a channel when prefix arg is supplied."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2109 (interactive "P")
105372
bd2966850aac Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents: 104795
diff changeset
2110 (if (called-interactively-p 'interactive)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2111 (if channel
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2112 (setq channel (read-string "List names in channel: " target))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2113 (let ((channel (if (> (length channel) 0)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2114 channel
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2115 target)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2116 (rcirc-send-string process (concat "NAMES " channel))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2117
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2118 (defun-rcirc-command topic (topic)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2119 "List TOPIC for the TARGET channel.
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2120 With a prefix arg, prompt for new topic."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2121 (interactive "P")
105372
bd2966850aac Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents: 104795
diff changeset
2122 (if (and (called-interactively-p 'interactive) topic)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2123 (setq topic (read-string "New Topic: " rcirc-topic)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2124 (rcirc-send-string process (concat "TOPIC " target
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2125 (when (> (length topic) 0)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2126 (concat " :" topic)))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2127
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2128 (defun-rcirc-command whois (nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2129 "Request information from server about NICK."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2130 (interactive (list
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2131 (completing-read "Whois: "
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2132 (with-rcirc-server-buffer rcirc-nick-table))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2133 (rcirc-send-string process (concat "WHOIS " nick)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2134
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2135 (defun-rcirc-command mode (args)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2136 "Set mode with ARGS."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2137 (interactive (list (concat (read-string "Mode nick or channel: ")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2138 " " (read-string "Mode: "))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2139 (rcirc-send-string process (concat "MODE " args)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2140
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2141 (defun-rcirc-command list (channels)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2142 "Request information on CHANNELS from server."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2143 (interactive "sList Channels: ")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2144 (rcirc-send-string process (concat "LIST " channels)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2145
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2146 (defun-rcirc-command oper (args)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2147 "Send operator command to server."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2148 (interactive "sOper args: ")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2149 (rcirc-send-string process (concat "OPER " args)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2150
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2151 (defun-rcirc-command quote (message)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2152 "Send MESSAGE literally to server."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2153 (interactive "sServer message: ")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2154 (rcirc-send-string process message))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2155
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2156 (defun-rcirc-command kick (arg)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2157 "Kick NICK from current channel."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2158 (interactive (list
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2159 (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
2160 (rcirc-channel-nicks
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2161 (rcirc-buffer-process)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2162 rcirc-target))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2163 (read-from-minibuffer "Kick reason: "))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2164 (let* ((arglist (split-string arg))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2165 (argstring (concat (car arglist) " :"
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2166 (mapconcat 'identity (cdr arglist) " "))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2167 (rcirc-send-string process (concat "KICK " target " " argstring))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2168
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2169 (defun rcirc-cmd-ctcp (args &optional process target)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2170 (if (string-match "^\\([^ ]+\\)\\s-+\\(.+\\)$" args)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2171 (let ((target (match-string 1 args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2172 (request (match-string 2 args)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2173 (rcirc-send-string process
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2174 (format "PRIVMSG %s \C-a%s\C-a"
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2175 target (upcase request))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2176 (rcirc-print process (rcirc-nick process) "ERROR" nil
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2177 "usage: /ctcp NICK REQUEST")))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2178
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2179 (defun rcirc-cmd-me (args &optional process target)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2180 (rcirc-send-string process (format "PRIVMSG %s :\C-aACTION %s\C-a"
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2181 target args)))
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2182
110113
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2183 (defun rcirc-add-or-remove (set &rest elements)
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2184 (dolist (elt elements)
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2185 (if (and elt (not (string= "" elt)))
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2186 (setq set (if (member-ignore-case elt set)
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2187 (delete elt set)
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2188 (cons elt set)))))
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2189 set)
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2190
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2191 (defun-rcirc-command ignore (nick)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2192 "Manage the ignore list.
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2193 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
2194 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
2195 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
2196 (interactive "sToggle ignoring of nick: ")
110113
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2197 (setq rcirc-ignore-list
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2198 (apply #'rcirc-add-or-remove rcirc-ignore-list
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2199 (split-string nick nil t)))
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
2200 (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
2201 (mapconcat
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2202 (lambda (nick)
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2203 (concat nick
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2204 (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
2205 "*" "")))
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2206 rcirc-ignore-list " ")))
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2207
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2208 (defun-rcirc-command bright (nick)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2209 "Manage the bright nick list."
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2210 (interactive "sToggle emphasis of nick: ")
110113
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2211 (setq rcirc-bright-nicks
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2212 (apply #'rcirc-add-or-remove rcirc-bright-nicks
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2213 (split-string nick nil t)))
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
2214 (rcirc-print process nil "BRIGHT" target
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2215 (mapconcat 'identity rcirc-bright-nicks " ")))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2216
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2217 (defun-rcirc-command dim (nick)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2218 "Manage the dim nick list."
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2219 (interactive "sToggle deemphasis of nick: ")
110113
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2220 (setq rcirc-dim-nicks
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2221 (apply #'rcirc-add-or-remove rcirc-dim-nicks
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2222 (split-string nick nil t)))
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
2223 (rcirc-print process nil "DIM" target
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2224 (mapconcat 'identity rcirc-dim-nicks " ")))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2225
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2226 (defun-rcirc-command keyword (keyword)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2227 "Manage the keyword list.
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2228 Mark KEYWORD, unmark KEYWORD if already marked, or list marked
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2229 keywords when no KEYWORD is given."
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2230 (interactive "sToggle highlighting of keyword: ")
110113
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2231 (setq rcirc-keywords
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2232 (apply #'rcirc-add-or-remove rcirc-keywords
3f3acfe9033c Handle multiple entries in some RCIRC commands (Bug#6894).
Chong Yidong <cyd@stupidchicken.com>
parents: 108939
diff changeset
2233 (split-string keyword nil t)))
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
2234 (rcirc-print process nil "KEYWORD" target
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2235 (mapconcat 'identity rcirc-keywords " ")))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2236
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2237
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2238 (defun rcirc-add-face (start end name &optional object)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2239 "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
2240 (when name
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2241 (let ((pos start)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2242 next prop)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2243 (while (< pos end)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2244 (setq prop (get-text-property pos 'face object)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2245 next (next-single-property-change pos 'face object end))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2246 (unless (member name (get-text-property pos 'face object))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2247 (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
2248 (setq pos next)))))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2249
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2250 (defun rcirc-facify (string face)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2251 "Return a copy of STRING with FACE property added."
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2252 (let ((string (or string "")))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2253 (rcirc-add-face 0 (length string) face string)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2254 string))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2255
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2256 (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
2257 (concat
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2258 "\\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
2259 "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
2260 "\\(//[-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
2261 (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
2262 (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
2263 (punct "!?:;.,"))
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2264 (concat
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2265 "\\(?:"
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2266 ;; 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
2267 "[" 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
2268 "\\|"
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2269 "[" 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
2270 "\\)"))
7fa347fa0577 (rcirc-url-regexp): Replace definition by copying from gnus-button-url-regexp.
Richard M. Stallman <rms@gnu.org>
parents: 79714
diff changeset
2271 (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
2272 "\\([-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
2273 "\\([-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
2274 "\\)")
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
2275 "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
2276
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2277 (defun rcirc-browse-url (&optional arg)
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
2278 "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
2279 (interactive "P")
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2280 (let ((completions (mapcar (lambda (x) (cons x nil)) rcirc-urls))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2281 (initial-input (car rcirc-urls))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2282 (history (cdr rcirc-urls)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2283 (browse-url (completing-read "rcirc browse-url: "
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2284 completions nil nil initial-input 'history)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2285 arg)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2286
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2287 (defun rcirc-browse-url-at-point (point)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2288 "Send URL at point to `browse-url'."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2289 (interactive "d")
72468
5e47ca87ee3c Rcirc update from Ryan Yeske
Miles Bader <miles@gnu.org>
parents: 71442
diff changeset
2290 (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
2291 (end (next-single-property-change point 'mouse-face)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2292 (browse-url (buffer-substring-no-properties beg end))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2293
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2294 (defun rcirc-browse-url-at-mouse (event)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2295 "Send URL at mouse click to `browse-url'."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2296 (interactive "e")
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2297 (let ((position (event-end event)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2298 (with-current-buffer (window-buffer (posn-window position))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2299 (rcirc-browse-url-at-point (posn-point position)))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2300
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2301
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2302 (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
2303 (goto-char (point-min))
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
2304 (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
2305 'rcirc-timestamp)))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2306
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2307 (defun rcirc-markup-attributes (sender response)
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2308 (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
2309 (rcirc-add-face (match-beginning 0) (match-end 0)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2310 (case (char-after (match-beginning 1))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2311 (?\C-b 'bold)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2312 (?\C-v 'italic)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2313 (?\C-_ 'underline)))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2314 ;; keep the ^O since it could terminate other attributes
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2315 (when (not (eq ?\C-o (char-before (match-end 2))))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2316 (delete-region (match-beginning 2) (match-end 2)))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2317 (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
2318 (goto-char (match-beginning 1)))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2319 ;; remove the ^O characters now
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2320 (while (re-search-forward "\C-o+" nil t)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2321 (delete-region (match-beginning 0) (match-end 0))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2322
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2323 (defun rcirc-markup-my-nick (sender response)
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2324 (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
2325 (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
2326 (regexp-quote (rcirc-nick
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2327 (rcirc-buffer-process)))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2328 "\\b")
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2329 nil t)
74146
c3bc7f03ff41 (rcirc-buffer-maximum-lines): Fix space/tab mixup in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 72844
diff changeset
2330 (rcirc-add-face (match-beginning 0) (match-end 0)
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2331 'rcirc-nick-in-message)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2332 (when (string= response "PRIVMSG")
81667
538ded3c7fd1 (rcirc-server-alist): Rename from rcirc-connections.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 81387
diff changeset
2333 (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
2334 '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
2335 (rcirc-record-activity (current-buffer) 'nick)))))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2336
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2337 (defun rcirc-markup-urls (sender response)
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2338 (while (re-search-forward rcirc-url-regexp nil t)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2339 (let ((start (match-beginning 0))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2340 (end (match-end 0)))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2341 (rcirc-add-face start end 'rcirc-url)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2342 (add-text-properties start end (list 'mouse-face 'highlight
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2343 'keymap rcirc-browse-url-map))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2344 ;; record the url
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2345 (push (buffer-substring-no-properties start end) rcirc-urls))))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2346
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2347 (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
2348 (when (and (string= response "PRIVMSG")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2349 (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
2350 (let* ((target (or rcirc-target ""))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2351 (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
2352 (when (not (string-match keyword
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2353 target))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2354 keyword))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2355 rcirc-keywords))))
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2356 (when keywords
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2357 (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
2358 (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
2359 (rcirc-record-activity (current-buffer) 'keyword))))))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2360
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2361 (defun rcirc-markup-bright-nicks (sender response)
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2362 (when (and rcirc-bright-nicks
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2363 (string= response "NAMES"))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2364 (with-syntax-table rcirc-nick-syntax-table
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2365 (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
2366 (rcirc-add-face (match-beginning 0) (match-end 0)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2367 'rcirc-bright-nick)))))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2368
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2369 (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
2370 (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
2371 (let ((fill-prefix
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2372 (or rcirc-fill-prefix
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2373 (make-string (- (point) (line-beginning-position)) ?\s)))
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2374 (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
2375 (1- (frame-width)))
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2376 (rcirc-fill-column
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2377 rcirc-fill-column)
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2378 (t fill-column))
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2379 ;; make sure ... doesn't cause line wrapping
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2380 3)))
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2381 (fill-region (point) (point-max) nil t))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2382
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2383 ;;; handlers
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2384 ;; these are called with the server PROCESS, the SENDER, which is a
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2385 ;; 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
2386 ;; list of strings, and the TEXT, which is the original server text,
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2387 ;; verbatim
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2388 (defun rcirc-handler-001 (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2389 (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
2390 (with-rcirc-process-buffer process
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
2391 (setq rcirc-connecting nil)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
2392 (rcirc-reschedule-timeout process)
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
2393 (setq rcirc-server-name sender)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2394 (setq rcirc-nick (car args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2395 (rcirc-update-prompt)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2396 (when rcirc-auto-authenticate-flag (rcirc-authenticate))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2397 (rcirc-join-channels process rcirc-startup-channels)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2398
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2399 (defun rcirc-handler-PRIVMSG (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2400 (let ((target (if (rcirc-channel-p (car args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2401 (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
2402 sender))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2403 (message (or (cadr args) "")))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2404 (if (string-match "^\C-a\\(.*\\)\C-a$" message)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2405 (rcirc-handler-CTCP process target sender (match-string 1 message))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2406 (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
2407 ;; update nick linestamp
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2408 (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
2409 (rcirc-put-nick-channel process sender target rcirc-current-line))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2410
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2411 (defun rcirc-handler-NOTICE (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2412 (let ((target (car args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2413 (message (cadr args)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2414 (if (string-match "^\C-a\\(.*\\)\C-a$" message)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2415 (rcirc-handler-CTCP-response process target sender
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2416 (match-string 1 message))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2417 (rcirc-print process sender "NOTICE"
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2418 (cond ((rcirc-channel-p target)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2419 target)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2420 ;;; -ChanServ- [#gnu] Welcome...
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2421 ((string-match "\\[\\(#[^\] ]+\\)\\]" message)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2422 (match-string 1 message))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2423 (sender
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2424 (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
2425 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
2426 sender)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2427 message t))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2428
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2429 (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
2430 (rcirc-print process sender "WALLOPS" sender (car args) t))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2431
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2432 (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
2433 (let ((channel (car args)))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2434 (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
2435 ;; when recently rejoining, restore the linestamp
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2436 (rcirc-put-nick-channel process sender channel
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2437 (let ((last-activity-lines
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2438 (rcirc-elapsed-lines process sender channel)))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2439 (when (and last-activity-lines
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2440 (< last-activity-lines rcirc-omit-threshold))
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2441 (rcirc-last-line process sender channel)))))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2442
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2443 (rcirc-print process sender "JOIN" channel "")
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2444
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2445 ;; 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
2446 (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
2447 (rcirc-print process sender "JOIN" sender channel))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2448
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2449 ;; PART and KICK are handled the same way
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2450 (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
2451 (rcirc-ignore-update-automatic nick)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2452 (if (not (string= nick (rcirc-nick process)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2453 ;; this is someone else leaving
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2454 (progn
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2455 (rcirc-maybe-remember-nick-quit process nick channel)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2456 (rcirc-remove-nick-channel process nick channel))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2457 ;; this is us leaving
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2458 (mapc (lambda (n)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2459 (rcirc-remove-nick-channel process n channel))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2460 (rcirc-channel-nicks process channel))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2461
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2462 ;; 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
2463 (let ((buffer (rcirc-get-buffer process channel)))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2464 (when buffer
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2465 (rcirc-disconnect-buffer buffer)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2466
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2467 (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
2468 (let* ((channel (car args))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2469 (reason (cadr args))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2470 (message (concat channel " " reason)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2471 (rcirc-print process sender "PART" channel message)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2472 ;; 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
2473 (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
2474 (rcirc-print process sender "PART" sender message))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2475
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2476 (rcirc-handler-PART-or-KICK process "PART" channel sender sender reason)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2477
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2478 (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
2479 (let* ((channel (car args))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2480 (nick (cadr args))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2481 (reason (caddr args))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2482 (message (concat nick " " channel " " reason)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2483 (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
2484 ;; 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
2485 (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
2486 (rcirc-print process sender "KICK" nick message))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2487
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2488 (rcirc-handler-PART-or-KICK process "KICK" channel sender nick reason)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2489
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2490 (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
2491 "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
2492 (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
2493 (when (and elapsed-lines
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2494 (< elapsed-lines rcirc-omit-threshold))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2495 (let ((buffer (rcirc-get-buffer process channel)))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2496 (when buffer
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2497 (with-current-buffer buffer
85854
41cfd60a7993 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85745
diff changeset
2498 (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
2499 (line (rcirc-last-line process nick channel)))
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2500 (if record
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2501 (setcdr record line)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2502 (setq rcirc-recent-quit-alist
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2503 (cons (cons nick line)
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2504 rcirc-recent-quit-alist))))))))))
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2505
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2506 (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
2507 (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
2508 (mapc (lambda (channel)
85745
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2509 ;; broadcast quit message each channel
bece18fa22d7 Ryan Yeske <rcyeske at gmail.com>
Glenn Morris <rgm@gnu.org>
parents: 85500
diff changeset
2510 (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
2511 ;; 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
2512 (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
2513 (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
2514 (rcirc-nick-remove process sender))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2515
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2516 (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
2517 (let* ((old-nick sender)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2518 (new-nick (car args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2519 (channels (rcirc-nick-channels process old-nick)))
68079
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2520 ;; update list of ignored nicks
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2521 (rcirc-ignore-update-automatic old-nick)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2522 (when (member old-nick rcirc-ignore-list)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2523 (add-to-list 'rcirc-ignore-list new-nick)
61e9ea461d3c (rcirc-ignore-list): New option.
Alex Schroeder <alex@gnu.org>
parents: 68077
diff changeset
2524 (add-to-list 'rcirc-ignore-list-automatic new-nick))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2525 ;; print message to nick's channels
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2526 (dolist (target channels)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2527 (rcirc-print process sender "NICK" target new-nick))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2528 ;; update private chat buffer, if it exists
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2529 (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
2530 (when chat-buffer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2531 (with-current-buffer chat-buffer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2532 (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
2533 (setq rcirc-target new-nick)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2534 (rename-buffer (rcirc-generate-new-buffer-name process new-nick)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2535 ;; remove old nick and add new one
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2536 (with-rcirc-process-buffer process
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2537 (let ((v (gethash old-nick rcirc-nick-table)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2538 (remhash old-nick rcirc-nick-table)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2539 (puthash new-nick v rcirc-nick-table))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2540 ;; if this is our nick...
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2541 (when (string= old-nick rcirc-nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2542 (setq rcirc-nick new-nick)
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2543 (rcirc-update-prompt t)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2544 ;; reauthenticate
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2545 (when rcirc-auto-authenticate-flag (rcirc-authenticate))))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2546
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2547 (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
2548 (rcirc-send-string process (concat "PONG :" (car args))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2549
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2550 (defun rcirc-handler-PONG (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2551 ;; do nothing
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2552 )
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2553
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2554 (defun rcirc-handler-TOPIC (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2555 (let ((topic (cadr args)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2556 (rcirc-print process sender "TOPIC" (car args) topic)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2557 (with-current-buffer (rcirc-get-buffer process (car args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2558 (setq rcirc-topic topic))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2559
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2560 (defvar rcirc-nick-away-alist nil)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2561 (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
2562 "RPL_AWAY"
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2563 (let* ((nick (cadr args))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2564 (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
2565 (away-message (caddr args)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2566 (when (or (not rec)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2567 (not (string= (cdr rec) away-message)))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2568 ;; away message has changed
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2569 (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
2570 (if rec
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2571 (setcdr rec away-message)
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2572 (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
2573 rcirc-nick-away-alist))))))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2574
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2575 (defun rcirc-handler-332 (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2576 "RPL_TOPIC"
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2577 (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
2578 (rcirc-get-temp-buffer-create process (cadr args)))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2579 (with-current-buffer buffer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2580 (setq rcirc-topic (caddr args)))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2581
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2582 (defun rcirc-handler-333 (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2583 "Not in rfc1459.txt"
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2584 (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
2585 (rcirc-get-temp-buffer-create process (cadr args)))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2586 (with-current-buffer buffer
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2587 (let ((setter (caddr args))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2588 (time (current-time-string
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2589 (seconds-to-time
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2590 (string-to-number (cadddr args))))))
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2591 (rcirc-print process sender "TOPIC" (cadr args)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2592 (format "%s (%s on %s)" rcirc-topic setter time))))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2593
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2594 (defun rcirc-handler-477 (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2595 "ERR_NOCHANMODES"
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2596 (rcirc-print process sender "477" (cadr args) (caddr args)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2597
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2598 (defun rcirc-handler-MODE (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2599 (let ((target (car args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2600 (msg (mapconcat 'identity (cdr args) " ")))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2601 (rcirc-print process sender "MODE"
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2602 (if (string= target (rcirc-nick process))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2603 nil
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2604 target)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2605 msg)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2606
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2607 ;; print in private chat buffers if they exist
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2608 (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
2609 (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
2610 (rcirc-print process sender "MODE" nick msg)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2611 (cddr args))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2612
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2613 (defun rcirc-get-temp-buffer-create (process channel)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2614 "Return a buffer based on PROCESS and CHANNEL."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2615 (let ((tmpnam (concat " " (downcase channel) "TMP" (process-name process))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2616 (get-buffer-create tmpnam)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2617
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2618 (defun rcirc-handler-353 (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2619 "RPL_NAMREPLY"
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2620 (let ((channel (caddr args)))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2621 (mapc (lambda (nick)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2622 (rcirc-put-nick-channel process nick channel))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2623 (split-string (cadddr args) " " t))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2624 (with-current-buffer (rcirc-get-temp-buffer-create process channel)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2625 (goto-char (point-max))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2626 (insert (car (last args)) " "))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2627
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2628 (defun rcirc-handler-366 (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2629 "RPL_ENDOFNAMES"
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2630 (let* ((channel (cadr args))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2631 (buffer (rcirc-get-temp-buffer-create process channel)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2632 (with-current-buffer buffer
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2633 (rcirc-print process sender "NAMES" channel
108875
d01ede419552 * lisp/net/rcirc.el (rcirc-sort-nicknames): New custom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108768
diff changeset
2634 (let ((content (buffer-substring (point-min) (point-max))))
108879
30e304f37b04 * net/rcirc.el (rcirc-sort-nicknames): Remove.
Chong Yidong <cyd@stupidchicken.com>
parents: 108877
diff changeset
2635 (rcirc-sort-nicknames-join content " "))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2636 (kill-buffer buffer)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2637
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2638 (defun rcirc-handler-433 (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2639 "ERR_NICKNAMEINUSE"
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2640 (rcirc-handler-generic process "433" sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2641 (let* ((new-nick (concat (cadr args) "`")))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2642 (with-rcirc-process-buffer process
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2643 (rcirc-cmd-nick new-nick nil process))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2644
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2645 (defun rcirc-authenticate ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2646 "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
2647 Passwords are stored in `rcirc-authinfo' (which see)."
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2648 (interactive)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2649 (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
2650 (dolist (i rcirc-authinfo)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2651 (let ((process (rcirc-buffer-process))
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2652 (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
2653 (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
2654 (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
2655 (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
2656 (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
2657 (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
2658 (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
2659 (rcirc-send-string
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2660 process
105637
a9352fba1fd2 (rcirc-authenticate): Simplify previous change.
Glenn Morris <rgm@gnu.org>
parents: 105611
diff changeset
2661 (concat "PRIVMSG " (or (cadr args) "nickserv")
a9352fba1fd2 (rcirc-authenticate): Simplify previous change.
Glenn Morris <rgm@gnu.org>
parents: 105611
diff changeset
2662 " :identify " (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
2663 ((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
2664 (rcirc-send-string
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2665 process
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2666 (concat
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2667 "PRIVMSG chanserv :identify "
81387
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2668 (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
2669 ((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
2670 (rcirc-send-string
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2671 process
68731
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2672 (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
2673 (t
85be285e3494 (rcirc-startup-channels-alist): Add irc.freenode.net and #emacs as defaults.
Eli Zaretskii <eliz@gnu.org>
parents: 68648
diff changeset
2674 (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
2675 method))))))))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2676
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2677 (defun rcirc-handler-INVITE (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2678 (rcirc-print process sender "INVITE" nil (mapconcat 'identity args " ") t))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2679
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2680 (defun rcirc-handler-ERROR (process sender args text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2681 (rcirc-print process sender "ERROR" nil (mapconcat 'identity args " ")))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2682
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2683 (defun rcirc-handler-CTCP (process target sender text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2684 (if (string-match "^\\([^ ]+\\) *\\(.*\\)$" text)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2685 (let* ((request (upcase (match-string 1 text)))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2686 (args (match-string 2 text))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2687 (handler (intern-soft (concat "rcirc-handler-ctcp-" request))))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2688 (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
2689 (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
2690 (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
2691 t)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2692 (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
2693 (unless (or (string= request "ACTION")
c0681aed938d (rcirc-format-response-string): Use rcirc-nick-syntax
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 77769
diff changeset
2694 (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
2695 (rcirc-print process sender "CTCP" target
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2696 (format "%s" text) t))))))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2697
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2698 (defun rcirc-handler-ctcp-VERSION (process target sender args)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2699 (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
2700 (concat "NOTICE " sender
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2701 " :\C-aVERSION " rcirc-id-string
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2702 "\C-a")))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2703
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2704 (defun rcirc-handler-ctcp-ACTION (process target sender args)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2705 (rcirc-print process sender "ACTION" target args t))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2706
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2707 (defun rcirc-handler-ctcp-TIME (process target sender args)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2708 (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
2709 (concat "NOTICE " sender
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2710 " :\C-aTIME " (current-time-string) "\C-a")))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2711
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2712 (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
2713 (rcirc-print process sender "CTCP" nil message t))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2714
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2715 (defgroup rcirc-faces nil
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2716 "Faces for rcirc."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2717 :group 'rcirc
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2718 :group 'faces)
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2719
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2720 (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
2721 '((((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
2722 (((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
2723 (((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
2724 (((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
2725 (((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
2726 (t (:inverse-video t :weight bold)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2727 "The face used to highlight my messages."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2728 :group 'rcirc-faces)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2729
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2730 (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
2731 '((((class grayscale) (background light))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2732 (:foreground "Gray90" :weight bold :slant italic))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2733 (((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
2734 (: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
2735 (((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
2736 (((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
2737 (((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
2738 (((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
2739 (((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
2740 (t (:weight bold :slant italic)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2741 "The face used to highlight other messages."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2742 :group 'rcirc-faces)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2743
70215
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2744 (defface rcirc-bright-nick
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2745 '((((class grayscale) (background light))
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2746 (: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
2747 (((class grayscale) (background dark))
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2748 (: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
2749 (((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
2750 (((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
2751 (((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
2752 (((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
2753 (((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
2754 (t (:weight bold :underline t)))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2755 "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
2756 :group 'rcirc-faces)
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2757
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2758 (defface rcirc-dim-nick
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2759 '((t :inherit default))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2760 "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
2761 :group 'rcirc-faces)
90d76f24753a Revision: emacs@sv.gnu.org/emacs--devo--0--patch-247
Miles Bader <miles@gnu.org>
parents: 69860
diff changeset
2762
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2763 (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
2764 '((((class grayscale) (background light))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2765 (:foreground "DimGray" :weight bold :slant italic))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2766 (((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
2767 (: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
2768 (((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
2769 (:foreground "Firebrick"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2770 (((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
2771 (:foreground "chocolate1"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2772 (((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
2773 (:foreground "red"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2774 (((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
2775 (:foreground "red1"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2776 (((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
2777 )
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2778 (((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
2779 )
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2780 (t (:weight bold :slant italic)))
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2781 "The face used to highlight server messages."
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2782 :group 'rcirc-faces)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2783
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2784 (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
2785 '((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
2786 (((class grayscale)))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2787 (((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
2788 (((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
2789 :foreground "red")
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2790 (((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
2791 :foreground "red1"))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2792 "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
2793 :group 'rcirc-faces)
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2794
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2795 (defface rcirc-timestamp
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2796 '((t (:inherit default)))
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2797 "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
2798 :group 'rcirc-faces)
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2799
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2800 (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
2801 '((((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
2802 (((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
2803 (((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
2804 (((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
2805 (((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
2806 (((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
2807 (((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
2808 (t (:weight bold)))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2809 "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
2810 :group 'rcirc-faces)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2811
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2812 (defface rcirc-nick-in-message-full-line
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2813 '((t (:bold t)))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2814 "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
2815 :group 'rcirc-faces)
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2816
67014
d3d8e2bcfa98 (rcirc-mangle-text): Add bold face property without replacing existing
Eli Zaretskii <eliz@gnu.org>
parents: 66703
diff changeset
2817 (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
2818 '((((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
2819 (((background dark)) (:foreground "cyan"))
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2820 (t (:foreground "dark blue")))
68563
979fba30166f (rcirc-debug): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 68079
diff changeset
2821 "The face used to highlight prompts."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2822 :group 'rcirc-faces)
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2823
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2824 (defface rcirc-track-nick
76444
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
2825 '((((type tty)) (:inherit default))
aa83dbd3dea1 (rcirc-timeout-seconds): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 75347
diff changeset
2826 (t (:inverse-video t)))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2827 "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
2828 :group 'rcirc-faces)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2829
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2830 (defface rcirc-track-keyword
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2831 '((t (:bold t )))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2832 "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
2833 :group 'rcirc-faces)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2834
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2835 (defface rcirc-url
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2836 '((t (:bold t)))
72616
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2837 "The face used to highlight urls."
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2838 :group 'rcirc-faces)
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2839
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2840 (defface rcirc-keyword
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2841 '((t (:inherit highlight)))
1c7de7b9540b (rcirc-keywords): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 72468
diff changeset
2842 "The face used to highlight keywords."
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2843 :group 'rcirc-faces)
69860
000a5d4aa083 (rcirc-default-server): Rename from rcirc-server.
Eli Zaretskii <eliz@gnu.org>
parents: 69694
diff changeset
2844
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2845
66703
6cfb275aa300 Use split-string OMIT-NULLS argument.
Eli Zaretskii <eliz@gnu.org>
parents: 66272
diff changeset
2846 ;; 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
2847 (put 'rcirc-mode 'flyspell-mode-predicate 'rcirc-looking-at-input)
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2848 (defun rcirc-looking-at-input ()
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2849 "Returns true if point is past the input marker."
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2850 (>= (point) rcirc-prompt-end-marker))
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2851
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2852
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2853 (provide 'rcirc)
66258
4e4cce911e2e Add arch tagline
Miles Bader <miles@gnu.org>
parents: 66252
diff changeset
2854
66248
6914d742203d New file.
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2855 ;;; rcirc.el ends here