From: Daiki Ueno Date: Thu, 25 Nov 2004 09:56:49 +0000 (+0000) Subject: * Makefile.am (EXTRA_DIST): Add url-riece.el. X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=7daf9636a3506bf01218c0ed082c525ceea41f69 * Makefile.am (EXTRA_DIST): Add url-riece.el. * url-riece.el: url-irc backend provided by Masatake YAMATO . --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2f96c98..ab7cfd0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-11-25 Daiki Ueno + + * Makefile.am (EXTRA_DIST): Add url-riece.el. + * url-riece.el: url-irc backend provided by Masatake YAMATO + . + 2004-11-25 Daiki Ueno * test/Makefile.am (EXTRA_DIST): Add test-riece-url.el. diff --git a/lisp/Makefile.am b/lisp/Makefile.am index c65f321..d7a9709 100644 --- a/lisp/Makefile.am +++ b/lisp/Makefile.am @@ -14,7 +14,8 @@ EXTRA_DIST = COMPILE ChangeLog ChangeLog.Liece \ riece-guess.el riece-history.el riece-button.el riece-keyword.el \ riece-menu.el riece-icon.el riece-async.el riece-lsdb.el \ riece-xface.el riece-ctlseq.el riece-ignore.el riece-hangman.el \ - riece-biff.el riece-kakasi.el riece-foolproof.el riece-yank.el + riece-biff.el riece-kakasi.el riece-foolproof.el riece-yank.el \ + url-riece.el CLEANFILES = auto-autoloads.el custom-load.el *.elc FLAGS ?= -batch -q -no-site-file diff --git a/lisp/url-riece.el b/lisp/url-riece.el new file mode 100644 index 0000000..851fce6 --- /dev/null +++ b/lisp/url-riece.el @@ -0,0 +1,107 @@ +;;; url-riece --- Adapting `riece' to `url-irc' +;; Copyright (C) 2004 Masatake YAMATO + +;; Author: Masatake YAMATO +;; Keywords: IRC, riece, url, comm, data, processes + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Commentary: +;; +;; With this package you can opne an url which protocol is irc by +;; riece via url package of GNU Emacs. +;; +;; e.g. +;; (url-retrieve-synchronously "irc://irc.gnome.org:6667/#gtk+") +;; (url-mm-url "irc://irc.gnome.org:6667/#gtk+") +;; + +;;; Code: +(require 'riece) +(require 'url) +(require 'url-irc) + +(defun url-irc-riece-ready-p () + "Riece is active or not. +\(If it is active, a server named \"\" may exists.)" + (and (boundp 'riece-server-process-alist) + riece-server-process-alist)) + +;; Based on the code posted to liece ml by Daiki Ueno +;; Message-Id: <612cb699-83c0-47ad-a991-423c46bc8384@well-done.deisui.org> +(defun url-irc-riece-find-server (host &optional port) + "Find an entry for HOST:PORT in `riece-server-process-alist'." + (unless port (setq port 6667)) + (catch 'found + (let (name name-sans-service plist) + (mapc (lambda (pointer) + (setq name (car pointer) + name-sans-service (plist-get + (riece-server-name-to-server name) + :host) + plist (if (equal name "") + riece-server + (cdr (or (assoc name riece-server-alist) + (assoc name-sans-service riece-server-alist))))) + (when (and plist + (equal (plist-get plist :host) host) + (eq (or (plist-get plist :service) 6667) port)) + (throw 'found pointer))) + riece-server-process-alist) + nil))) +;(url-irc-riece-find-server "localhost") +;(url-irc-riece-find-server "localhost" 6667) +;(url-irc-riece-find-server "irc.gnome.org") + +(defun url-irc-riece (host port channel user password) + "Adapting `riece' to `url-irc'. +See the documentation of `url-irc-function'about HOST, PORT, CHANNEL, USER +and PASSWORD. Just give nil to it." + (unless user (setq user riece-nickname)) + (let ((server (if port (format "%s:%d" host port) host))) + (cond + ((not (url-irc-riece-ready-p)) + (setq riece-server server) + (let ((riece-default-password password) + (riece-nickname user)) + ;; Just start riece + (riece)) + (url-irc-riece host port channel user password)) + ((not (url-irc-riece-find-server host port)) + (let ((riece-default-password password) + (riece-nickname user)) + ;; Just open the server + (riece-command-open-server server)) + (url-irc-riece host port channel user password)) + (t + (let ((server-name (car (url-irc-riece-find-server host port)))) + (riece-command-join + (riece-parse-identity (if (string= server-name "") + channel + (format "%s %s" channel server))))) + ;; Show the windows + (riece))))) +; (url-irc-riece "localhost" nil "#mandara" "jetgx" nil) +; (url-irc-riece "localhost" nil "#misc" "jetgx" nil) +; (url-irc-riece "irc.gnome.org" nil "#mandara" "jetgx" nil) +; (url-irc-riece "irc.gnome.org" nil "#misc" "jetgx" nil) + +(setq url-irc-function 'url-irc-riece) + +(provide 'url-riece) + +;; arch-tag: b54bcdf0-0ee3-447b-bc07-e7329d9f2f45 +;;; url-riece.el ends here