Mercurial > emacs
annotate lisp/url/url-irc.el @ 79207:f19edd342e7b
Comment change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 24 Oct 2007 08:24:36 +0000 |
parents | 8932997d0b62 |
children | 9c0b3f269b92 997ca3d094a9 |
rev | line source |
---|---|
54695 | 1 ;;; url-irc.el --- IRC URL interface |
57612 | 2 |
64748
875dcc490074
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64084
diff
changeset
|
3 ;; Copyright (C) 1996, 1997, 1998, 1999, 2004, |
75347 | 4 ;; 2005, 2006, 2007 Free Software Foundation, Inc. |
57612 | 5 |
54695 | 6 ;; Keywords: comm, data, processes |
7 | |
57612 | 8 ;; This file is part of GNU Emacs. |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
78222
8932997d0b62
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75347
diff
changeset
|
12 ;; the Free Software Foundation; either version 3, or (at your option) |
57612 | 13 ;; any later version. |
54695 | 14 |
57612 | 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 | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
64084 | 22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
23 ;; Boston, MA 02110-1301, USA. | |
57612 | 24 |
25 ;;; Commentary: | |
26 | |
27 ;; IRC URLs are defined in http://www.w3.org/Addressing/draft-mirashi-url-irc-01.txt | |
28 | |
29 ;;; Code: | |
54695 | 30 |
31 (require 'url-vars) | |
32 (require 'url-parse) | |
33 | |
34 (defconst url-irc-default-port 6667 "Default port for IRC connections") | |
35 | |
69695
20c95c0b0947
(url-irc-rcirc, url-irc-erc): New functions.
Romain Francoise <romain@orebokech.com>
parents:
68640
diff
changeset
|
36 (defcustom url-irc-function 'url-irc-rcirc |
54695 | 37 "*Function to actually open an IRC connection. |
69695
20c95c0b0947
(url-irc-rcirc, url-irc-erc): New functions.
Romain Francoise <romain@orebokech.com>
parents:
68640
diff
changeset
|
38 Should be a function that takes several arguments: |
54695 | 39 HOST - the hostname of the IRC server to contact |
40 PORT - the port number of the IRC server to contact | |
41 CHANNEL - What channel on the server to visit right away (can be nil) | |
42 USER - What username to use | |
43 PASSWORD - What password to use" | |
69695
20c95c0b0947
(url-irc-rcirc, url-irc-erc): New functions.
Romain Francoise <romain@orebokech.com>
parents:
68640
diff
changeset
|
44 :type '(choice (const :tag "rcirc" :value url-irc-rcirc) |
20c95c0b0947
(url-irc-rcirc, url-irc-erc): New functions.
Romain Francoise <romain@orebokech.com>
parents:
68640
diff
changeset
|
45 (const :tag "ERC" :value url-irc-erc) |
20c95c0b0947
(url-irc-rcirc, url-irc-erc): New functions.
Romain Francoise <romain@orebokech.com>
parents:
68640
diff
changeset
|
46 (const :tag "ZEN IRC" :value url-irc-zenirc) |
54695 | 47 (function :tag "Other")) |
48 :group 'url) | |
49 | |
50 (defun url-irc-zenirc (host port channel user password) | |
51 (let ((zenirc-buffer-name (if (and user host port) | |
52 (format "%s@%s:%d" user host port) | |
53 (format "%s:%d" host port))) | |
54 (zenirc-server-alist | |
55 (list | |
56 (list host port password nil user)))) | |
57 (zenirc) | |
58 (goto-char (point-max)) | |
59 (if (not channel) | |
60 nil | |
61 (insert "/join " channel) | |
62 (zenirc-send-line)))) | |
63 | |
69695
20c95c0b0947
(url-irc-rcirc, url-irc-erc): New functions.
Romain Francoise <romain@orebokech.com>
parents:
68640
diff
changeset
|
64 (defun url-irc-rcirc (host port channel user password) |
20c95c0b0947
(url-irc-rcirc, url-irc-erc): New functions.
Romain Francoise <romain@orebokech.com>
parents:
68640
diff
changeset
|
65 (let ((chan (when channel (concat "#" channel)))) |
20c95c0b0947
(url-irc-rcirc, url-irc-erc): New functions.
Romain Francoise <romain@orebokech.com>
parents:
68640
diff
changeset
|
66 (rcirc-connect host port user nil nil (when chan (list chan))) |
20c95c0b0947
(url-irc-rcirc, url-irc-erc): New functions.
Romain Francoise <romain@orebokech.com>
parents:
68640
diff
changeset
|
67 (when chan |
20c95c0b0947
(url-irc-rcirc, url-irc-erc): New functions.
Romain Francoise <romain@orebokech.com>
parents:
68640
diff
changeset
|
68 (switch-to-buffer (concat chan "@" host))))) |
20c95c0b0947
(url-irc-rcirc, url-irc-erc): New functions.
Romain Francoise <romain@orebokech.com>
parents:
68640
diff
changeset
|
69 |
20c95c0b0947
(url-irc-rcirc, url-irc-erc): New functions.
Romain Francoise <romain@orebokech.com>
parents:
68640
diff
changeset
|
70 (defun url-irc-erc (host port channel user password) |
71883 | 71 (erc-handle-irc-url host port channel user password)) |
69695
20c95c0b0947
(url-irc-rcirc, url-irc-erc): New functions.
Romain Francoise <romain@orebokech.com>
parents:
68640
diff
changeset
|
72 |
54695 | 73 ;;;###autoload |
74 (defun url-irc (url) | |
75 (let* ((host (url-host url)) | |
57886
60d07d8a52e1
* url-imap.el (url-imap-open-host): Don't use
Masatake YAMATO <jet@gyve.org>
parents:
57612
diff
changeset
|
76 (port (url-port url)) |
54695 | 77 (pass (url-password url)) |
78 (user (url-user url)) | |
79 (chan (url-filename url))) | |
80 (if (url-target url) | |
81 (setq chan (concat chan "#" (url-target url)))) | |
82 (if (string-match "^/" chan) | |
83 (setq chan (substring chan 1 nil))) | |
84 (if (= (length chan) 0) | |
85 (setq chan nil)) | |
86 (funcall url-irc-function host port chan user pass) | |
87 nil)) | |
69695
20c95c0b0947
(url-irc-rcirc, url-irc-erc): New functions.
Romain Francoise <romain@orebokech.com>
parents:
68640
diff
changeset
|
88 |
54695 | 89 (provide 'url-irc) |
54699 | 90 |
91 ;;; arch-tag: 2e5eecf8-9eb3-436b-9fbd-c26f2fb2bf3e | |
57612 | 92 ;;; url-irc.el ends here |