Commit | Line | Data |
---|---|---|
c6b99621 | 1 | ;;; erc-networks.el --- IRC networks |
597993cf | 2 | |
73b0cd50 | 3 | ;; Copyright (C) 2002, 2004-2011 Free Software Foundation, Inc. |
597993cf MB |
4 | |
5 | ;; Author: Mario Lang <mlang@lexx.delysid.org> | |
6 | ;; Keywords: comm | |
7 | ||
8 | ;; This file is part of GNU Emacs. | |
9 | ||
4ee57b2a | 10 | ;; GNU Emacs is free software: you can redistribute it and/or modify |
597993cf | 11 | ;; it under the terms of the GNU General Public License as published by |
4ee57b2a GM |
12 | ;; the Free Software Foundation, either version 3 of the License, or |
13 | ;; (at your option) any later version. | |
597993cf MB |
14 | |
15 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 | ;; GNU General Public License for more details. | |
19 | ||
20 | ;; You should have received a copy of the GNU General Public License | |
4ee57b2a | 21 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
597993cf MB |
22 | |
23 | ;;; Commentary: | |
24 | ||
25 | ;; This file deals with IRC networks. | |
26 | ;; | |
27 | ;; Usage: | |
28 | ;; | |
5e56b3fb | 29 | ;; This is the "networks" module. |
597993cf MB |
30 | ;; |
31 | ;; M-x erc-server-select provides an alternative way to connect to servers by | |
32 | ;; choosing networks. | |
33 | ;; You can use (eq (erc-network) 'Network) if you'd like to set variables or do | |
34 | ;; certain actions according to which network you're connected to. | |
35 | ;; If a network you use is not listed in `erc-networks-alist', you can put | |
36 | ;; (add-to-list 'erc-networks-alist '(Network "irc.server-name.net")) in your | |
37 | ;; config file. | |
38 | ||
39 | ;;; Code: | |
40 | ||
41 | (require 'erc) | |
42 | (eval-when-compile (require 'cl)) | |
43 | ||
44 | ;; Variables | |
45 | ||
46 | (defgroup erc-networks nil | |
47 | "IRC Networks" | |
48 | :group 'erc) | |
49 | ||
50 | (defcustom erc-server-alist | |
51 | '(("4-irc: Random server" 4-irc "4-irc.com" 6667) | |
52 | ("A5KNet: Random server" A5KNet "irc.a5knet.com" ((6660 6669))) | |
53 | ("AbleNet: Random server" AbleNet "irc.ablenet.org" 6667) | |
54 | ("Accessirc: Random server" Accessirc "irc.accessirc.net" 6667) | |
55 | ("Acestar: Random server" Acestar "irc.acestar.org" 6667) | |
56 | ("Action-IRC: Random server" Action-IRC "irc.action-irc.net" ((6660 6669))) | |
57 | ("AfterNET: Random server" AfterNET "irc.afternet.org" 6667) | |
58 | ("Alternativenet: Random server" Alternativenet "irc.altnet.org" 6667) | |
59 | ("AmigaNet: Random server" AmigaNet "irc.amiganet.org" 6667) | |
60 | ("AngelEyez: Random server" AngelEyez "irc.angeleyez.net" ((6666 7000))) | |
61 | ("AnotherNet: Random server" Anothernet "irc.another.net" (6667 7000 )) | |
62 | ("ArabChat: Random server" ArabChat "irc.arabchat.org" ((6660 6667))) | |
10dc9f9e | 63 | ("Ars-OpenIRC: Random server" Ars "irc.arstechnica.com" 6667) |
597993cf MB |
64 | ("AsiaTalk: Random server" AsiaTalk "irc.asiatalk.org" ((6667 6669) 7000 )) |
65 | ("AstroLink: Random server" AstroLink "irc.astrolink.org" ((6660 6667))) | |
66 | ("Asylumnet: Random server" Asylumnet "irc.asylum-net.org" ((6661 6669) 7000 7777 )) | |
67 | ("Austnet: Random AU server" Austnet "au.austnet.org" 6667) | |
68 | ("Austnet: Random NZ server" Austnet "nz.austnet.org" 6667) | |
69 | ("Austnet: Random SG server" Austnet "sg.austnet.org" 6667) | |
70 | ("Austnet: Random US server" Austnet "us.austnet.org" 6667) | |
71 | ("AwesomeChat: Random server" AwesomeChat "irc.awesomechat.net" ((6661 6669))) | |
72 | ("Awesomechristians: Random server" Awesomechristians "irc.awesomechristians.com" 7000) | |
73 | ("Axenet: Random server" Axenet "irc.axenet.org" ((6660 6667))) | |
74 | ("BeyondIRC: Random server" Beyondirc "irc.beyondirc.net" ((6660 6669))) | |
75 | ("BGIRC: Random server" BGIRC "irc.bulgaria.org" ((6666 6669) 7000 )) | |
76 | ("Blabbernet: Random server" Blabbernet "irc.blabber.net" (6667 7000 )) | |
77 | ("Blitzed: Random server" Blitzed "irc.blitzed.org" (6667 7000 )) | |
78 | ("Brasirc: Random server" Brasirc "irc.brasirc.net" ((6666 6667))) | |
79 | ("Brasirc: BR, PA, Belem" Brasirc "irc.libnet.com.br" ((6666 6668) 7777 8002 )) | |
80 | ("BRASnet: Random European server" BRASnet "eu.brasnet.org" ((6665 6669))) | |
81 | ("BRASnet: Random US server" BRASnet "us.brasnet.org" ((6665 6669))) | |
82 | ("BubbleNet: Random server" BubbleNet "irc.bubblenet.org" ((6667 6669))) | |
83 | ("CCnet: Random server" CCnet "irc.cchat.net" (6667 7000 )) | |
84 | ("CCnet: US, TX, Dallas" CCnet "irc2.cchat.net" (6667 7000 )) | |
85 | ("Chat-Net: Random server" Chat-Net "irc.chat-net.org" 6667) | |
86 | ("Chat-Solutions: Random server" Chat-Solutions "irc.chat-solutions.org" 6667) | |
87 | ("Chatcafe: Random server" Chatcafe "irc.chatcafe.net" 6667) | |
88 | ("Chatchannel: Random server" Chatchannel "irc.chatchannel.org" ((6666 6669) 7000 )) | |
89 | ("ChatCircuit: Random server" ChatCircuit "irc.chatcircuit.com" 6668) | |
90 | ("Chatlink: Random server" Chatlink "irc.chatlink.org" 6667) | |
91 | ("Chatnet: Random AU server" Chatnet "au.chatnet.org" 6667) | |
92 | ("Chatnet: Random EU server" Chatnet "eu.chatnet.org" 6667) | |
93 | ("Chatnet: Random US server" Chatnet "us.chatnet.org" 6667) | |
94 | ("ChatNut: Random server" ChatNut "irc.chatnut.net" (6667 7000 )) | |
95 | ("Chatpinoy: Random server" Chatpinoy "irc.chatpinoy.com" 6667) | |
96 | ("ChatPR: Random server" ChatPR "irc.chatpr.org" 6667) | |
97 | ("Chatroom: Random server" Chatroom "irc.chatroom.org" 6667) | |
98 | ("Chatster: Random server" Chatster "irc.chatster.org" 6667) | |
99 | ("ChatX: Random server" ChatX "irc.chatx.net" 6667) | |
100 | ("China263: Random server" China263 "irc.263.net" 6667) | |
101 | ("Cineplex1: Random server" Cineplex1 "irc.cineplex1.com" ((6666 6668))) | |
102 | ("CNN: CNN News discussions" CNN "chat.cnn.com" ((6667 6669) 7000 )) | |
103 | ("CobraNet: Random server" CobraNet "irc.cobra.net" 6667) | |
104 | ("Coolchat: Random server" Coolchat "irc.coolchat.net" 6667) | |
105 | ("Criten: Random server" Criten "irc.criten.net" 6667) | |
106 | ("Cyberchat: Random server" Cyberchat "irc.cyberchat.org" (6667 6668 )) | |
107 | ("CyGanet: Random server" CyGanet "irc.cyga.net" 6667) | |
108 | ("DALnet: AS, MY, Coins" DALnet "coins.dal.net" ((6663 6668) 7000 )) | |
109 | ("DALnet: CA, ON, Sodre" DALnet "sodre.on.ca.dal.net" ((6661 6669) 7000 )) | |
110 | ("DALnet: EU, DE, Nexgo" DALnet "nexgo.de.eu.dal.net" ((6664 6669) 7000 )) | |
111 | ("DALnet: EU, NO, Powertech" DALnet "powertech.no.eu.dal.net" ((6666 6667) 7000 )) | |
112 | ("DALnet: EU, SE, Borg" DALnet "borg.se.eu.dal.net" (6667 7000 )) | |
113 | ("DALnet: EU, SE, Ced" DALnet "ced.se.eu.dal.net" (6667 7000 )) | |
114 | ("DALnet: US, GA, Astro" DALnet "astro.ga.us.dal.net" ((6661 6669) 7000 )) | |
115 | ("DALnet: US, GA, Dragons" DALnet "dragons.ga.us.dal.net" ((6661 6669) 7000 )) | |
116 | ("DALnet: US, GA, Elysium" DALnet "elysium.ga.us.dal.net" ((6661 6669) 7000 )) | |
117 | ("DALnet: US, MA, Twisted" DALnet "twisted.ma.us.dal.net" ((6660 6669) 7001 7002 )) | |
118 | ("DALnet: US, MO, Global" DALnet "global.mo.us.dal.net" ((6661 6669) 7000 )) | |
119 | ("DALnet: US, NJ, Liberty" DALnet "liberty.nj.us.dal.net" ((6662 6669) 7000 )) | |
120 | ("DALnet: US, VA, Wombat" DALnet "wombat.va.us.dal.net" ((6661 6669) 7000 )) | |
121 | ("DALnet: Random EU server" DALnet "irc.eu.dal.net" 6667) | |
122 | ("DALnet: Random US server" DALnet "irc.dal.net" ((6660 6667))) | |
123 | ("Dark-Tou-Net: Random server" Dark-Tou-Net "irc.d-t-net.de" 6667) | |
124 | ("Darkfire: Random server" Darkfire "irc.darkfire.net" (6667 7000 8000 )) | |
125 | ("DarkMyst: Random server" DarkMyst "irc.darkmyst.org" 6667) | |
126 | ("Darkserv: Random server" Darkserv "irc.darkserv.net" 6667) | |
127 | ("Darksystem: Random server" Darksystem "irc.darksystem.com" 6667) | |
128 | ("Darktree: Random server" Darktree "irc.darktree.net" 6667) | |
129 | ("DayNet: Random server" DayNet "irc.daynet.org" 6667) | |
130 | ("Deepspace: Disability network" Deepspace "irc.deepspace.org" 6667) | |
131 | ("Different: Random server" Different "irc.different.net" 6667) | |
132 | ("Digarix: Random server" Digarix "irc.digarix.net" 6667) | |
133 | ("Digatech: Random server" Digatech "irc.digatech.net" 6667) | |
134 | ("Digital-Base: Random server" Digital-Base "irc.digital-base.net" ((6660 7000))) | |
135 | ("Digitalirc: Random server" Digitalirc "irc.digitalirc.net" 6667) | |
136 | ("Discussioni: Random server" Discussioni "irc.discussioni.org" ((6666 6669))) | |
137 | ("DorukNet: TR, Istanbul" DorukNet "irc.doruk.net.tr" ((6660 6669) 7000 8888 )) | |
138 | ("Dreamcast: Random server" Dreamcast "irc0.dreamcast.com" 6667) | |
139 | ("DWChat: Random server" DWChat "irc.dwchat.net" 6667) | |
140 | ("Dynastynet: Random server" Dynastynet "irc.dynastynet.net" 6667) | |
141 | ("EFnet: CA, AB, Edmonton (arcti)" EFnet "irc.arcti.ca" 6667) | |
142 | ("EFnet: CA, AB, Edmonton (mpls)" EFnet "irc.mpls.ca" ((6660 6669))) | |
143 | ("EFnet: CA, ON, Toronto" EFnet "irc2.magic.ca" 6667) | |
144 | ("EFnet: CA, QB, Montreal" EFnet "irc.qeast.net" 6667) | |
145 | ("EFnet: EU, DK, Aarhus" EFnet "irc.inet.tele.dk" 6667) | |
146 | ("EFnet: EU, FI, Helsinki" EFnet "efnet.cs.hut.fi" 6667) | |
147 | ("EFnet: EU, FR, Paris" EFnet "irc.isdnet.fr" ((6667 6669))) | |
148 | ("EFnet: EU, NL, Amsterdam" EFnet "efnet.vuurwerk.nl" 6667) | |
149 | ("EFnet: EU, NO, Homelien" EFnet "irc.homelien.no" (5190 (6666 6667) (7000 7001) )) | |
150 | ("EFnet: EU, NO, Oslo" EFnet "irc.daxnet.no" ((6666 7000))) | |
151 | ("EFnet: EU, PL, Warszawa" EFnet "irc.efnet.pl" 6667) | |
152 | ("EFnet: EU, RU, Moscow" EFnet "irc.rt.ru" ((6661 6669))) | |
153 | ("EFnet: EU, SE, Dalarna" EFnet "irc.du.se" ((6666 6669))) | |
154 | ("EFnet: EU, SE, Gothenberg" EFnet "irc.hemmet.chalmers.se" ((6666 7000))) | |
155 | ("EFnet: EU, SE, Sweden" EFnet "irc.light.se" 6667) | |
156 | ("EFnet: EU, UK, London (carrier)" EFnet "irc.carrier1.net.uk" ((6666 6669))) | |
157 | ("EFnet: EU, UK, London (demon)" EFnet "efnet.demon.co.uk" ((6665 6669))) | |
158 | ("EFnet: ME, IL, Inter" EFnet "irc.inter.net.il" ((6665 6669))) | |
159 | ("EFnet: US, AZ, Phoenix" EFnet "irc.easynews.com" (6660 (6665 6667) 7000 )) | |
160 | ("EFnet: US, CA, San Jose" EFnet "irc.concentric.net" ((6665 6668))) | |
161 | ("EFnet: US, CA, San Luis Obispo" EFnet "irc.prison.net" ((6666 6667))) | |
162 | ("EFnet: US, GA, Atlanta" EFnet "irc.mindspring.com" ((6660 6669))) | |
163 | ("EFnet: US, MI, Ann Arbor" EFnet "irc.umich.edu" 6667) | |
164 | ("EFnet: US, MN, Twin Cities" EFnet "irc.umn.edu" ((6665 6669))) | |
165 | ("EFnet: US, NY, Mineola" EFnet "irc.lightning.net" ((6665 7000))) | |
166 | ("EFnet: US, NY, New York (east)" EFnet "irc.east.gblx.net" 6667) | |
167 | ("EFnet: US, NY, New York (flamed)" EFnet "irc.flamed.net" ((6665 6669))) | |
168 | ("EFnet: US, TX, Houston" EFnet "ircd.lagged.org" ((6660 6669))) | |
169 | ("EFnet: US, VA, Ashburn" EFnet "irc.secsup.uu.net" ((6665 6669) 8080 )) | |
170 | ("EFnet: Random AU server" EFnet "au.rr.efnet.net" 6667) | |
171 | ("EFnet: Random CA server" EFnet "ca.rr.efnet.net" 6667) | |
172 | ("EFnet: Random EU server" EFnet "eu.rr.efnet.net" 6667) | |
173 | ("EFnet: Random US server" EFnet "us.rr.efnet.net" 6667) | |
174 | ("EgyptianIRC: Random server" EgyptianIRC "irc.egyptianirc.net" ((6667 6669))) | |
175 | ("Eircnet: Random server" Eircnet "irc.eircnet.org" ((6660 6669) 7000 )) | |
176 | ("Eleethal: Random server" Eleethal "irc.eleethal.com" ((6660 6669) 7000 )) | |
177 | ("EntertheGame: Random server" EntertheGame "irc.enterthegame.com" ((6667 6669))) | |
178 | ("EpiKnet: Random server" EpiKnet "irc.epiknet.org" ((6660 6669) 7000 7001 )) | |
179 | ("EsperNet: Random server" EsperNet "irc.esper.net" (5555 (6667 6669) )) | |
180 | ("Esprit: Random server" Esprit "irc.esprit.net" 6667) | |
181 | ("euIRC: Random server" euIRC "irc.euirc.net" ((6665 6669))) | |
182 | ("Evilzinc: Random server" Evilzinc "irc.evilzinc.net" ((6660 6669) 7000 8000 )) | |
183 | ("ExodusIRC: Random server" ExodusIRC "irc.exodusirc.net" ((6660 6669))) | |
184 | ("FDFnet: Random server" FDFnet "irc.fdfnet.net" ((6666 6668) 9999 )) | |
185 | ("FEFnet: Random server" FEFnet "irc.fef.net" 6667) | |
186 | ("Financialchat: Random server" Financialchat "irc.financialchat.com" ((6667 6669) 7000 )) | |
187 | ("Forestnet: Random server" Forestnet "irc.forestnet.org" (6667 7000 )) | |
188 | ("ForeverChat: Random server" ForeverChat "irc.foreverchat.net" ((6660 6669) 7000 )) | |
189 | ("Fraggers: Random server" Fraggers "irc.fraggers.co.uk" ((6661 6669) (7000 7001) )) | |
190 | ("FreedomChat: Random server" FreedomChat "chat.freedomchat.net" 6667) | |
191 | ("FreedomIRC: Random server" FreedomIRC "irc.freedomirc.net" 6667) | |
192 | ("Freenode: Random server" freenode "irc.freenode.net" 6667) | |
193 | ("Freenode: Random EU server" freenode "irc.eu.freenode.net" 6667) | |
194 | ("Freenode: Random US server" freenode "irc.us.freenode.net" 6667) | |
195 | ("FunNet: Random server" FunNet "irc.funnet.org" 6667) | |
196 | ("Galaxynet: Random server" GalaxyNet "irc.galaxynet.org" ((6662 6668) 7000 )) | |
197 | ("Galaxynet: AU, NZ, Auckland" GalaxyNet "auckland.nz.galaxynet.org" ((6661 6669))) | |
198 | ("Galaxynet: EU, BE, Online" GalaxyNet "online.be.galaxynet.org" ((6661 6669))) | |
199 | ("Galaxynet: US, FL, Florida" GalaxyNet "gymnet.us.galaxynet.org" ((6661 6669))) | |
200 | ("Gamesnet: Random east US server" Gamesnet "east.gamesnet.net" 6667) | |
201 | ("Gamesnet: Random west US server" Gamesnet "west.gamesnet.net" 6667) | |
202 | ("GammaForce: Random server" GammaForce "irc.gammaforce.org" ((6660 6669) 7000 )) | |
203 | ("GIKInet: Random server" GIKInet "irc.giki.edu.pk" 6667) | |
204 | ("GizNet: Random server" GizNet "irc.giznet.org" ((6666 6669) 7000 )) | |
205 | ("Globalchat: Random server" Globalchat "irc.globalchat.org" 6667) | |
206 | ("GlobIRC: Random server" GlobIRC "irc.globirc.net" ((6666 6668) 9999 )) | |
207 | ("Goldchat: Random server" Goldchat "irc.goldchat.nl" ((6660 6669) 7000 )) | |
208 | ("Goodchatting: Random server" Goodchatting "irc.goodchatting.com" ((6661 6669) 7000 )) | |
209 | ("GravityLords: Random server" GravityLords "irc.gravitylords.net" 6667) | |
210 | ("Grnet: Random EU server" GRnet "gr.irc.gr" (6667 7000 )) | |
211 | ("Grnet: Random server" GRnet "srv.irc.gr" (6667 7000 )) | |
212 | ("Grnet: Random US server" GRnet "us.irc.gr" (6667 7000 )) | |
213 | ("GulfChat: Random server" GulfChat "irc.gulfchat.net" ((6660 6669))) | |
214 | ("HabberNet: Random server" HabberNet "irc.habber.net" 6667) | |
215 | ("HanIRC: Random server" HanIRC "irc.hanirc.org" 6667) | |
216 | ("Hellenicnet: Random server" Hellenicnet "irc.mirc.gr" (6667 7000 )) | |
217 | ("IceNet: Random server" IceNet "irc.icenet.org.za" 6667) | |
218 | ("ICQnet: Random server" ICQnet "irc.icq.com" 6667) | |
219 | ("Infatech: Random server" Infatech "irc.infatech.net" ((6660 6669))) | |
220 | ("Infinity: Random server" Infinity "irc.infinity-irc.org" 6667) | |
221 | ("Infomatrix: Random server" Infomatrix "irc.infomatrix.net" 6667) | |
222 | ("Inside3D: Random server" Inside3D "irc.inside3d.net" ((6661 6669))) | |
223 | ("InterlinkChat: Random server" InterlinkChat "irc.interlinkchat.net" ((6660 6669) 7000 )) | |
224 | ("IRC-Chile: Random server" IRC-Chile "irc.cl" 6667) | |
225 | ("IRC-Hispano: Random server" IRC-Hispano "irc.irc-hispano.org" 6667) | |
226 | ("IRCchat: Random server" IRCchat "irc.ircchat.tk" 6667) | |
227 | ("IRCGate: Random server" IRCGate "irc.ircgate.net" ((6667 6669))) | |
228 | ("IRCGeeks: Random server" IRCGeeks "irc.ircgeeks.org" ((6660 6669))) | |
229 | ("IRChat: Random server" IRChat "irc.irchat.net" ((6660 6669))) | |
230 | ("IrcLordz: Random server" IrcLordz "irc.irclordz.com" 6667) | |
231 | ("IrcMalta: Random server" IrcMalta "irc.ircmalta.org" ((6660 6667))) | |
232 | ("IRCnet: EU, FR, Random" IRCnet "irc.fr.ircnet.net" 6667) | |
233 | ("IRCnet: EU, IT, Random" IRCnet "irc.ircd.it" ((6665 6669))) | |
234 | ("IRCnet: AS, IL, Haifa" IRCnet "ircnet.netvision.net.il" ((6661 6668))) | |
235 | ("IRCnet: AS, JP, Tokyo" IRCnet "irc.tokyo.wide.ad.jp" 6667) | |
236 | ("IRCnet: AS, TW, Seed" IRCnet "irc.seed.net.tw" 6667) | |
237 | ("IRCnet: EU, AT, Linz" IRCnet "linz.irc.at" ((6666 6668))) | |
238 | ("IRCnet: EU, AT, Wien" IRCnet "vienna.irc.at" ((6666 6669))) | |
239 | ("IRCnet: EU, BE, Brussels" IRCnet "irc.belnet.be" 6667) | |
240 | ("IRCnet: EU, BE, Zaventem" IRCnet "ircnet.wanadoo.be" ((6661 6669))) | |
241 | ("IRCnet: EU, CZ, Prague" IRCnet "irc.felk.cvut.cz" 6667) | |
242 | ("IRCnet: EU, DE, Berlin" IRCnet "irc.fu-berlin.de" ((6665 6669))) | |
243 | ("IRCnet: EU, DE, Dusseldorf" IRCnet "irc.freenet.de" ((6665 6669))) | |
244 | ("IRCnet: EU, DE, Stuttgart" IRCnet "irc.belwue.de" ((6665 6669))) | |
245 | ("IRCnet: EU, DK, Copenhagen" IRCnet "irc.ircnet.dk" 6667) | |
246 | ("IRCnet: EU, EE, Tallinn" IRCnet "irc.estpak.ee" ((6666 6668))) | |
247 | ("IRCnet: EU, FI, Helsinki" IRCnet "irc.cs.hut.fi" 6667) | |
248 | ("IRCnet: EU, GR, Thessaloniki" IRCnet "irc.ee.auth.gr" ((6666 6669))) | |
249 | ("IRCnet: EU, HU, Budapest" IRCnet "irc.elte.hu" 6667) | |
250 | ("IRCnet: EU, IS, Reykjavik (ircnet)" IRCnet "irc.ircnet.is" ((6661 6669))) | |
251 | ("IRCnet: EU, IS, Reykjavik (simnet)" IRCnet "irc.simnet.is" ((6661 6669))) | |
252 | ("IRCnet: EU, IT, Rome" IRCnet "irc.tin.it" ((6665 6669))) | |
253 | ("IRCnet: EU, NL, Amsterdam (nlnet)" IRCnet "irc.nl.uu.net" ((6660 6669))) | |
254 | ("IRCnet: EU, NL, Amsterdam (xs4all)" IRCnet "irc.xs4all.nl" ((6660 6669))) | |
255 | ("IRCnet: EU, NL, Enschede" IRCnet "irc.snt.utwente.nl" ((6660 6669))) | |
256 | ("IRCnet: EU, NL, Nijmegen" IRCnet "irc.sci.kun.nl" ((6660 6669))) | |
257 | ("IRCnet: EU, NO, Oslo" IRCnet "irc.ifi.uio.no" 6667) | |
258 | ("IRCnet: EU, NO, Trondheim" IRCnet "irc.pvv.ntnu.no" 6667) | |
259 | ("IRCnet: EU, PL, Lublin" IRCnet "lublin.irc.pl" ((6666 6668))) | |
260 | ("IRCnet: EU, PL, Warsaw" IRCnet "warszawa.irc.pl" ((6666 6668))) | |
261 | ("IRCnet: EU, RU, Moscow" IRCnet "irc.msu.ru" 6667) | |
262 | ("IRCnet: EU, SE, Lulea" IRCnet "irc.ludd.luth.se" ((6661 6669))) | |
263 | ("IRCnet: EU, UK, London (Demon)" IRCnet "ircnet.demon.co.uk" ((6665 6669))) | |
264 | ("IRCnet: EU, UK, London (Easynet)" IRCnet "ircnet.easynet.co.uk" ((6666 6669))) | |
265 | ("IRCnet: US, NY, New York" IRCnet "irc.stealth.net" ((6660 6669))) | |
266 | ("IRCnet: Random AU server" IRCnet "au.ircnet.org" 6667) | |
267 | ("IRCnet: Random EU server" IRCnet "eu.ircnet.org" ((6665 6668))) | |
268 | ("IRCnet: Random US server" IRCnet "us.ircnet.org" ((6665 6668))) | |
269 | ("IRCSoulZ: Random server" IRCSoulZ "irc.ircsoulz.net" 6667) | |
270 | ("IRCSul: BR, PR, Maringa" IRCSul "irc.wnet.com.br" 6667) | |
271 | ("IrcTalk: Random server" IrcTalk "irc.irctalk.net" ((6660 6669))) | |
272 | ("Irctoo: Random server" Irctoo "irc.irctoo.net" 6667) | |
273 | ("IRCtown: Random server" IRCtown "irc.irctown.net" ((6666 6669) 7000 )) | |
274 | ("IRCworld: Random server" IRCworld "irc.ircworld.org" 6667) | |
275 | ("ircXtreme: Random server" ircXtreme "irc.ircXtreme.net" ((6660 6669))) | |
276 | ("Israelnet: Random server" Israelnet "irc.israel.net" 6667) | |
277 | ("K0wNet: Random server" K0wNet "irc.k0w.net" ((6660 6669))) | |
278 | ("KDFSnet: Random server" KDFSnet "irc.kdfs.net" ((6667 6669))) | |
279 | ("Kemik: Random server" Kemik "irc.kemik.net" 6667) | |
10dc9f9e | 280 | ("Kewl.Org: Random server" Kewl\.Org "irc.kewl.org" (6667 7000 )) |
597993cf MB |
281 | ("Kickchat: Random server" Kickchat "irc.kickchat.com" ((6660 6669) 7000 )) |
282 | ("Kidsworld: Random server" KidsWorld "irc.kidsworld.org" ((6666 6669))) | |
283 | ("Knightnet: AF, ZA, Durban" Knightnet "orc.dbn.za.knightnet.net" (6667 5555 )) | |
284 | ("Knightnet: US, CA, Goldengate" Knightnet "goldengate.ca.us.knightnet.net" (6667 5555 )) | |
10dc9f9e | 285 | ("Konfido.Net: Random server" Konfido\.Net "irc.konfido.net" 6667) |
597993cf MB |
286 | ("KreyNet: Random server" Kreynet "irc.krey.net" 6667) |
287 | ("Krono: Random server" Krono "irc.krono.net" ((6660 6669) 7000 )) | |
288 | ("Krushnet: Random server" Krushnet "irc.krushnet.org" 6667) | |
289 | ("LagNet: Random server" LagNet "irc.lagnet.org.za" 6667) | |
290 | ("LagNet: AF, ZA, Cape Town" LagNet "reaper.lagnet.org.za" 6667) | |
291 | ("LagNet: AF, ZA, Johannesburg" LagNet "mystery.lagnet.org.za" 6667) | |
292 | ("Librenet: Random server" Librenet "irc.librenet.net" 6667) | |
293 | ("LinkNet: Random server" LinkNet "irc.link-net.org" ((6667 6669))) | |
10dc9f9e | 294 | ("LinuxChix: Random server" LinuxChix "irc.linuxchix.org" 6667) |
597993cf MB |
295 | ("Liquidized: Random server" Liquidized "irc.liquidized.net" (6667 7000 )) |
296 | ("M-IRC: Random server" M-IRC "irc.m-sys.org" ((6667 6669))) | |
297 | ("MagicStar: Random server" MagicStar "irc.magicstar.net" 6667) | |
298 | ("Mavra: Random server" Mavra "irc.mavra.net" 6667) | |
299 | ("MediaDriven: Random server" MediaDriven "irc.mediadriven.com" ((6667 6669))) | |
300 | ("mIRC-X: Random server" mIRC-X "irc.mircx.com" (6667 7000 )) | |
301 | ("Morat: Random server" Morat "irc.morat.net" 6667) | |
302 | ("MusicCity: Random server" MusicCity "chat.musiccity.com" 6667) | |
303 | ("Mysteria: Random server" Mysteria "irc.mysteria.net" (6667 7000 )) | |
304 | ("Mysterychat: Random server" Mysterychat "irc.mysterychat.net" ((6667 6669))) | |
305 | ("Mystical: Random server" Mystical "irc.mystical.net" (6667 7000 )) | |
306 | ("Narancs: Random server" Narancs "irc.narancs.com" ((6667 6669) 7000 )) | |
307 | ("Net-France: Random server" Net-France "irc.net-france.com" 6667) | |
308 | ("Nevernet: Random server" Nevernet "irc.nevernet.net" 6667) | |
309 | ("Newnet: Random server" Newnet "irc.newnet.net" ((6665 6667))) | |
310 | ("Nexusirc: Random server" Nexusirc "irc.nexusirc.org" 6667) | |
311 | ("Nightstar: Random server" NightStar "irc.nightstar.net" ((6665 6669))) | |
312 | ("NitrousNet: Random server" NitrousNet "irc.nitrousnet.net" 6667) | |
313 | ("Novernet: Random server" Novernet "irc.novernet.com" ((6665 6669) 7000 )) | |
314 | ("Nullrouted: Random server" Nullrouted "irc.nullrouted.org" ((6666 6669) 7000 )) | |
315 | ("NullusNet: Random server" NullusNet "irc.nullus.net" 6667) | |
ff59d266 | 316 | ("OFTC: Random server" OFTC "irc.oftc.net" ((6667 6670) 7000)) |
597993cf MB |
317 | ("OpChat: Random server" OpChat "irc.opchat.org" ((6667 6669))) |
318 | ("Othernet: Random server" Othernet "irc.othernet.org" 6667) | |
319 | ("Othernet: US, FL, Miami" Othernet "miami.fl.us.othernet.org" 6667) | |
320 | ("Othernet: US, MO, StLouis" Othernet "stlouis.mo.us.othernet.org" 6667) | |
321 | ("Otherside: Random server" OtherSide "irc.othersideirc.net" 6667) | |
322 | ("Outsiderz: Random server" Outsiderz "irc.outsiderz.com" 6667) | |
323 | ("OzOrg: AU, Perth" OzOrg "iinet.perth.oz.org" 6667) | |
324 | ("Peacefulhaven: Random server" Peacefulhaven "irc.peacefulhaven.net" ((6660 6669) 7000 )) | |
325 | ("PhazedIRC: Random server" PhazedIRC "irc.phazedirc.net" 6667) | |
326 | ("Philchat: Random server" Philchat "irc.philchat.net" 6667) | |
327 | ("phrozN: Random server" phrozN "irc.phrozn.net" 6667) | |
328 | ("PiNet: Random server" PiNet "irc.praetorians.org" ((6665 6669))) | |
329 | ("Pinoycentral: Random server" Pinoycentral "chat.abs-cbn.com" 6667) | |
330 | ("Planetarion: Random server" Planetarion "irc.planetarion.com" 6667) | |
331 | ("POLNet: Random server" POLNet "irc.ircnet.pl" 6667) | |
332 | ("Psionics: CA, PQ, Montreal" Psionics "chat.psionics.net" ((6660 6669))) | |
333 | ("PTirc: Random server" PTirc "irc.ptirc.com.pt" 6667) | |
334 | ("PTlink: Random server" PTlink "irc.ptlink.net" 6667) | |
335 | ("PTnet: Random server" PTnet "irc.ptnet.org" 6667) | |
336 | ("QChat: Random server" QChat "irc.qchat.net" 6667) | |
337 | ("QuakeNet: Random German server" QuakeNet "de.quakenet.org" ((6667 6669))) | |
338 | ("QuakeNet: Random server" QuakeNet "irc.quakenet.eu.org" ((6667 6669))) | |
339 | ("QuakeNet: Random Swedish server" QuakeNet "se.quakenet.org" ((6667 6669))) | |
340 | ("QuakeNet: Random UK server" QuakeNet "uk.quakenet.org" ((6667 6669))) | |
341 | ("QuakeNet: Random US server" QuakeNet "us.quakenet.org" ((6667 6669))) | |
342 | ("Realirc: Random server" Realirc "irc.realirc.org" 6667) | |
343 | ("RealmNET: Random server" RealmNET "irc.realmnet.com" 6667) | |
344 | ("Rebelchat: Random server" Rebelchat "irc.rebelchat.org" 6667) | |
345 | ("Red-Latina: Random server" Red-Latina "irc.red-latina.org" 6667) | |
346 | ("RedLatona: Random server" RedLatona "irc.redlatona.net" (6667 6668 )) | |
347 | ("Relicnet: Random server" Relicnet "irc.relic.net" 6667) | |
348 | ("Rezosup: Random server" Rezosup "irc.rezosup.org" 6667) | |
349 | ("Risanet: Random server" Risanet "irc.risanet.com" ((6667 6669))) | |
5e56b3fb | 350 | ("Rizon: Random server" Rizon "irc.rizon.net" (6633 (6660 6669) 6697 7000 8080 9999)) |
597993cf MB |
351 | ("Rubiks: Random server" Rubiks "irc.rubiks.net" 6667) |
352 | ("Rusnet: EU, RU, Tomsk" Rusnet "irc.tsk.ru" ((6667 6669) (7770 7775) )) | |
353 | ("Rusnet: EU, RU, Vladivostok" Rusnet "irc.vladivostok.ru" ((6667 6669) (7770 7775) )) | |
354 | ("Rusnet: EU, UA, Kiev" Rusnet "irc.kar.net" ((6667 6669) (7770 7775) )) | |
355 | ("Sandnet: Random server" Sandnet "irc.sandnet.net" ((6660 6669) 7000 )) | |
356 | ("Scunc: Random server" Scunc "irc.scunc.net" 6667) | |
357 | ("SerbianCafe: Random server" SerbianCafe "irc.serbiancafe.ws" ((6665 6669))) | |
358 | ("SexNet: Random server" SexNet "irc.sexnet.org" 6667) | |
359 | ("ShadowFire: Random server" ShadowFire "irc.shadowfire.org" 6667) | |
360 | ("ShadowWorld: Random server" ShadowWorld "irc.shadowworld.net" 6667) | |
361 | ("SkyNet: Random server" SkyNet "irc.bronowski.pl" ((6666 6668))) | |
362 | ("Slashnet: Random server" Slashnet "irc.slashnet.org" 6667) | |
363 | ("SolarStone: Random server" SolarStone "irc.solarstone.net" ((6660 6669))) | |
364 | ("Sorcerynet: Random server" Sorcery "irc.sorcery.net" (6667 7000 9000 )) | |
365 | ("Sorcerynet: EU, SE, Karlskrona" Sorcery "nexus.sorcery.net" (6667 7000 9000 )) | |
366 | ("Sorcerynet: US, CA, Palo Alto" Sorcery "kechara.sorcery.net" (6667 7000 9000 )) | |
367 | ("SourceIRC: Random server" SourceIRC "irc.sourceirc.net" ((6667 6669) 7000 )) | |
368 | ("SpaceTronix: Random server" SpaceTronix "irc.spacetronix.net" ((6660 6669) 7000 )) | |
369 | ("Spirit-Harmony: Random server" Spirit-Harmony "irc.spirit-harmony.com" ((6661 6669))) | |
370 | ("StarChat: Random server" StarChat "irc.starchat.net" ((6667 6669) 7000 )) | |
371 | ("StarEquinox: Random server" StarEquinox "irc.starequinox.net" ((6660 6669))) | |
372 | ("StarLink: Random server" Starlink "irc.starlink.net" ((6660 6669))) | |
373 | ("StarLink-irc: Random server" starlink-irc "irc.starlink-irc.org" 6667) | |
374 | ("StarWars-IRC: Random server" StarWars-IRC "irc.starwars-irc.net" ((6663 6667))) | |
375 | ("Stormdancing: Random server" Stormdancing "irc.stormdancing.net" ((6664 6669) 7000 9000 )) | |
376 | ("Superchat: Random server" Superchat "irc.superchat.org" ((6660 6668))) | |
377 | ("Sysopnet: Random server" Sysopnet "irc.sysopnet.org" ((6666 6668))) | |
378 | ("Telstra: Random server" Telstra "irc.telstra.com" ((6667 6669))) | |
379 | ("TR-net: EU, TR, Ankara" TR-net "irc.dominet.com.tr" 6667) | |
380 | ("TR-net: EU, Tr, Istanbul" TR-net "irc.teklan.com.tr" 6667) | |
381 | ("Tri-net: Random server" Tri-net "irc.tri-net.org" 6667) | |
382 | ("TriLink: Random server" TriLink "irc.ft4u.net" 6667) | |
383 | ("TurkishChat: Random server" TurkishChat "irc.turkishchat.org" ((6660 6669) 7000 )) | |
384 | ("UberNinja: Random server" UberNinja "irc.uberninja.net" ((6667 6669))) | |
385 | ("UICN: Random server" UICN "irc.uicn.net" 6667) | |
386 | ("UltraIRC: Random server" UltraIRC "irc.ultrairc.net" 6667) | |
387 | ("UnderChat: Random server" UnderChat "irc.underchat.it" ((6660 6669) 7000 )) | |
388 | ("Undernet: CA, ON, Toronto" Undernet "toronto.on.ca.undernet.org" ((6661 6669))) | |
389 | ("Undernet: CA, QC, Montreal" Undernet "montreal.qu.ca.undernet.org" ((6660 6669))) | |
390 | ("Undernet: EU, AT, Graz" Undernet "graz.at.eu.undernet.org" ((6661 6669))) | |
391 | ("Undernet: EU, BE, Antwerp" Undernet "flanders.be.eu.undernet.org" ((6660 6669))) | |
392 | ("Undernet: EU, BE, Brussels" Undernet "brussels.be.eu.undernet.org" 6667) | |
393 | ("Undernet: EU, CH, Geneva" Undernet "geneva.ch.eu.undernet.org" ((6660 6669) 7777 8000 )) | |
394 | ("Undernet: EU, FR, Caen" Undernet "caen.fr.eu.undernet.org" ((6666 6669))) | |
395 | ("Undernet: EU, NL, Diemen" Undernet "diemen.nl.eu.undernet.org" ((6660 6669))) | |
396 | ("Undernet: EU, NL, Haarlem" Undernet "haarlem.nl.eu.undernet.org" ((6660 6669))) | |
397 | ("Undernet: EU, NO, Oslo" Undernet "oslo.no.eu.undernet.org" ((6660 6669))) | |
398 | ("Undernet: EU, SE, Stockholm" Undernet "stockholm.se.eu.undernet.org" ((6666 6669))) | |
399 | ("Undernet: EU, UK, Surrey" Undernet "surrey.uk.eu.undernet.org" ((6660 6669))) | |
400 | ("Undernet: US, AZ, Mesa" Undernet "mesa.az.us.undernet.org" ((6665 6667))) | |
401 | ("Undernet: US, CA, San Diego" Undernet "sandiego.ca.us.undernet.org" ((6660 6670))) | |
402 | ("Undernet: US, DC, Washington" Undernet "washington.dc.us.undernet.org" ((6660 6669))) | |
403 | ("Undernet: US, KS, Manhattan" Undernet "manhattan.ks.us.undernet.org" ((6660 6669))) | |
404 | ("Undernet: US, NV, Las Vegas" Undernet "lasvegas.nv.us.undernet.org" ((6660 6669))) | |
405 | ("Undernet: US, TX, Austin" Undernet "austin.tx.us.undernet.org" ((6660 6669))) | |
406 | ("Undernet: US, UT, Saltlake" Undernet "saltlake.ut.us.undernet.org" ((6660 6669))) | |
407 | ("Undernet: US, VA, Arlington" Undernet "arlington.va.us.undernet.org" ((6660 6669))) | |
408 | ("Undernet: US, VA, McLean" Undernet "mclean.va.us.undernet.org" ((6666 6669))) | |
409 | ("Undernet: Random EU server" Undernet "eu.undernet.org" 6667) | |
410 | ("Undernet: Random US server" Undernet "us.undernet.org" 6667) | |
411 | ("UnderZ: Random server" UnderZ "irc.underz.org" ((6667 6668))) | |
412 | ("UniChat: Random server" UniChat "irc.uni-chat.net" 6667) | |
413 | ("UnionLatina: Random server" UnionLatina "irc.unionlatina.org" 6667) | |
414 | ("Univers: Random server" Univers "irc.univers.org" ((6665 6669))) | |
415 | ("UnixR: Random server" UnixR "irc.unixr.net" ((6667 6669))) | |
416 | ("Vidgamechat: Random server" Vidgamechat "irc.vidgamechat.com" 6667) | |
417 | ("VirtuaNet: Random server" VirtuaNet "irc.virtuanet.org" ((6660 6669) 7000 )) | |
418 | ("Vitamina: Random server" Vitamina "irc.vitamina.ca" 6667) | |
419 | ("Voila: Random server" Voila "irc.voila.fr" 6667) | |
420 | ("Wahou: Random server" Wahou "irc.wahou.org" ((6665 6669))) | |
421 | ("Warpednet: Random server" Warpednet "irc.warped.net" 6667) | |
422 | ("Weaklinks: Random server" Weaklinks "irc.weaklinks.net" ((6667 6669))) | |
423 | ("Webnet: Random server" Webnet "irc.webchat.org" ((6667 6669) 7000 )) | |
424 | ("Webnet: US, CA, Santa Clara" Webnet "webmaster.ca.us.webchat.org" ((6661 6669))) | |
425 | ("WinChat: Random server" WinChat "irc.winchat.net" ((6661 6669))) | |
426 | ("WinIRC: Random server" WinIRC "irc.winirc.org" ((6667 6669) 4400 )) | |
427 | ("WorldIRC: Random server" WorldIRC "irc.worldirc.org" ((6660 6667))) | |
428 | ("WyldRyde: Random server" WyldRyde "irc.wyldryde.net" ((6666 6669))) | |
429 | ("XentoniX: Random server" XentoniX "irc.xentonix.net" ((6661 6669))) | |
430 | ("Xevion: Random server" Xevion "irc.xevion.net" (6667 7000 )) | |
431 | ("XNet: Random server" XNet "irc.xnet.org" 6667) | |
432 | ("XWorld: Random server" XWorld "irc.xworld.org" 6667) | |
433 | ("ZAnet Net: Random server" ZAnetNet "irc.zanet.net" 6667) | |
434 | ("ZAnet Org: UK, London" ZAnetOrg "mystic.zanet.org.za" 6667) | |
435 | ("ZiRC: Random server" ZiRC "irc.zirc.org" ((6660 6669))) | |
436 | ("ZUHnet: Random server" ZUHnet "irc.zuh.net" 6667) | |
437 | ("Zurna: Random server" Zurna "irc.zurna.net" 6667)) | |
438 | "Alist of irc servers. (NAME NET HOST PORTS) where | |
439 | NAME is a name for that server, | |
440 | NET is a symbol indicating to which network from `erc-networks-alist' this | |
441 | server corresponds, | |
442 | HOST is the servers hostname and | |
443 | PORTS is either a number, a list of numbers, or a list of port ranges." | |
444 | :group 'erc-networks | |
445 | :type 'sexp) | |
446 | ||
447 | (defcustom erc-networks-alist | |
448 | '((4-irc "4-irc.com") | |
449 | (A5KNet "a5knet.com") | |
450 | (AbleNet "ablenet.org") | |
451 | (Accessirc "accessirc.net") | |
452 | (Acestar "acestar.org") | |
453 | (Action-IRC "action-irc.net") | |
454 | (AfterNET "afternet.org") | |
455 | (Alternativenet "altnet.org") | |
456 | (AmigaNet "amiganet.org") | |
457 | (AngelEyez "angeleyez.net") | |
458 | (Anothernet "another.net") | |
459 | (ArabChat "arabchat.org") | |
10dc9f9e | 460 | (Ars "arstechnica.com") |
597993cf MB |
461 | (AsiaTalk "asiatalk.org") |
462 | (AstroLink "astrolink.org") | |
463 | (Asylumnet "asylumnet.org") | |
464 | (Austnet "austnet.org") | |
465 | (AwesomeChat "awesomechat.net") | |
466 | (Awesomechristians "awesomechristians.com") | |
467 | (Axenet "axenet.org") | |
468 | (Beyondirc "beyondirc.net") | |
469 | (BGIRC "bulgaria.org") | |
470 | (Blabbernet "blabber.net") | |
471 | (Blitzed "blitzed.org") | |
472 | (BrasIRC "brasirc.net") | |
473 | (BRASnet "brasnet.org") | |
474 | (BubbleNet "bubblenet.org") | |
475 | (CCnet "christian-chat.net") | |
476 | (Chat-Net "chat-net.org") | |
477 | (Chat-Solutions "chat-solutions.org") | |
478 | (Chatcafe "chatcafe.net") | |
479 | (Chatchannel "chatchannel.org") | |
480 | (ChatCircuit "chatcircuit.com") | |
481 | (Chatlink "chatlink.org") | |
482 | (Chatnet "chatnet.org") | |
483 | (ChatNut "chatnut.net") | |
484 | (Chatpinoy "chatpinoy.com") | |
485 | (ChatPR "chatpr.org") | |
486 | (Chatroom "chatroom.org") | |
487 | (Chatster "chatster.org") | |
488 | (ChatX "chatx.net") | |
489 | (China263 "263.net") | |
490 | (Cineplex1 "cineplex1.com") | |
491 | (CNN "cnn.com") | |
492 | (CobraNet "cobra.net") | |
493 | (Coolchat "coolchat.net") | |
494 | (Criten "criten.net") | |
495 | (Cyberchat "cyberchat.org") | |
496 | (CyGanet "cyga.net") | |
497 | (DALnet "dal.net") | |
498 | (Dark-Tou-Net "d-t-net.de") | |
499 | (Darkfire "darkfire.net") | |
500 | (DarkMyst "darkmyst.org") | |
501 | (Darkserv "darkserv.net") | |
502 | (Darksystem "darksystem.com") | |
503 | (Darktree "darktree.net") | |
504 | (DayNet "daynet.org") | |
505 | (Deepspace "deepspace.org") | |
506 | (Different "different.net") | |
507 | (Digarix "digarix.net") | |
508 | (Digatech "digatech.net") | |
509 | (Digital-Base "digital-base.net") | |
510 | (Digitalirc "digitalirc.net") | |
511 | (Discussioni "discussioni.org") | |
512 | (DorukNet "doruk.net.tr") | |
513 | (DWChat "dwchat.net") | |
514 | (Dynastynet "dynastynet.net") | |
515 | (EFnet nil) | |
516 | (EgyptianIRC "egyptianirc.net") | |
517 | (Eircnet "eircnet.org") | |
518 | (Eleethal "eleethal.com") | |
519 | (EntertheGame "enterthegame.com") | |
520 | (EpiKnet "epiknet.org") | |
521 | (EsperNet "esper.net") | |
522 | (Esprit "esprit.net") | |
523 | (euIRC "euirc.net") | |
524 | (Evilzinc "evilzinc.net") | |
525 | (ExodusIRC "exodusirc.net") | |
526 | (FDFnet "fdfnet.net") | |
527 | (FEFnet "fef.net") | |
528 | (Financialchat "financialchat.com") | |
529 | (Forestnet "forestnet.org") | |
530 | (ForeverChat "foreverchat.net") | |
531 | (Fraggers "fraggers.co.uk") | |
532 | (FreedomChat "freedomchat.net") | |
533 | (FreedomIRC "freedomirc.net") | |
534 | (freenode "freenode.net") | |
535 | (FunNet "funnet.org") | |
536 | (GalaxyNet "galaxynet.org") | |
537 | (Gamesnet "gamesnet.net") | |
538 | (GammaForce "gammaforce.org") | |
539 | (GIKInet "giki.edu.pk") | |
540 | (GizNet "giznet.org") | |
541 | (Globalchat "globalchat.org") | |
542 | (GlobIRC "globirc.net") | |
543 | (Goldchat "goldchat.nl") | |
544 | (Goodchatting "goodchatting.com") | |
545 | (GravityLords "gravitylords.net") | |
546 | (GRnet "irc.gr") | |
547 | (GulfChat "gulfchat.net") | |
548 | (HabberNet "habber.net") | |
549 | (HanIRC "hanirc.org") | |
550 | (Hellenicnet "mirc.gr") | |
551 | (IceNet "icenet.org.za") | |
552 | (ICQnet "icq.com") | |
553 | (iip "anon.iip") | |
554 | (Infatech "infatech.net") | |
555 | (Infinity "infinity-irc.org") | |
556 | (Infomatrix "infomatrix.net") | |
557 | (Inside3D "inside3d.net") | |
558 | (InterlinkChat "interlinkchat.net") | |
559 | (IRC-Chile "irc.cl") | |
560 | (IRC-Hispano "irc-hispano.org") | |
561 | (IRCchat "ircchat.tk") | |
562 | (IRCGate "ircgate.net") | |
563 | (IRCGeeks "ircgeeks.org") | |
564 | (IRChat "irchat.net") | |
565 | (IrcLordz "irclordz.com") | |
566 | (IrcMalta "ircmalta.org") | |
567 | (IRCnet nil) | |
568 | (IRCSoulZ "ircsoulz.net") | |
569 | (IRCSul "wnet.com.br") | |
570 | (IrcTalk "irctalk.net") | |
571 | (Irctoo "irctoo.net") | |
572 | (IRCtown "irc.irctown.net") | |
573 | (IRCworld "ircworld.org") | |
574 | (ircXtreme "ircXtreme.net") | |
575 | (Israelnet "israel.net") | |
576 | (K0wNet "k0w.net") | |
577 | (KDFSnet "kdfs.net") | |
578 | (Kemik "kemik.net") | |
579 | (Kewl\.Org "kewl.org") | |
580 | (Kickchat "kickchat.com") | |
581 | (KidsWorld "kidsworld.org") | |
582 | (Knightnet "knightnet.net") | |
583 | (Konfido\.Net "konfido.net") | |
584 | (Kreynet "krey.net") | |
585 | (Krono "krono.net") | |
586 | (Krushnet "krushnet.org") | |
587 | (LagNet "lagnet.org.za") | |
588 | (Librenet "librenet.net") | |
589 | (LinkNet "link-net.org") | |
10dc9f9e | 590 | (LinuxChix "cats\.meow\.at\\|linuxchix\.org") |
597993cf MB |
591 | (Liquidized "liquidized.net") |
592 | (M-IRC "m-sys.org") | |
593 | (MagicStar "magicstar.net") | |
594 | (Mavra "mavra.net") | |
595 | (MediaDriven "mediadriven.com") | |
596 | (mIRC-X "mircx.com") | |
597 | (Morat "morat.net") | |
598 | (MusicCity "musiccity.com") | |
599 | (Mysteria "mysteria.net") | |
600 | (Mysterychat "mysterychat.net") | |
601 | (Mystical "mystical.net") | |
602 | (Narancs "narancs.com") | |
603 | (Net-France "net-france.com") | |
604 | (Nevernet "nevernet.net") | |
605 | (Newnet "newnet.net") | |
606 | (Nexusirc "nexusirc.org") | |
607 | (NightStar "nightstar.net") | |
608 | (NitrousNet "nitrousnet.net") | |
609 | (Novernet "novernet.com") | |
610 | (Nullrouted "nullrouted.org") | |
611 | (NullusNet "nullus.net") | |
ff59d266 | 612 | (OFTC "oftc.net") |
597993cf MB |
613 | (OpChat "opchat.org") |
614 | (Openprojects "openprojects.net") | |
615 | (Othernet "othernet.org") | |
616 | (OtherSide "othersideirc.net") | |
617 | (Outsiderz "outsiderz.com") | |
618 | (OzOrg "oz.org") | |
619 | (Peacefulhaven "peacefulhaven.net") | |
620 | (PhazedIRC "phazedirc.net") | |
621 | (Philchat "philchat.net") | |
622 | (phrozN "phrozn.net") | |
623 | (PiNet "praetorians.org") | |
624 | (Pinoycentral "abs-cbn.com") | |
625 | (Planetarion "planetarion.com") | |
626 | (POLNet "ircnet.pl") | |
627 | (Psionics "psionics.net") | |
628 | (PTirc "ptirc.com.pt") | |
629 | (PTlink "ptlink.net") | |
630 | (PTnet "ptnet.org") | |
631 | (QChat "qchat.net") | |
632 | (QuakeNet "quakenet.org") | |
633 | (Realirc "realirc.org") | |
634 | (RealmNET "realmnet.com") | |
635 | (Rebelchat "rebelchat.org") | |
636 | (Red-Latina "red-latina.org") | |
637 | (RedLatona "redlatona.net") | |
638 | (Relicnet "relic.net") | |
639 | (Rezosup "rezosup.org") | |
640 | (Risanet "risanet.com") | |
641 | (Rubiks "rubiks.net") | |
642 | (Rusnet "nil") | |
643 | (Sandnet "sandnet.net") | |
644 | (Scunc "scunc.net") | |
645 | (SerbianCafe "serbiancafe.ws") | |
646 | (SexNet "sexnet.org") | |
647 | (ShadowFire "shadowfire.org") | |
648 | (ShadowWorld "shadowworld.net") | |
649 | (SkyNet "bronowski.pl") | |
650 | (SlashNET "slashnet.org") | |
651 | (SolarStone "solarstone.net") | |
652 | (Sorcery "sorcery.net") | |
653 | (SourceIRC "sourceirc.net") | |
654 | (SpaceTronix "spacetronix.net") | |
655 | (Spirit-Harmony "spirit-harmony.com") | |
656 | (StarChat "starchat.net") | |
657 | (StarEquinox "starequinox.net") | |
658 | (Starlink "starlink.net") | |
659 | (starlink-irc "starlink-irc.org") | |
660 | (StarWars-IRC "starwars-irc.net") | |
661 | (Stormdancing "stormdancing.net") | |
662 | (Superchat "superchat.org") | |
663 | (Sysopnet "sysopnet.org") | |
664 | (Telstra "telstra.com") | |
665 | (TR-net "dominet.com.tr") | |
666 | (Tri-net "tri-net.org") | |
667 | (TriLink "ft4u.net") | |
668 | (TurkishChat "turkishchat.org") | |
669 | (UberNinja "uberninja.net") | |
670 | (UICN "uicn.net") | |
671 | (UltraIRC "ultrairc.net") | |
672 | (UnderChat "underchat.it") | |
673 | (Undernet "undernet.org") | |
674 | (UnderZ "underz.org") | |
675 | (UniChat "irc.uni-chat.net") | |
676 | (UnionLatina "unionlatina.org") | |
677 | (Univers "univers.org") | |
678 | (UnixR "unixr.net") | |
679 | (Vidgamechat "vidgamechat.com") | |
680 | (VirtuaNet "virtuanet.org") | |
681 | (Vitamina "vitamina.ca") | |
682 | (Voila "voila.fr") | |
683 | (Wahou "wf-net.org") | |
684 | (Warpednet "warped.net") | |
685 | (Weaklinks "weaklinks.net") | |
686 | (Webnet "webchat.org") | |
687 | (WinChat "winchat.net") | |
688 | (WinIRC "winirc.org") | |
689 | (WorldIRC "worldirc.org") | |
690 | (WyldRyde "wyldryde.net") | |
691 | (XentoniX "xentonix.net") | |
692 | (Xevion "xevion.net") | |
693 | (XNet "xnet.org") | |
694 | (XWorld "xworld.org") | |
695 | (ZAnetNet "zanet.net") | |
696 | (ZAnetOrg "zanet.org.za") | |
697 | (ZiRC "zirc.org") | |
698 | (ZUHnet "zuh.net") | |
699 | (Zurna "zurna.net")) | |
700 | "Alist of IRC networks. (NET MATCHER) where | |
701 | NET is a symbol naming that IRC network and | |
702 | MATCHER is used to find a corresponding network to a server while connected to | |
703 | it. If it is regexp, it's used to match against `erc-server-announced-name'. | |
704 | It can also be a function (predicate). Then it is executed with the | |
705 | server buffer as current-buffer." | |
706 | :group 'erc-networks | |
707 | :type '(repeat | |
708 | (list :tag "Network" | |
709 | (symbol :tag "Network name") | |
710 | (choice :tag "Network's common server ending" | |
711 | (regexp) | |
712 | (const :tag "Network has no common server ending" nil))))) | |
713 | ||
714 | (defvar erc-network nil | |
715 | "The name of the network you are connected to (a symbol).") | |
716 | (make-variable-buffer-local 'erc-network) | |
717 | ||
718 | ;; Functions: | |
719 | ||
720 | ;;;###autoload | |
721 | (defun erc-determine-network () | |
722 | "Return the name of the network or \"Unknown\" as a symbol. Use the | |
723 | server parameter NETWORK if provided, otherwise parse the server name and | |
724 | search for a match in `erc-networks-alist'." | |
725 | ;; The server made it easy for us and told us the name of the NETWORK | |
726 | (if (assoc "NETWORK" erc-server-parameters) | |
727 | (intern (cdr (assoc "NETWORK" erc-server-parameters))) | |
728 | (or | |
729 | ;; Loop through `erc-networks-alist' looking for a match. | |
730 | (let ((server (or erc-server-announced-name erc-session-server))) | |
731 | (loop for (name matcher) in erc-networks-alist | |
732 | when (and matcher | |
733 | (string-match (concat matcher "\\'") server)) | |
734 | do (return name))) | |
735 | 'Unknown))) | |
736 | ||
737 | (defun erc-network () | |
738 | "Return the value of `erc-network' for the current server." | |
ff59d266 | 739 | (erc-with-server-buffer erc-network)) |
597993cf MB |
740 | |
741 | (defun erc-current-network () | |
742 | "Deprecated. Use `erc-network' instead. Return the name of this server's | |
743 | network as a symbol." | |
ff59d266 | 744 | (erc-with-server-buffer |
597993cf MB |
745 | (intern (downcase (symbol-name erc-network))))) |
746 | ||
747 | (erc-make-obsolete 'erc-current-network 'erc-network | |
c6b99621 | 748 | "Obsolete since erc-networks 1.5") |
597993cf MB |
749 | |
750 | (defun erc-network-name () | |
751 | "Returns the name of the current network as a string." | |
ff59d266 | 752 | (erc-with-server-buffer (symbol-name erc-network))) |
597993cf MB |
753 | |
754 | (defun erc-set-network-name (proc parsed) | |
755 | "Set `erc-network' to the value returned by `erc-determine-network'." | |
756 | (unless erc-server-connected | |
757 | (setq erc-network (erc-determine-network))) | |
758 | nil) | |
759 | ||
760 | (defun erc-unset-network-name (nick ip reason) | |
761 | "Set `erc-network' to nil." | |
762 | (setq erc-network nil) | |
763 | nil) | |
764 | ||
5e56b3fb MO |
765 | (define-erc-module networks nil |
766 | "Provide data about IRC networks." | |
767 | ((add-hook 'erc-server-375-functions 'erc-set-network-name) | |
768 | (add-hook 'erc-server-422-functions 'erc-set-network-name) | |
769 | (add-hook 'erc-disconnected-hook 'erc-unset-network-name)) | |
770 | ((remove-hook 'erc-server-375-functions 'erc-set-network-name) | |
771 | (remove-hook 'erc-server-422-functions 'erc-set-network-name) | |
772 | (remove-hook 'erc-disconnected-hook 'erc-unset-network-name))) | |
597993cf MB |
773 | |
774 | (defun erc-ports-list (ports) | |
775 | "Return a list of PORTS. | |
776 | ||
777 | PORTS should be a list of either: | |
778 | A number, in which case it is returned a list. | |
779 | Or a pair of the form (LOW HIGH), in which case, a list of all the | |
780 | numbers between LOW and HIGH (inclusive) is returned. | |
781 | ||
782 | As an example: | |
783 | (erc-ports-list '(1)) => (1) | |
784 | (erc-ports-list '((1 5))) => (1 2 3 4 5) | |
785 | (erc-ports-list '(1 (3 5))) => (1 3 4 5)" | |
786 | (let (result) | |
787 | (dolist (p ports) | |
788 | (cond ((numberp p) | |
789 | (push p result)) | |
790 | ((listp p) | |
791 | (setq result (nconc (loop for i from (cadr p) downto (car p) | |
792 | collect i) | |
793 | result))))) | |
794 | (nreverse result))) | |
795 | ||
796 | ;;;###autoload | |
797 | (defun erc-server-select () | |
798 | "Interactively select a server to connect to using `erc-server-alist'." | |
799 | (interactive) | |
800 | (let* ((completion-ignore-case t) | |
801 | (net (intern | |
802 | (completing-read "Network: " | |
803 | (erc-delete-dups | |
804 | (mapcar (lambda (x) | |
805 | (list (symbol-name (nth 1 x)))) | |
806 | erc-server-alist))))) | |
807 | (srv (assoc | |
808 | (completing-read "Server: " | |
809 | (delq nil | |
810 | (mapcar (lambda (x) | |
811 | (when (equal (nth 1 x) net) | |
812 | x)) | |
813 | erc-server-alist))) | |
814 | erc-server-alist)) | |
815 | (host (nth 2 srv)) | |
816 | (ports (if (listp (nth 3 srv)) | |
817 | (erc-ports-list (nth 3 srv)) | |
818 | (list (nth 3 srv)))) | |
819 | (port (nth (random (length ports)) ports))) | |
83dc6995 | 820 | (erc :server host :port port))) |
597993cf MB |
821 | |
822 | ;;; The following experimental | |
823 | ;; It does not work yet, help me with it if you | |
824 | ;; think it is worth the effort. | |
825 | ||
826 | (defvar erc-settings | |
827 | '((pals freenode ("kensanata" "shapr" "anti\\(fuchs\\|gone\\)")) | |
828 | (format-nick-function (freenode "#emacs") erc-format-@nick)) | |
829 | "Experimental: Alist of configuration options. | |
830 | The format is (VARNAME SCOPE VALUE) where | |
831 | VARNAME is a symbol identifying the configuration option, | |
832 | SCOPE is either a symbol which identifies an entry from | |
833 | `erc-networks-alist' or a list (NET TARGET) where NET is a network symbol and | |
834 | TARGET is a string identifying the channel/query target. | |
835 | VALUE is the options value.") | |
836 | ||
837 | (defun erc-get (var &optional net target) | |
838 | (let ((items erc-settings) | |
839 | elt val) | |
840 | (while items | |
841 | (setq elt (car items) | |
842 | items (cdr items)) | |
843 | (when (eq (car elt) var) | |
844 | (cond ((and net target (listp (nth 1 elt)) | |
845 | (eq net (car (nth 1 elt))) | |
846 | (string-equal target (nth 1 (nth 1 elt)))) | |
847 | (setq val (nth 2 elt) | |
848 | items nil)) | |
849 | ((and net (eq net (nth 1 elt))) | |
850 | (setq val (nth 2 elt) | |
851 | items nil)) | |
852 | ((and (not net) (not target) (not (nth 1 elt))) | |
853 | (setq val (nth 2 elt) | |
854 | items nil))))) | |
855 | val)) | |
856 | ||
857 | (erc-get 'pals 'freenode) | |
858 | ||
c6b99621 | 859 | (provide 'erc-networks) |
597993cf | 860 | |
c6b99621 | 861 | ;;; erc-networks.el ends here |
597993cf MB |
862 | ;; |
863 | ;; Local Variables: | |
864 | ;; indent-tabs-mode: t | |
865 | ;; tab-width: 8 | |
866 | ;; End: | |
867 |