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