9:11 a.m.
User: daiki
Date: 05/03/20 10:11:40
Modified: packages/xemacs-packages/riece/lisp/test Makefile.am
lunit.el
Added: packages/xemacs-packages/riece NEWS.ja README.ja
packages/xemacs-packages/riece/lisp
riece-command-next-channel.xpm
riece-command-previous-channel.xpm riece-debug.el
riece-eval.el riece-google.el riece-keepalive.el
riece-submit-bug-report.xpm riece-toolbar.el
packages/xemacs-packages/riece/lisp/test lunit-report.el
test-riece-eval.el test-riece-log.el test-riece.el
Log:
Sync riece with upstream version 1.0.8
Revision Changes Path
1.15 +14 -0 XEmacs/packages/xemacs-packages/riece/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/ChangeLog,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- ChangeLog 2004/12/07 21:48:46 1.14
+++ ChangeLog 2005/03/20 09:11:09 1.15
＠＠ -1,3 +1,17 ＠＠
+2005-03-06 Daiki Ueno <ueno(a)unixuser.org>
+
+ * Riece: Version 1.0.8 released.
+ * configure.ac: Bump up version to 1.0.8.
+
+2005-02-05 Daiki Ueno <ueno(a)unixuser.org>
+
+ * Riece: Version 1.0.7 released.
+ * configure.ac: Bump up version to 1.0.7.
+
+2004-12-07 Daiki Ueno <ueno(a)unixuser.org>
+
+ * README.ja: New file.
+
2004-12-07 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.17 released.
1.15 +24 -19 XEmacs/packages/xemacs-packages/riece/Makefile
Index: Makefile
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/Makefile,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- Makefile 2004/12/07 21:48:46 1.14
+++ Makefile 2005/03/20 09:11:09 1.15
＠＠ -20,7 +20,7 ＠＠
# This XEmacs package contains the riece IRC client package
VERSION = 1.17
-AUTHOR_VERSION = 1.0.6
+AUTHOR_VERSION = 1.0.8
MAINTAINER = Daiki Ueno <ueno(a)unixuser.org>
PACKAGE = riece
PKG_TYPE = regular
＠＠ -29,24 +29,27 ＠＠
include ../../Local.rules.inc
-ELCS = lisp/riece-compat.elc lisp/riece-xemacs.elc lisp/riece-globals.elc \
- lisp/riece-options.elc lisp/riece-version.elc lisp/riece-coding.elc \
- lisp/riece-complete.elc lisp/riece-addon.elc lisp/riece-mode.elc \
- lisp/riece-identity.elc lisp/riece-channel.elc lisp/riece-user.elc \
- lisp/riece-misc.elc lisp/riece-signal.elc lisp/riece-layout.elc \
- lisp/riece-display.elc lisp/riece-server.elc lisp/riece-naming.elc \
- lisp/riece-message.elc lisp/riece-filter.elc lisp/riece-handle.elc \
- lisp/riece-000.elc lisp/riece-200.elc lisp/riece-300.elc \
- lisp/riece-400.elc lisp/riece-500.elc lisp/riece-commands.elc \
- lisp/riece-irc.elc lisp/riece.elc lisp/riece-ctcp.elc \
- lisp/riece-highlight.elc lisp/riece-log.elc lisp/riece-mini.elc \
- lisp/riece-rdcc.elc lisp/riece-url.elc lisp/riece-unread.elc \
- lisp/riece-doctor.elc lisp/riece-alias.elc lisp/riece-foolproof.elc \
- lisp/riece-guess.elc lisp/riece-history.elc lisp/riece-button.elc \
- lisp/riece-keyword.elc lisp/riece-menu.elc lisp/riece-icon.elc \
- lisp/riece-async.elc lisp/riece-lsdb.elc lisp/riece-xface.elc \
- lisp/riece-ctlseq.elc lisp/riece-ignore.elc lisp/riece-hangman.elc \
- lisp/riece-biff.elc lisp/riece-kakasi.elc lisp/riece-yank.elc
+ELCS = lisp/riece-000.elc lisp/riece-200.elc lisp/riece-300.elc \
+ lisp/riece-400.elc lisp/riece-500.elc lisp/riece-addon.elc \
+ lisp/riece-alias.elc lisp/riece-async.elc lisp/riece-biff.elc \
+ lisp/riece-button.elc lisp/riece-channel.elc lisp/riece-coding.elc \
+ lisp/riece-commands.elc lisp/riece-compat.elc lisp/riece-complete.elc \
+ lisp/riece-ctcp.elc lisp/riece-ctlseq.elc lisp/riece-debug.elc \
+ lisp/riece-display.elc lisp/riece-doctor.elc lisp/riece-emacs.elc \
+ lisp/riece-eval.elc lisp/riece-filter.elc lisp/riece-foolproof.elc \
+ lisp/riece-globals.elc lisp/riece-google.elc lisp/riece-guess.elc \
+ lisp/riece-handle.elc lisp/riece-hangman.elc lisp/riece-highlight.elc \
+ lisp/riece-history.elc lisp/riece-icon.elc lisp/riece-identity.elc \
+ lisp/riece-ignore.elc lisp/riece-irc.elc lisp/riece-kakasi.elc \
+ lisp/riece-keepalive.elc lisp/riece-keyword.elc lisp/riece-layout.elc \
+ lisp/riece-log.elc lisp/riece-lsdb.elc lisp/riece-menu.elc \
+ lisp/riece-message.elc lisp/riece-mini.elc lisp/riece-misc.elc \
+ lisp/riece-mode.elc lisp/riece-naming.elc lisp/riece-ndcc.elc \
+ lisp/riece-options.elc lisp/riece-rdcc.elc lisp/riece-server.elc \
+ lisp/riece-signal.elc lisp/riece-skk-kakutei.elc \
+ lisp/riece-toolbar.elc lisp/riece-unread.elc lisp/riece-url.elc \
+ lisp/riece-user.elc lisp/riece-version.elc lisp/riece-xemacs.elc \
+ lisp/riece-xface.elc lisp/riece-yank.elc lisp/riece.elc
EXTRA_SOURCES = lisp/riece-emacs.el lisp/riece-skk-kakutei.el lisp/url-riece.el
AUTOLOAD_PATH = lisp
＠＠ -58,5 +61,7 ＠＠
endif
PRELOADS = -eval \("push \"./lisp\" load-path"\)
+
+DATA_1_FILES = $(wildcard lisp/*.xpm)
include ../../XEmacs.rules
1.3 +1 -1 XEmacs/packages/xemacs-packages/riece/Makefile.am
Index: Makefile.am
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/Makefile.am,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- Makefile.am 2004/09/05 09:04:14 1.2
+++ Makefile.am 2005/03/20 09:11:10 1.3
＠＠ -1,5 +1,5 ＠＠
SUBDIRS = lisp doc
-EXTRA_DIST = INSTALL-CVS
+EXTRA_DIST = INSTALL-CVS README.ja NEWS.ja
AUTOMAKE_OPTIONS = no-dependencies
if XEMACS
1.2 +492 -0 XEmacs/packages/xemacs-packages/riece/NEWS
Index: NEWS
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/NEWS,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- NEWS 2003/10/25 09:25:38 1.1
+++ NEWS 2005/03/20 09:11:10 1.2
＠＠ -0,0 +1,492 ＠＠
+* Major changes in 1.0.8
+
+** Mitigate file locking scheme of riece-log. (ueno)
+
+** Format idle seconds in human readable form. (ueno)
+
+** Separate riece-obarray into riece-channel-obarray and
+ riece-user-obarray. (kaoru)
+
+** Fixed bugs caused by mishandling of channel names (which should be
+ case insensitive.) (ueno)
+
+** Support SXEmacs version names. (Steve Youngs)
+
+** Support CTCP TIME. (Steve Youngs)
+
+** Ignore directories under ~/.riece/addons. (kaoru)
+
+** Fixed wrong-number-of-arguments error on riece-command-part. (yoichi)
+
+** Fixed a bug which assumes existence of ~/.riece/addons when
+ startup. (ueno)
+
+* Major changes in 1.0.7
+
+** New add-on riece-toolbar. (ueno)
+ riece-toolbar displays icons on toolbar. Currently not all the
+ icons are included.
+
+** New add-on riece-keepalive. (ueno)
+ riece-keepalive spontaneously sends a PING message to server to
+ keep an IRC connection.
+
+** New add-on riece-google. (bg66)
+ riece-google searches on Google and sends the result to the channel.
+
+** New add-on riece-eval. (bg66)
+ riece-eval evaluates elisp expression and sends the result to the channel.
+
+** Some add-ons are enabled by default. (ueno)
+ riece-log, riece-alias, riece-ctlseq, and riece-keyword are now
+ enabled by default.
+
+** New command riece-command-suspend-resume. (ueno)
+ riece-command-suspend-resume saves or restores the current window
+ configuration.
+
+** Preserve cursor position when clicking button widget. (ueno)
+
+** Decorate modeline indicator with faces. (ueno)
+
+** Count users in NAMES reply. (ueno)
+
+** New user option riece-part-message. (ueno)
+
+** Add-ons located in riece-addon-directory are automatically enabled. (ueno)
+
+** Default value of riece-buffer-dispose-function is now kill-buffer. (ueno)
+
+** Backtrace when encountered an error in process-filter. (ueno)
+
+** Ask channel key to user when it is required. (ueno)
+
+** Automatic buffer shrinking is now disabled by default. (ueno)
+
+** New directory structure for riece-log. (ueno)
+
+** Fixed a bug in user-renamed signal-filter. (kaoru)
+
+** Fixed a bug in riece-command-enable-addon and
+ riece-command-disable-addon. (yoichi)
+
+* Major changes in 1.0.6
+
+** Bundle url-riece, a backend of url-irc which comes with the recent
+ GNU Emacs. (Yamato-san)
+
+** New user option riece-url-regexp-alist to allow users to define
+ mapping from arbitrary strings (such as "Bug#12345") to URL. (This
+ feature is a backport from Liece) (ueno)
+
+** New modeline indicator which represents user's channel operator
+ status in the current channel. (ueno, thanks to k-to)
+
+** Remove multiple lines at a time when shrinking channel buffers.
+ Number of lines to be removed is controlled by
+ riece-shrink-buffer-remove-lines option. (ueno, thanks to ysjj)
+
+** riece-alias-alist now works again. (ueno)
+
+** Fixed a bug in flow control for sending long messages, introduced
+ in 1.0.4. (ueno)
+
+** New command riece-submit-bug-report to generate a template for good
+ problem report. (ueno)
+
+** Accept radical IRC proxy programs which break with tradition of the
+ original IRC server implementation. (ueno, thanks to k-to san)
+
+** New key bind C-c # <number> to switch channel by number. (ueno,
+ thanks to ysjj)
+
+** If a prefix-argument is given, riece-yank sends message as a NOTICE. (bg66)
+
+* Major changes in 1.0.5
+
+** Added some test cases. (ueno)
+
+** Alternate separator string for channel names. (ueno)
+ In case riece-alias-alternate-separator set to "＠", rewriting will
+ be done as follows:
+
+ "#riece" -> "#riece"
+ "#riece localhost" -> "#riece＠localhost"
+ "#ch＠nnel" -> "#ch＠＠nnel"
+ "#ch＠nnel localhost" -> "#ch＠＠nnel＠localhost"
+
+** Fixed interop bug in DCC. (ueno)
+
+** New add-on riece-yank to send strings from kill-ring. (by Yamato-san)
+
+** English translation of texinfo document is included. (ueno)
+
+* Major changes in 1.0.4
+
+** Do "flow control" to avoid flooding. (ueno)
+
+** Automatically open servers when joining channels at startup. Users
+ can now omit riece-startup-server-list settings. (ueno)
+
+** riece-mini provides a command to browse recent messages. (bg66)
+
+* Major changes in 1.0.3
+
+NOTE: This release includes some fixes to long standing bugs in essential features. I
recommend to upgrade from the older versions.
+
+** Remove nonexistent users from user list. (Thanks to Yamashita-san)
+
+** Improved line truncation customizability. Users can now control it
+ by simply setting truncate-lines on each buffer. (Thanks to
+ Yamashita-san)
+
+** Added new user option riece-window-center-line to control buffer
+ scrolling behavior.
+
+** Fixed completion bug in command buffer. (Thanks to Yamashita-san)
+
+** Remove chat partner from channel list when he/she resigned from
+ IRC. (Thanks to Morimoto-san)
+
+** Exit immediately after an error occurred in connecting to the
+ default IRC server. (Thanks to k-to san)
+
+* Major changes in 1.0.2
+
+** Fixed problem hiding menubar menus when riece-url is enabled.
+
+** Split IRC protocol interface from the core modules.
+
+** Fixed minor bugs.
+
+* Major changes in 1.0.1
+
+** Arranged background colors of modeline faces (for XEmacs)
+
+** When changing channel modes, do not prepend ":" to MODE message
+ (Thanks to Yamada-san)
+
+** Added riece-foolproof add-on which prevents miss posting to
+ channels (by Takahashi-san)
+
+** Arranged the order of modeline elements on channel buffers (by
+ Takahashi-san)
+
+** Changed open/close bracket for displaying own notices (by Takahashi-san)
+
+** Don't register signal-slot functions duplicatedly.
+
+** New user command riece-command-beginning-of-buffer bound to C-c Home.
+
+** For frozen channels, preserve cursor position of channel buffers
+ while zapping between other channels.
+
+** Follow the change in emacs-cvs, check the return value of
+ current-word (by Nakayama-san)
+
+** Fixed random number generation logic for riece-hangman (by Takahashi-san)
+
+** Signal "No text to send" error if user types C-c p on an empty line.
+
+** New user option riece-startup-ignored-user-list: which can be used
+ to set up riece-ignored-user-list in ~/.riece/init.el.
+
+** Allow sending/receiving files whose names contain whitespaces.
+
+* Major changes in 1.0.0
+
+** New UI for enabling/disabling add-ons (to enter this mode, C-c ^)
+
+** Fixed bug that a user couldn't quit password input with C-g.
+
+** New add-on "riece-hangman" which allows channel members to play
hangman(6).
+
+** Display error message on C-c q when no IRC process are running.
+
+** New add-on "riece-ignore" which allows to ignore messages from
+ particular users.
+
+** Accept nicknames consisting more than 9 letters.
+
+** Avoid duplicate initialization of add-ons.
+
+** New add-on "riece-biff" which displays biff mark ("[R]") on
+ mode-line. (by Ohashi-san)
+
+** New add-on "riece-kakasi" which converts Japanese to roman string.
+
+** Fixed prompt strings to indicate the current action more
+ precisely. (suggested by Yamashita-san)
+
+* Major changes in 0.2.2
+
+** Interpret control sequences used in IRC such as ^B, ^V, ^_, etc.
+ This feature is implemented as an add-on called riece-ctlseq.
+
+** Fixed bug that private messages were not treated as unread.
+
+** Buffer "freeze" status can be toggled in each buffer respectively.
+ (use C-t C-f)
+
+** Use canonicalized channel names to locate directories where log
+ files are stored. (by Ohashi-san)
+
+* Major changes in 0.2.0
+
+** Introduced "signal-slot" (as in Qt, GTK+) mechanism to routing
+ display events.
+
+** When a user requests NAMES, insert nicknames into the channel buffer.
+
+** Fixed bug in riece-lsdb. (by Nakayama-san)
+
+* Major changes in 0.1.8
+
+** Added riece-lsdb add-on which cooperates with LSDB.
+** Added riece-xface add-on which displays X-Faces in user list buffer.
+
+** Fixed bug that channel names were treated case sensitively.
+
+** Handle messages from other clients which use the same IRC proxy.
+ (by Takahashi-san)
+
+* Major changes in 0.1.7
+
+** Added riece-async add-on which provides safe connection to an IRC
+ server via local proxy which responds to PING requests while Emacs
+ is busy or suspended.
+
+** Fixed changing user away status bug when riece-away-message is set.
+ (Thanks to Fujimura-san)
+
+** Remove side effects on standard-syntax-table when loading.
+ (Thanks to Hori-san)
+
+** Can join channels on several servers at startup by setting
+ riece-startup-server-list as well as riece-startup-channel-list.
+
+** New user option `riece-log-coding-system' to specify default coding
+ system used for log files.
+
+** New user option `riece-keyword-notify-functions' called when
+ someone spoke a message including the specified keyword. Please use
+ it instead of `riece-notify-keyword-functions'(very confusing
+ name!).
+
+** riece-log-flashback also restores faces and buttons.
+
+** riece-{unread,mini} ignores NOTICE and CTCP ACTION messages.
+
+* Major changes in 0.1.6
+
+** Fixed running problems on Emacs 20.7.
+
+** Fixed compilation failure on XEmacs 21.1.
+
+** Allow riece-rdcc to receive large files without memory consumption.
+
+** Check channel modes when joinning if riece-gather-channel-modes == t.
+
+** Fixed run-idle-timer usage to shrink channel buffers.
+
+** Fixed buffer scrolling behavior when switching channels.
+
+** Allow to specify qualified channel names in
+ riece-log-directory-map. (by Ohashi-san)
+
+* Major changes in 0.1.5
+
+** Added 6 new window layouts.
+
+** Automatically save/restore the current window layout.
+
+** Added riece-icon add-on which decorates buffers with icons.
+
+** Speedup in redrawing the user list buffer.
+
+** Improve usability of CTCP ACTION (Thanks to knu-san)
+
+** Fixed bug in riece-rdcc which causes freeze on DCC SEND.
+
+** When riece server was opened, Do riece-command-configure-windows
+ instead of signaling. (Thanks to Ohashi-san)
+
+** Fixed bug in C-c o (riece-command-set-operators) and C-c v
+ (riece-command-set-speakers).
+
+** Shrink buffers when they exceeds riece-max-buffer-size.
+
+* Major changes in 0.1.4
+
+** Bind "N" instead of "\C-n" to riece-command-names in channel
+ buffers. (thanks to Takahashi-san)
+
+** Fixed bug causing an error when the user typed C-c C-t a
+ (riece-command-toggle-away). (thanks to Maeda-san)
+
+** Don't redisplay buffers when the current selected window doesn't
+ display Riece buffers.
+
+** Don't reuse buffers created by different programs. Genereate new
+ buffer in such case.
+
+** Fixed bug which doesn't allow to join a channel whose name is
+ beginning with "!!".
+
+** When riece-keyword is effective, don't check if the message from
+ myself contains given keywords.
+
+** Signal an error when the user issues a command which assumes the
+ current channel though the current channel is not available.
+
+** Added riece-menu add-on which adds a menu entry in the menubar.
+
+* Major changes in 0.1.3
+
+** Treat channel names in PRIVMSG/NOTICE messages case-insensitively.
+
+** When riece-history is effective, mark the last visited channel with "+".
+
+** Added riece-button add-on which decorates buffers with buttons and
+ define some popup-menus.
+
+** Added riece-keyword add-on which notifies the user when the arrived
+ message contains given keywords.
+
+ If you are using XEmacs and want to be notified of keywords with
+ sound, add the following lines to your ~/.riece/init.el:
+
+ (load-default-sounds)
+ (setq riece-keywords '("foo" "bar"))
+ (add-hook 'riece-notify-keyword-functions
+ (lambda (keyword) (play-sound 'cuckoo)))
+
+* Major changes in 0.1.2
+
+** Fixed bug when joinning a channel using a key.
+
+** Revive riece-startup-channel-list.
+
+** New user option riece-rdcc-save-directory is added.
+
+** Fixed unable to interrupt password input.
+
+** Fixed bug in the INVITE handler.
+
+** Prompt a channel name when the user joins the invited channel.
+
+** Fixed bug that occasionally kept riece-channel-list-indicator not
+ up to date.
+
+* Major changes in 0.1.1
+
+** Load some add-ons by default.
+
+** Fixed bug with riece-default-channel-binding not working.
+
+** Mark the current channel with "*" in *Channels* buffer.
+
+** If riece-debug is turned off, don't report connection status when exiting.
+
+** New add-on: riece-history manages channel switching history.
+
+** New add-on: riece-guess offers the next channel user may want to check.
+
+ Tips:
+
+ If you have the following lines in ~/.riece/init.el:
+
+ (setq riece-guess-channel-try-functions
+ '(riece-guess-channel-from-unread
+ riece-guess-channel-from-history))
+
+ By hitting `C-c g' repeatedly, you can check channels in the
+ following order:
+
+ 1. Channels where there is unread message.
+ 2. Channels where you have visited recently.
+ 3. The rest.
+
+* Major changes in 0.1.0
+
+** Use vectors to represent channels and users.
+
+** Improve process management:
+ -- Server names are now embedded in process names.
+ -- Integrate scattered connection management code into riece-server.el.
+ -- Force disconnect if the server does not respond after sending QUIT.
+
+** New add-on: riece-doctor.el allows to pretended to be a doctor.
+
+** Window configuration can be easily switched by hitting C-c t l.
+
+** New add-on: riece-skk-kakutei.el avoids $B"&(B being included in
+ spoken text, when you are using SKK. (by Takahashi-san)
+
+** New predefined layout which emulates "top" window-style as in Liece.
+ (by Takahashi-san)
+
+* Major changes in 0.0.4
+
+** Added riece-mini add-on which allows conversation through a
+ minibuffer (by Ohashi-san).
+
+** Added log collector add-on (riece-log) (by Ohashi-san).
+
+** riece-command-next-channel (C-c >) and
+ riece-command-previous-channel (C-c <) now follow the channel list
+ circularly (by Nakayama-san).
+
+** When riece-unread is enabled, you can quickly check the unread
+ channels by hitting C-c C-u (by Ohashi-san).
+
+** Display of status indicators obeys some IRC messages.
+
+** Replaced ptexinfmt.el with the version which does not depend on
+ APEL (Thanks to Yamaoka-san).
+
+* Major changes in 0.0.3
+
+** Fix bug connecting to two servers which require passwords (Thanks
+ to Nakayama-san)
+
+** Fix inconsistency when changing case of letters in nickname
+
+** Catch all errors occured in handler hooks
+
+** Support DCC file transfer (riece-ndcc.el, riece-rdcc.el)
+
+** Add "mark unread channels" add-on (riece-unread.el)
+
+** Add Japanese texinfo manual (I'll translate it in the future)
+
+* Major changes in 0.0.2
+
+** Don't use APEL functions (pop, push)
+
+** "depcomp" was missing in the previous archive (sorry!)
+
+** Fix bug building on Windows environment (Thanks to Ohashi-san)
+
+** Fix inconsistency when changing nickname
+
+** Fix bug on C-c C-t u (M-x riece-command-toggle-user-list-mode)
+
+** Provide add-on mechanism
+
+** Partial support for CTCP
+
+** Make font-lock related module (riece-highlight) add-on
+
+** Revive URL collector (formerly liece-url) as add-on
+
+* Major changes in 0.0.1
+
+** Initial release.
+
+* For details of changes, see the file ChangeLog.
+
+Local variables:
+mode: outline
+paragraph-separate: "[ ]*$"
+end:
1.2 +2 -3 XEmacs/packages/xemacs-packages/riece/README
Index: README
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/README,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- README 2003/10/25 09:25:38 1.1
+++ README 2005/03/20 09:11:10 1.2
＠＠ -1,7 +1,6 ＠＠
* What's this?
-Riece is an IRC client for Emacs. The development has started to
-redesign the Liece IRC client.
+Riece is an IRC client for Emacs.
Riece provides the following features:
＠＠ -12,7 +11,7 ＠＠
- Setup is easy. Automatically save/restore the configuration.
- Riece uses separate windows to display users, channels, and
dialogues. The user can select the window layout.
-- Step-by-step instructions (currently written in Japanese) are included.
+- Step-by-step instructions (in info format) are included.
- Mostly compliant with RFC 2812.
* Directory tree
1.2 +13 -13 XEmacs/packages/xemacs-packages/riece/acinclude.m4
Index: acinclude.m4
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/acinclude.m4,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- acinclude.m4 2003/10/25 09:25:38 1.1
+++ acinclude.m4 2005/03/20 09:11:10 1.2
＠＠ -1,11 +1,11 ＠＠
-AC_DEFUN(AC_DEFINE_GNUS_PRODUCT_NAME,
+AC_DEFUN([AC_DEFINE_GNUS_PRODUCT_NAME],
[echo $ac_n "defining gnus product name... $ac_c"
AC_CACHE_VAL(EMACS_cv_GNUS_PRODUCT_NAME,[EMACS_cv_GNUS_PRODUCT_NAME=$1])
GNUS_PRODUCT_NAME=${EMACS_cv_GNUS_PRODUCT_NAME}
AC_MSG_RESULT(${GNUS_PRODUCT_NAME})
AC_SUBST(GNUS_PRODUCT_NAME)])
-AC_DEFUN(AC_CHECK_EMACS,
+AC_DEFUN([AC_CHECK_EMACS],
[dnl Check for Emacsen.
dnl Apparently, if you run a shell window in Emacs, it sets the EMACS
＠＠ -35,7 +35,7 ＠＠
AC_SUBST(EMACS)
AC_SUBST(XEMACS)])
-AC_DEFUN(AC_EMACS_LISP, [
+AC_DEFUN([AC_EMACS_LISP], [
elisp="$2"
if test -z "$3"; then
AC_MSG_CHECKING(for $1)
＠＠ -55,7 +55,7 ＠＠
fi
])
-AC_DEFUN(AC_CHECK_EMACS_FLAVOR,
+AC_DEFUN([AC_CHECK_EMACS_FLAVOR],
[AC_MSG_CHECKING([what a flavor does $EMACS have])
dnl Ignore cache.
＠＠ -76,7 +76,7 ＠＠
esac
AC_MSG_RESULT($EMACS_cv_SYS_flavor)])
-AC_DEFUN(AC_PATH_LISPDIR, [
+AC_DEFUN([AC_PATH_LISPDIR], [
AC_CHECK_EMACS_FLAVOR
if test "$prefix" = NONE; then
AC_MSG_CHECKING([prefix for your Emacs])
＠＠ -113,7 +113,7 ＠＠
AC_SUBST(lispdir)
])
-AC_DEFUN(AC_PATH_ETCDIR, [
+AC_DEFUN([AC_PATH_ETCDIR], [
AC_ARG_WITH(etcdir,[ --with-etcdir=DIR Where to install etc files],
etcdir=${withval})
AC_MSG_CHECKING([where etc files should go])
if test -z "$etcdir"; then
＠＠ -128,7 +128,7 ＠＠
dnl Check whether a function exists in a library
dnl All '_' characters in the first argument are converted to '-'
dnl
-AC_DEFUN(AC_EMACS_CHECK_LIB, [
+AC_DEFUN([AC_EMACS_CHECK_LIB], [
if test -z "$3"; then
AC_MSG_CHECKING(for $2 in $1)
fi
＠＠ -150,7 +150,7 ＠＠
dnl
dnl Perform sanity checking and try to locate the W3 package
dnl
-AC_DEFUN(AC_CHECK_W3, [
+AC_DEFUN([AC_CHECK_W3], [
AC_MSG_CHECKING(for acceptable W3 version)
dnl Ignore cache.
＠＠ -184,7 +184,7 ＠＠
dnl
dnl Perform sanity checking and try to locate the W3 package
dnl
-AC_DEFUN(AC_CHECK_URL, [
+AC_DEFUN([AC_CHECK_URL], [
AC_MSG_CHECKING(for acceptable URL version)
dnl Ignore cache.
＠＠ -220,7 +220,7 ＠＠
dnl Bitstream Courier.
dnl
-AC_DEFUN(GNUS_CHECK_FONTS, [
+AC_DEFUN([GNUS_CHECK_FONTS], [
test "$LATEX" = t && LATEX=
test "$LATEX" || AC_PATH_PROGS(LATEX, latex, no)
AC_MSG_CHECKING(for available fonts)
＠＠ -305,7 +305,7 ＠＠
AC_SUBST(USE_FONTS)
])
-AC_DEFUN(AC_EXAMINE_PACKAGEDIR,
+AC_DEFUN([AC_EXAMINE_PACKAGEDIR],
[dnl Examine PACKAGEDIR.
AC_EMACS_LISP(PACKAGEDIR,
(let (package-dir)\
＠＠ -323,7 +323,7 ＠＠
(or package-dir \"\")),
"noecho")])
-AC_DEFUN(AC_PATH_PACKAGEDIR,
+AC_DEFUN([AC_PATH_PACKAGEDIR],
[dnl Check for PACKAGEDIR.
if test ${EMACS_FLAVOR} = xemacs; then
AC_MSG_CHECKING([where the XEmacs package is])
＠＠ -345,7 +345,7 ＠＠
fi
AC_SUBST(PACKAGEDIR)])
-AC_DEFUN(AC_ADD_LOAD_PATH,
+AC_DEFUN([AC_ADD_LOAD_PATH],
[dnl Check for additional load path.
AC_ARG_WITH(addpath,
[ --with-addpath=PATH search Emacs-Lisp libraries with PATH
1.6 +7 -9 XEmacs/packages/xemacs-packages/riece/configure.ac
Index: configure.ac
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/configure.ac,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- configure.ac 2004/12/05 04:12:51 1.5
+++ configure.ac 2005/03/20 09:11:11 1.6
＠＠ -1,18 +1,16 ＠＠
-AC_INIT(configure.ac)
-AC_PREREQ(2.50)
-AM_INIT_AUTOMAKE(riece, 1.0.6)
+AC_INIT
+AC_CONFIG_SRCDIR([configure.ac])
+AC_PREREQ(2.59)
+AM_INIT_AUTOMAKE(riece, 1.0.8)
-AC_ISC_POSIX
-AC_PROG_INSTALL
-AC_PROG_MAKE_SET
-
AC_CHECK_EMACS
AC_PATH_LISPDIR
AC_PATH_PACKAGEDIR
AM_CONDITIONAL(XEMACS, test ${EMACS_FLAVOR} = xemacs)
-AC_OUTPUT(Makefile \
+AC_CONFIG_FILES([Makefile
lisp/Makefile
lisp/test/Makefile
-doc/Makefile)
+doc/Makefile])
+AC_OUTPUT
1.4 +1 -1 XEmacs/packages/xemacs-packages/riece/package-info.in
Index: package-info.in
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/package-info.in,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- package-info.in 2004/12/05 04:12:51 1.3
+++ package-info.in 2005/03/20 09:11:11 1.4
＠＠ -13,7 +13,7 ＠＠
filename FILENAME
md5sum MD5SUM
size SIZE
- provides (riece-compat riece-xemacs riece-globals riece-options riece-version
riece-coding riece-complete riece-addon riece-mode riece-identity riece-channel riece-user
riece-misc riece-signal riece-layout riece-display riece-server riece-naming riece-message
riece-filter riece-handle riece-000 riece-200 riece-300 riece-400 riece-500 riece-commands
riece-irc riece riece-ctcp riece-highlight riece-log riece-mini riece-rdcc riece-url
riece-unread riece-doctor riece-alias riece-foolproof riece-guess riece-history
riece-button riece-keyword riece-menu riece-icon riece-async riece-lsdb riece-xface
riece-ctlseq riece-ignore riece-hangman riece-biff riece-kakasi riece-yank)
+ provides (riece-compat riece-xemacs riece-globals riece-options riece-debug
riece-version riece-coding riece-complete riece-addon riece-mode riece-identity
riece-channel riece-user riece-misc riece-signal riece-layout riece-display riece-server
riece-naming riece-message riece-filter riece-handle riece-000 riece-200 riece-300
riece-400 riece-500 riece-commands riece-irc riece riece-ctcp riece-highlight riece-log
riece-mini riece-rdcc riece-url riece-unread riece-doctor riece-alias riece-skk-kakutei
riece-foolproof riece-guess riece-history riece-button riece-keyword riece-menu riece-icon
riece-async riece-lsdb riece-xface riece-ctlseq riece-ignore riece-hangman riece-biff
riece-kakasi riece-yank riece-toolbar riece-eval riece-google riece-keepalive)
requires (REQUIRES)
type regular
))
1.1 XEmacs/packages/xemacs-packages/riece/NEWS.ja
Index: NEWS.ja
===================================================================
* Riece 1.0.8 $B$N<g$JJQ99E＠(B
** riece-log $B$N%m%C%/$N4KOB(B (ueno)
** RPL_WHOISIDLE $B$NIC?t$rF|;~J,IC7A<0$GI=<((B (ueno)
** riece-obarray $B$r(B riece-channel-obarray, riece-user-obarray $B$KJ,N%(B
(kaoru)
** $B$$$/$D$+$N8D=j$G%A%c%s%M%kL>$NBgJ8;z>.J8;z$,6hJL$5$l$k%P%0$X$NBP1~(B
(ueno)
** SXEmacs $B$N%P!<%8%g%sI=5-$KBP1~(B (Steve Youngs)
** CTCP TIME $B$KBP1~(B (Steve Youngs)
** ~/.riece/addons $B0J2<$N%G%#%l%/%H%j$rFI$_9~$^$J$$$h$&$K$7$?(B (kaoru)
** riece-command-part $B$,%(%i!<$K$J$k%P%0$N=$＠5(B (yoichi)
** ~/.riece/addons $B%G%#%l%/%H%j$,$J$$$H5/F0;~$K%(%i!<$K$J$k%P%0$N=$＠5(B (ueno)
* Riece 1.0.7 $B$N<g$JJQ99E＠(B
** $B?75,%"%I%*%s(B riece-toolbar (ueno)
riece-toolbar
$B$O%D!<%k%P!<$K%"%$%3%s$rI=<($7$^$9!#8=;~E＠$G$OA4$F$N(B
$B%"%$%3%s$,4^$^$l$F$$$k$o$1$G$O$"$j$^$;$s!#(B
** $B?75,%"%I%*%s(B riece-keepalive (ueno)
riece-keepalive $B$O<+H/E*$K%5!<%P$K(B PING $B%a%C%;!<%8$rAw$k$3$H$G(B
IRC
$B$N%3%M%/%7%g%s$r;}B3$5$;$^$9!#(B
** $B?75,%"%I%*%s(B riece-google (bg66)
riece-google $B$O(B Google $B$G$N8!:w7k2L$r%A%c%s%M%k$KAw$j$^$9!#(B
** $B?75,%"%I%*%s(B riece-eval (bg66)
riece-eval $B$O(B elisp $B$N<0$NI>2A7k2L$r%A%c%s%M%k$KAw$j$^$9!#(B
** $B$$$/$D$+$N%"%I%*%s$r%G%U%)%k%H$GM-8z2=(B (ueno)
riece-log, riece-alias, riece-ctlseq, riece-keyword $B$,:#2s$+$i%G%U%)(B
$B%k%H$GM-8z$K$J$j$^$9!#(B
** $B?75,%3%^%s%I(B riece-command-suspend-resume (ueno)
riece-command-suspend-resume
$B$O8=:_$N%&%#%s%I%&9=＠.$rJ]B8!&:F8=$7$^$9!#(B
** $B%\%?%s%&%#%8%'%C%H%/%j%C%/;~$N%+!<%=%k0\F0$NM^;_(B (ueno)
** $B%b!<%I%i%$%s$N%$%s%8%1!<%?$r(B face $B$GAu>~(B (ueno)
** NAMES $B%j%W%i%$$K4^$^$l$k%f!<%6?t$r?t$($k$h$&$K$J$j$^$7$?(B (ueno)
** $B?75,%f!<%6%*%W%7%g%s(B riece-part-message (ueno)
** riece-addon-directory $B0J2<$KCV$+$l$?%"%I%*%s$r<+F0E*$KM-8z2=(B (ueno)
** riece-buffer-dispose-function $B$N%G%U%)%k%HCM$,:#2s$+$i(B kill-buffer
$B$K$J$j$^$7$?(B (ueno)
** process-filter $BFb$G%(%i!<$,H/＠8$7$?>l9g!"(Bbacktrace
$B$r9T$J$&$h$&$K$J(B
$B$j$^$7$?(B (ueno)
** $BI,MW$K1~$8$F%A%c%s%M%k%-!<$rLd$$9g$o$;$k$h$&$K$7$^$7$?(B (ueno)
** $B%P%C%U%!$N<+F0E*$J＠Z$j5M$a$r%G%U%)%k%H$G$OL58z2=(B (ueno)
** riece-log $B$N$?$a$N?7$7$$%G%#%l%/%H%j9=＠.(B (ueno)
** user-renamed signal-filter $B$N%P%0$r=$＠5(B (kaoru)
** riece-command-enable-addon $B$H(B riece-command-disable-addon $B$N%P%0$N(B
$B=$＠5(B (yoichi)
* Riece 1.0.6 $B$N<g$JJQ99E＠(B
** CVS $BHG(B GNU Emacs $B$KF1:-$5$l$?(B url $B%Q%C%1!<%8$N(B irc:
$B%9%-!<%^BP1~$N(B
$B%P%C%/%(%s%I$H$7$F(B Riece $B$r;HMQ$G$-$k$h$&$K$9$k%W%m%0%i%`(B url-riece
$B$r(B
$BF1:-(B ($BBgOB$5$s(B)
** "Bug#12345" $B$N$h$&$JJ8;zNs$r(B URL $B$K%^%C%W$9$k%*%W%7%g%s(B
riece-url-regexp-alist $B$r?7＠_(B (Liece $B$+$i%P%C%/%]!<%H(B) (ueno)
** $B%b!<%I%i%$%s$K<+?H$N%A%c%s%M%k%*%Z%l!<%?$N0u(B(＠,
+)$B$rI=<($9$k$h$&$K(B
$B$7$?(B (ueno, thanks to k-to $B$5$s(B)
** $B%P%C%U%!$r＠Z$j5M$a$k:]$K!"0l9T$:$D$G$O$J$/J#?t9T0lEY$K:o=|$9$k$h$&(B
$B$K$7$?(B (riece-shrink-buffer-remove-lines $B%*%W%7%g%s$G＠_Dj2DG=(B) (ueno,
thanks to ysjj $B$5$s(B)
** riece-alias-alist $B$,>e<j$/F0$$$F$$$J$+$C$?IT6q9g$N=$＠5(B (ueno)
** 1.0.4 $B0J9_!"(BGNU Emacs
$B$G!"%a%C%;!<%8Aw?.;~$N%U%m!<＠)8f$,>e<j$/F0$$(B
$B$F$$$J$+$C$?IT6q9g$N=$＠5(B (ueno)
** $B%P%0Js9pMQ$N%3%^%s%I(B riece-submit-bug-report $B$r?7＠_(B (ueno)
** nadoka $B$d(B Tiarra $B$J$I$N(B IRC proxy $B$,!"(BIRC
$B%5!<%P<BAu$NEAE}$K1h$o$J(B
$B$$%a%C%;!<%8$rJV$9$3$H$X$NBP=h(B (ueno, thanks to k-to $B$5$s(B)
** C-c # $B?t;z$G;XDj$7$?HV9f$N%A%c%s%M%k$K0\F0$G$-$k$h$&$K$7$?(B (ueno,
thanks to ysjj $B$5$s(B)
** riece-yank $B$G!"A0CV0z?t$r;XDj$9$k$3$H$K$h$j!"%a%C%;!<%8$r(B NOTICE
$B$H(B
$B$7$FAw?.$G$-$k$h$&$K$7$?(B (bg66)
* Riece 1.0.5 $B$N<g$JJQ99E＠(B
** $B%f%K%C%H%F%9%H$rDI2C!#(B(ueno)
**
$BJ#?t%5!<%P＠\B3;~$K!"%A%c%s%M%kL>$H%5!<%PL>$N6h＠Z$j$K6uGr0J30$NJ8;z(B
$BNs$r;H$($k$h$&$K$7$?!#(B(ueno)
riece-alias-alternate-separator == "＠"
$B$N;~$NJQ495,B'$O0J2<$NDL$j!'(B
"#riece" -> "#riece"
"#riece localhost" -> "#riece＠localhost"
"#ch＠nnel" -> "#ch＠＠nnel"
"#ch＠nnel localhost" -> "#ch＠＠nnel＠localhost"
** DCC $B$,B>$N%/%i%$%"%s%H$H$N4V$G$&$^$/F0$+$J$$IT6q9g$N=$＠5!#(B(ueno)
** kill-ring $B$+$iJ8;zNs$rAw?.$9$k%"%I%*%s(B riece-yank $B$rDI2C!#(B(by
$BBgOB$5$s(B)
** $B1Q8l$NJ8=q$rDI2C!#(B(ueno)
* Riece 1.0.4 $B$N<g$JJQ99E＠(B
**
$BBgNL$N%a%C%;!<%8$rAw$k>l9g$K!"%U%m!<＠)8f$r9T$&$h$&$K$7$?!#(B(ueno)
** $B5/F0;~$KJ#?t%5!<%P>e$N%A%c%s%M%k$K;22C$9$k＠_Dj$G!"(B
riece-startup-server-list $B$N＠_Dj$r>JN,2DG=$K$7$?!#(B(ueno)
** riece-mini $B;HMQ;~$K2a5n$N%a%C%;!<%8$r1\Mw$9$k5!G=$r＠_$1$?!#(B(bg66)
* Riece 1.0.3 $B$N<g$JJQ99E＠(B
** NAMES $BH/9T;~$K!V$$$J$$$O$:$N%f!<%6!W$r%f!<%60lMw$+$i=|30$9$k$h$&$K(B
$B$7$?(B (Thanks to $B;32<$5$s(B)
** $B9T$N＠^$jJV$7$r3F%P%C%U%!$N(B truncate-lines $B$NCM$G%+%9%?%^%$%:$G$-$k(B
$B$h$&$K$7$?(B(Thanks to $B;32<$5$s(B)
** $B%A%c%s%M%k%P%C%U%!$N%9%/%m!<%kF0:n$r＠)8f$9$k%*%W%7%g%s(B
riece-window-center-line $B$rDI2C(B
** $B%3%^%s%I%P%C%U%!$G$NJd40$NIT6q9g$r=$＠5(B (Thanks to $B;32<$5$s(B)
** $B0lBP0l$N2qOC$G!"Aj<j$,(B quit
$B$7$?>l9g!"%A%c%s%M%k0lMw$+$i=|30$9$k$h(B
$B$&$K$7$?(B (Thanks to $B?9K\$5$s(B)
** $B%G%U%)%k%H$N(B IRC
$B%5!<%P$X$N＠\B3;~$K%(%i!<$,=P$?>l9g$K$O!"B(:B$K=*N;(B
$B$9$k$h$&$K$7$?(B(Thanks to k-to $B$5$s(B)
* Riece 1.0.2 $B$N<g$JJQ99E＠(B
** riece-url $B;HMQ;~$K%a%K%e!<%P!<$N%a%K%e!<$,GK2u$5$l$kIT6q9g$N=$＠5(B
** Jabber $BBP1~$K8~$1!"%W%m%H%3%k%$%s%?!<%U%'!<%9$rJ,$1$?(B
** $B$=$NB>!";(B?$J=$＠5(B
* Riece 1.0.1 $B$N<g$JJQ99E＠(B
** XEmacs
$B$G!"%b!<%I%i%$%s$KI=<($5$l$k%A%c%s%M%k$NGX7J?'$r%b!<%I%i%$%s(B
$B$N?'$K$"$o$;$?(B
** $B%A%c%s%M%k$N%b!<%IJQ99;~$K!"%b!<%I;XDj$N＠hF,$K(B ":"
$B$rIU$1$FAw$C$F$$(B
$B$?IT6q9g$N=$＠5(B
(Thanks to $B$d$^$＠$5$s(B)
** $B%A%c%s%M%k%_%9$rKI$0%"%I%*%s(B riece-foolproof $B$rDI2C(B (by
$B9b66$5$s(B)
** $B%A%c%s%M%k%P%C%U%!$N%b!<%I%i%$%s$KI=<($5$l$kMWAG$N=gHV$rJQ99(B (by
$B9b66$5$s(B)
** NOTICE $B$GH/8＠$7$?;~$NI=<($rJQ99(B (by $B9b66$5$s(B)
** $B:F5/F0;~$K%7%0%J%k4X?t$rFs=E$KEPO?$7$F$$$?IT6q9g$N=$＠5(B
** C-c Home $B$G%A%c%s%M%k%P%C%U%!$N＠hF,$K%+!<%=%k$r0\F0$9$k%3%^%s%I$rDI2C(B
** $B%U%j!<%:>uBV$N%A%c%s%M%k$G$O!"%A%c%s%M%k$r0\F0$7$F$b%A%c%s%M%k%P%C(B
$B%U%!$N%+!<%=%k0LCV$rJ]$D$h$&$K$7$?(B
** CVS $BHG$N(B Emacs $B$G!"0z?t$J$7$N(B current-word $B$,(B nil
$B$rJV$9$h$&$K$J$C$?$?$a!"(B
riece-command-complete-user $B$,%(%i!<$K$J$kIT6q9g$N=$＠5(B (by $BCf;3$5$s(B)
** riece-hangman $B$NMp?tH/＠8%m%8%C%/$N=$＠5(B (by $B9b66$5$s(B)
** $B6u9T$N>e$G!"(BC-c p
$B$G%a%C%;!<%8$rAw$m$&$H$7$?>l9g!"%(%i!<$rDLCN$9$k(B
$B$h$&$K$7$?(B
** riece-ignore
$B;HMQ;~$K!"＠_Dj%U%!%$%k$GL5;k$9$k%f!<%6$r;XDj$G$-$k$h$&!"(B
$B%*%W%7%g%s(B riece-startup-ignored-user-list $B$r?7＠_(B
** riece-rdcc $B;HMQ;~$K!"%U%!%$%kL>$K6uGr$,F~$C$?%U%!%$%k$rAw<u?.$G$-$k(B
$B$h$&$K$7$?(B
* Riece 1.0.0 $B$N<g$JJQ99E＠(B
**
$B%"%I%*%s$N0lMwI=<(%b!<%I$rDI2C$7!"<B9T;~$K%"%I%*%s$rM-8z2=!&L58z2=(B
$B$G$-$k$h$&$K$7$?(B (C-c ^)
** GNU Emacs $B$G!"%Q%9%o!<%IF~NOCf$K(B Quit (C-g) $B$G$-$J$$IT6q9g$N=$＠5(B
** $B%A%c%s%M%kFb$G(B hangman(6) $B$GM7$V%"%I%*%s(B riece-hangman $B$rDI2C(B
** $B%W%m%;%9$,0l$D$b$J$$>l9g$K(B C-c q $B$7$?>l9g$N%a%C%;!<%8$rJQ99(B
** $B%f!<%6$rL5;k$9$k%"%I%*%s(B riece-ignore $B$rDI2C(B
** 9 $BJ8;z0J>e$N%K%C%/%M!<%`$b<u$1IU$1$k$h$&$K$7$?(B
** $B:F5/F0$7$?:]$K!"%"%I%*%s$rFs=E$KAH$_9~$^$J$$$h$&$K$7$?(B
** $BB>$N%P%C%U%!$K$$$k;~$KH/8＠$,$"$k$H%b!<%I%i%$%s$K0u(B ("[R]")
$B$rI=<($9(B
$B$k%"%I%*%s(B riece-biff $B$rDI2C(B (by $BBg66$5$s(B)
** $BF|K\8l$NDL$i$J$$C<Kv$G!"F|K\8l$r%m!<%^;z$GI=<($9$k%"%I%*%s(B
riece-kakasi $B$rDI2C(B
** $B%3%^%s%I%W%m%s%W%H$K%"%/%7%g%s$r<($9J8;zNs$rDI2C(B (suggested by
$B;32<$5$s(B)
* Riece 0.2.2 $B$N<g$JJQ99E＠(B
** ^B, ^V, ^_ $B$J$I$N%3%s%H%m!<%k%7!<%1%s%9$K$h$kJ8;zNs$N6/D4$KBP1~(B
(riece-ctlseq $B%"%I%*%s$rDI2C(B)
** $B%W%j%V$,L$FI07$$$5$l$J$$IT6q9g$N=$＠5(B
** $B%A%c%s%M%k%P%C%U%!!"(B*Others* $B%P%C%U%!$rFHN)$K(B freeze
$B$G$-$k$h$&$K$7(B
$B$?!#(B($B3F%P%C%U%!$G(B C-t C-f $B$G%H%0%k(B)
** riece-log $B$G!"%m%0$NJ]B8＠h%G%#%l%/%H%j$r(B canonicalize $B$7$?%A%c%s%M(B
$B%kL>$+$i5a$a$k$h$&$K$7$?!#(B(by $BBg66$5$s(B)
* Riece 0.2.0 $B$N<g$JJQ99E＠(B
** Qt $B$d(B GTK+
$B$HF1MM$N%7%0%J%k$rF3F~$7!"ItJ,E*$K:FIA2h$9$k$h$&$K$7$?!#(B
** C-c C-n
$B$G!"%A%c%s%M%k%P%C%U%!$K$bL>A0$N0lMw$rI=<($9$k$h$&$K$7$?!#(B
** riece-lsdb $B;HMQ;~$NIT6q9g$N=$＠5(B (by $BCf;3$5$s(B)
* Riece 0.1.8 $B$N<g$JJQ99E＠(B
** LSDB $B$HO"7H$9$k%"%I%*%s(B riece-lsdb $B$rDI2C(B
** $B%f!<%60lMw$K(B X-Face $B$rI=<($9$k%"%I%*%s(B riece-xface
$B$rDI2C(B ($BMW(B LSDB)$B!%(B
$B%9%/%j!<%s%7%g%C%H!'(B
http://wiliki.designflaw.org/riece-xface.png
** $B%A%c%s%M%kL>$NBgJ8;z>.J8;z$,6hJL$5$l$F$7$^$&%P%0$r=$＠5(B
** IRC proxy
$B$KB>$N%/%i%$%"%s%H$H0l=o$K＠\B3$7$F$$$k>l9g$G$b!$<+J,$NH/(B
$B8＠$r$-$A$s$H07$&$h$&$K$7$?(B (by $B9b66$5$s(B)
* Riece 0.1.7 $B$N<g$JJQ99E＠(B
** Emacs $B$,(B busy or suspend $B>uBV$K$J$k$3$H$KHw$(!"(B
PING $B$K1~Ez$9$k(B local proxy $B7PM3$G(B IRC
$B%5!<%P$K＠\B3$9$k%"%I%*%s(B
riece-async $B$rDI2C(B
** riece-away-message $B$,;XDj$5$l$?>l9g$K(B AWAY
$B>uBV$N%H%0%k$K<:GT$9$k%P(B
$B%0$r=$＠5(B (Thanks to $BF#B<$5$s(B)
** GNU Emacs $B$G!"%m!<%I;~$K(B standard-syntax-table
$B$rJQ99$7$F$7$^$&%P%0$r=$＠5(B
(Thanks to Hori $B$5$s(B)
** riece-startup-channel-list $B$K2C$(!"(Briece-startup-server-list $B$r;XDj(B
$B$9$k$3$H$G!"5/F0;~$KJ#?t$N%5!<%P>e$N%A%c%s%M%k$K;22C$G$-$k$h$&$K$7$?(B
** riece-log $B;HMQ;~$K%m%0%U%!%$%k$N(B coding system $B$r;XDj$9$k%*%W%7%g%s(B
riece-log-coding-system $B$rDI2C(B
** riece-keyword $B;HMQ;~$K;XDj$7$?%-!<%o!<%I$NH/8＠$,$"$C$?;~$K8F$P$l$k(B
riece-keyword-notify-functions $B$rDI2C!#4{B8$N(B
riece-notify-keyword-functions($B$J$s$FJ6$i$o$7$$L>A0(B!)
$B$NBe$o$j$K$3$A$i(B
$B$r;HMQ$7$F$/$＠$5$$(B
** riece-log $B;HMQ;~$K(B riece-log-flashback $B$,%O%$%i%$%H$d%\%?%s$bI|85$9(B
$B$k$h$&$K$7$?(B
** riece-{unread,mini} $B$r(B NOTICE $B$d(B CTCP ACTION
$B$K$OH?1~$7$J$$$h$&$K$7$?(B
* Riece 0.1.6 $B$N<g$JJQ99E＠(B
** Emacs 20.7 $B$G$&$^$/F0:n$7$J$$IT6q9g$N=$＠5!#(B
** XEmacs 21.1
$B$G%3%s%Q%$%k$K<:GT$9$kIT6q9g$N=$＠5(B($BF0:n$OL5J]>Z(B)$B!#(B
** riece-rdcc
$B$G!"5pBg$J%U%!%$%k$r<u?.$7$F$b%a%b%j$r?)$o$J$$$h$&$K$7$?!#(B
** riece-gather-channel-modes == t $B$N>l9g!"%A%c%s%M%k;22C;~$K%A%c%s%M(B
$B%k$N%b!<%I$rD4$Y$k$h$&$K$7$?!#(B
** $B%A%c%s%M%k%P%C%U%!$N%5%$%:$r＠Z$j5M$a$k%?%$%_%s%0$r=$＠5!#(B
**
$B%A%c%s%M%k0\F0;~$K!"%P%C%U%!$,<+F0E*$K%9%/%m!<%k$7$J$$IT6q9g$N=$＠5!#(B
** riece-log $B$G!"(Briece-log-directory-map
$B$K%5!<%PL>IU$-$N%A%c%s%M%k$r(B
$B;XDj$G$-$k$h$&$K$7$?!#(B(by $BBg66$5$s(B)
* Riece 0.1.5 $B$N<g$JJQ99E＠(B
** $B%G%U%)%k%H$GMxMQ2DG=$J%&%#%s%I%&%l%$%"%&%H$K!"(B
{top,middle,bottom}-{left,right} $B$rDI2C!#(B
** $BA*BrCf$N%&%#%s%I%&%l%$%"%&%H$rJ]B8$9$k$h$&$K$7$?!#(B
** $B%"%$%3%s$rI=<($9$k%"%I%*%s(B (riece-icon) $B$rDI2C!#(B
([http://wiliki.designflaw.org/riecess1.png $B%9%/%j!<%s%7%g%C%H(B])
** $B%f!<%6%j%9%H$N:FIA2h$N9bB.2=!#(B
** CTCP ACTION $B$N2~NI!#(B(Thanks to knu $B$5$s(B)
** riece-rdcc $B$r;H$C$F(B DCC
$B$N%U%!%$%kE>Aw$r;O$a$k:]$K!"$?$^$K8G$^$k%P%0$r=$＠5!#(B
** $B4{$K(B Riece
$B$,5/F0$7$?>uBV$G$b$&0lEY5/F0$7$?>l9g!"%(%i!<$rDLCN$9$k$N(B
$B$G$O$J$/!"(Briece-command-configure-windows $B$r8F$V$h$&$K$7$?(B
(Thanks
to $BBg66$5$s(B)
** C-c o (riece-command-set-operators) $B$H(B C-c v
(riece-command-set-speakers) $B$G!"(B3
$B?M0J>e$N%f!<%6$rBP>]$K$7$?>l9g$N%P(B
$B%0$r=$＠5!#(B
** $B%P%C%U%!$N%5%$%:$,(B riece-max-buffer-size
$B$r1[$($?>l9g!"<+F0E*$K＠Z$j(B
$B5M$a$k$h$&$K$7$?!#(B
* Riece 0.1.4 $B$N<g$JJQ99E＠(B
** $B%A%c%s%M%k%P%C%U%!$G(B riece-command-names $B$N%-!<%P%$%s%I$r(B C-n
$B$+$i(B
N $B$KJQ99!#(B(thanks to $B9b66$5$s(B)
** C-c C-t a (riece-command-toggle-away) $B$,%(%i!<$K$J$k%P%0$r=$＠5!#(B
(thanks to $BA0ED$5$s(B)
** Riece $B$N%P%C%U%!$rA*Br$7$F$$$J$$;~$K$O!":FIA2h$r9T$o$J$$$h$&$K$7$?!#(B
** $BF1L>$N%P%C%U%!$,(B Riece $B0J30$N%W%m%0%i%`$K;H$o$l$F$$$k;~!"(B
generate-new-buffer $B$G?7$7$$%P%C%U%!$r:n＠.$7$FMxMQ$9$k$h$&$K$7$?!#(B
** ! $B$G=i$^$k%A%c%s%M%k$r:n＠.$G$-$J$$%P%0$r=$＠5!#(B
** riece-keyword
$B;HMQ;~$K!"<+J,$NH/8＠$K4^$^$l$k%-!<%o!<%I$KH?1~$7$J$$(B
$B$h$&$K$7$?!#(B
** $B$R$H$D$b%A%c%s%M%k$KF~$C$F$$$J$$;~!"%A%c%s%M%kFb$G$N$_M-8z$J%3%^%s(B
$B%I$r<B9T$9$k$H%(%i!<$r=P$9$h$&$K$7$?!#(B
** $B%a%K%e!<%P!<$K%a%K%e!<$rDI2C$9$k%"%I%*%s(B (riece-menu)
$B$r?7＠_!#(B
* Riece 0.1.3 $B$N<g$JJQ99E＠(B
** PRIVMSG $B$d(B NOTICE
$B$N<u?.;~$K!$%A%c%s%M%kL>$NBgJ8;z>.J8;z$r6hJL$7$J(B
$B$$$h$&$K$7$?!#(B
** riece-history $B;HMQ;~$K!$%R%9%H%j$N＠hF,$K$"$k%A%c%s%M%k$K(B "+"
$B%^!<%/(B
$B$r$D$1$k$h$&$K$7$?!#(B
** $B%\%?%s$H%]%C%W%"%C%W%a%K%e!<$rI=<($9$k%"%I%*%s(B (riece-button)
$B$rDI2C!#(B
** $B%-!<%o!<%I$r8!=P$9$k%"%I%*%s(B (riece-keyword) $B$rDI2C!#(B
XEmacs $B$r$*;H$$$J$i!$0J2<$N＠_Dj$r(B ~/.riece/init.el $B$K2C$($k$3$H$G!$(B
"$B$[$2(B" $B$d(B "$B$U$,(B"
$B$KH?1~$7$F2;$rLD$i$9$3$H$,$G$-$^$9!%(B
(load-default-sounds)
(setq riece-keywords '("$B$[$2(B" "$B$U$,(B"))
(add-hook 'riece-notify-keyword-functions
(lambda (keyword) (play-sound 'cuckoo)))
* Riece 0.1.2 $B$N<g$JJQ99E＠(B
** $B%Q%9%o!<%IIU$-$N%A%c%s%M%k$K(B JOIN $B$G$-$J$$%P%0$r=$＠5(B
** riece-startup-channel-list $B$rI|3h(B
** riece-rdcc-save-directory $B$r?7＠_(B
** $B%Q%9%o!<%IF~NO$rCfCG$G$-$J$$%P%0$r=$＠5(B
** INVITE $B%O%s%I%i$N%P%0$r=$＠5(B
** INVITE $B$5$l$?8e$K(B JOIN
$B$9$k>l9g!"%G%U%)%k%H$N%A%c%s%M%kL>$r;H$&$h$&$K$7$?!#(B
** JOIN $B$N%?%$%_%s%0$K$h$j(B riece-channel-list-indicator $B$,99?7$5$l$J$$(B
$B%P%0$r=$＠5(B
* Riece 0.1.1 $B$N<g$JJQ99E＠(B
** $B$$$/$D$+$N%"%I%*%s$r%G%U%)%k%H$GFI$_9~$`$h$&$K$7$?(B
** riece-default-channel-binding $B$,8z$+$J$$%P%0$r<#$7$?(B
** *Channels* $B%P%C%U%!$G!"8=:_$$$k%A%c%s%M%kL>$NF,$K%^!<%/(B
"*" $B$rIU$1$k(B
$B$h$&$K$7$?(B
** riece-debug == nil $B$N>l9g!"＠ZCG;~$N%a%C%;!<%8$r4JN,2=$7$?(B
** $B%A%c%s%M%k0\F0$NMzNr$r4IM}$9$k%"%I%*%s(B riece-history $B$rDI2C(B
** $B0\F0＠h$N%A%c%s%M%k$r?dB,$9$k%"%I%*%s(B riece-guess $B$rDI2C(B
Tips:
~/.riece/init.el $B$K0J2<$N$h$&$K;XDj$9$k$H!"(B
(setq riece-guess-channel-try-functions
'(riece-guess-channel-from-unread
riece-guess-channel-from-history))
C-c g $B$G0J2<$N=g=x$G0\F0$G$-$^$9!#(B
# $BL$FI$N%a%C%;!<%8$N$"$k%A%c%s%M%k(B
# $B:G6aK,$l$?%A%c%s%M%k(B
# $B$=$l0J30(B
* Riece 0.1.0 $B$N<g$JJQ99E＠(B
** $B%A%c%s%M%k$NFbItI=8=$rJ8;zNs$+$i%Y%/%?!<$K$h$kI=8=$KJQ99$7$?(B
** $B%W%m%;%94IM}$r$^$H$b$K$7$?(B
*** $B%W%m%;%9L>$G%5!<%P$r<1JL$9$k$h$&$KJQ99$7$?(B
*** $B＠\B3!&＠ZCG$N=hM}$r(B riece-server.el $B$K$^$H$a$?(B
*** QUIT $B$rEj$2$F$b1~Ez$,$J$$>l9g!"6/＠)E*$K＠ZCG$9$k$h$&$K$7$?(B
** M-x doctor $B$HO"7H$9$k%"%I%*%s$rDI2C(B
** $BH/8＠$K(B SKK
$B$NJQ49Cf$N0u"&$,:.$6$i$J$$$h$&$K$9$k%"%I%*%s$rDI2C(B (by
$B9b66$5$s(B)
** $B%&%#%s%I%&%l%$%"%&%H$rJQ99$G$-$k$h$&$K$7$?(B (C-c t l)
** Liece $B$N(B "top"
$B%9%?%$%k$K;w$?%&%#%s%I%&%l%$%"%&%H$rDI2C(B (by $B9b66$5$s(B)
* Riece 0.0.4 $B$N<g$JJQ99E＠(B
** $B%_%K%P%C%U%!$＠$1$G(B IRC $B$9$k%"%I%*%s(B riece-mini $B$rDI2C(B (by
$BBg66$5$s(B)
** $B%m%0<}=8%"%I%*%s(B riece-log $B$rDI2C(B (by $BBg66$5$s(B)
** riece-command-next-channel (C-c >), riece-command-previous-channel
(C-c <) $B$G%A%c%s%M%k$r$0$k$0$k0\F0$G$-$k$h$&$K$7$?(B (by $BCf;3$5$s(B)
** riece-unread $B%"%I%*%s;HMQ;~$KH/8＠$N$"$C$?%A%c%s%M%k$K(B C-c C-u
$B$G0\(B
$BF0$G$-$k$h$&$K$7$?(B (by $BBg66$5$s(B)
** IRC $B%a%C%;!<%8$K=>$C$F%$%s%8%1!<%?$r99?7$9$k$h$&$K$7$?(B
** ptexinfmt.el $B$r(B APEL free $B$J$b$N$KCV$-49$($?(B (Thanks to $B;32,$5$s(B)
* Riece 0.0.3 $B$N<g$JJQ99E＠(B
** $B%Q%9%o!<%I$,I,MW$J%5!<%P$KFs$D0J>e＠\B3$G$-$J$$%P%0$N=$＠5(B (Thanks to
$BCf;3$5$s(B)
** $B%K%C%/$NBgJ8;z>.J8;z$＠$1$rJQ99$9$k$H0l4S＠-$,<:$o$l$kLdBj$r=$＠5(B
** $B%O%s%I%i%U%C%/$GH/＠8$7$?%(%i!<$rJaB*(B
** DCC $B$K$h$k%U%!%$%kE>Aw$KBP1~(B (riece-ndcc.el, riece-rdcc.el)
** $BH/8＠$N$"$C$?%A%c%s%M%k$K(B "!"
$B%^!<%/$r$D$1$k%"%I%*%s$NDI2C(B (riece-unread.el)
** $BF|K\8l$N%^%K%e%"%k$NDI2C(B
* Riece 0.0.2 $B$N<g$JJQ99E＠(B
** APEL $B$N4X?t(B (pop, push) $B$NB`<#(B
** "depcomp" $B$,F1:-$5$l$J$$LdBj$N=$＠5(B (autoreconf $B$N%P%0(B?)
** Windows $B4D6-$G%S%k%I$G$-$J$$IT6q9g$N=$＠5(B (Thanks to $BBg66$5$s(B)
** $B%K%C%/JQ99;~$K0l4S＠-$,<:$o$l$kLdBj$N=$＠5(B
** C-c C-t u (M-x riece-command-toggle-user-list-mode) $B$NIT6q9g$N=$＠5(B
** $B%"%I%*%s$NF3F~(B
** CTCP $B$KItJ,E*$KBP1~(B (VERSION $B$H(B PING $B$N$_(B)
** font-lock $B%b%8%e!<%k(B (riece-highlight) $B$N%"%I%*%s2=(B
** URL $B<}=85!G=$N%"%I%*%s2=(B
* Riece 0.0.1 $B$N<g$JJQ99E＠(B
** $B:G=i$N%j%j!<%9(B
* For details of changes, see the file ChangeLog.
Local variables:
mode: outline
paragraph-separate: "[ ]*$"
coding: iso-2022-jp
end:
1.1 XEmacs/packages/xemacs-packages/riece/README.ja
Index: README.ja
===================================================================
* $B$3$l$O2?$+(B?
Riece $B$O(B Emacs $B8~$1(B IRC $B%/%i%$%"%s%H$G$9!#(B
Riece $B$K$O0J2<$K5s$2$kFCD9$,$"$j$^$9(B:
- $BJ#?t$N(B IRC $B%5!<%P$KF1;~$K＠\B32DG=(B
- $B%"%I%*%s$K$h$j5!G=$NDI2C$d<h$j30$7$,2DG=(B
- $BB>$N(B elisp $B%Q%C%1!<%8$K0MB8$7$J$$$?$a!"%$%s%9%H!<%k$,4JC1(B
- $B＠_Dj$,4JC1$G!"A02s5/F0;~$N＠_Dj$r5-O?!&I|85$9$k;EAH$_$rDs6!(B
- $BCJ3,E*$JA`:n＠bL＠=q(B (info $B7A<0(B) $B$,ImB0(B
- $B:G?7$N(B IRC $B$N%/%i%$%"%s%H%W%m%H%3%k(B (RFC2812) $B$K=`5r(B
* $B%G%#%l%/%H%j9=＠.(B
$B$3$N%Q%C%1!<%8$O0J2<$N%G%#%l%/%H%j$+$i＠.$j$^$9(B:
lisp/ - Emacs Lisp $B$N%U%!%$%k(B
doc/ - $BJ8=q%U%!%$%k(B
* $BI,MW$J$b$N(B
- Emacs 20.7 $B0J>e!"$^$?$O(B XEmacs 21.4 $B0J>e(B
- Ruby 1.6 $B0J>e(B ($BG$0U(B)
* $B%$%s%9%H!<%k(B
$ ./configure
$ sudo make install
XEmacs
$B$r;H$C$F$$$F!"%Q%C%1!<%8$H$7$F%$%s%9%H!<%k$7$?$$>l9g$K$O!"(B
"--with-xemacs" $B%*%W%7%g%s$r(B configure
$B%9%/%j%W%H$KM?$($F$/$＠$5$$!#(B
$B$^$?!"(B"install" $B%?!<%2%C%H$NBe$o$j$K(B
"install-package" $B$r;H$C$F$/$＠$5$$!#(B
* $B%P%0Js9p(B
$B%P%0Js9p$d!"2~A1MW5a$r=q$$$?$i!"$I$&$>(B Liece
$B%a!<%j%s%0%j%9%H$KAw$C$F$/$＠$5$$!#(B
$B$3$N%a!<%j%s%0%j%9%H$O!">-Mh$N3HD%$d＠_DjJ}K!$J$I!"B>$N0lHLE*$J5DO＠$K$b(B
$BMQ$$$i$l$^$9!#(BLiece ML $B$K;22C$9$k$K$O!"K\J8$K(B
subscribe $B$"$J$?$NL>A0(B
$B$H=q$$$?%a!<%k$r(B
liece-ctl(a)unixuser.org
$B$^$GAw$C$F$/$＠$5$$!#(B
1.5 +0 -0 XEmacs/packages/xemacs-packages/riece/doc/irchat-copyright.el
Index: irchat-copyright.el
===================================================================
RCS file:
/pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/doc/irchat-copyright.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- irchat-copyright.el 2004/12/05 04:12:56 1.4
+++ irchat-copyright.el 2005/03/20 09:11:18 1.5
＠＠ -1,9 +1,9 ＠＠
;;; -*- emacs-lisp -*-
;;;
-;;; $Id: irchat-copyright.el,v 1.4 2004/12/05 04:12:56 daiki Exp $
+;;; $Id: irchat-copyright.el,v 1.5 2005/03/20 09:11:18 daiki Exp $
;;;
(defvar irchat-copyright "
- $Id: irchat-copyright.el,v 1.4 2004/12/05 04:12:56 daiki Exp $
+ $Id: irchat-copyright.el,v 1.5 2005/03/20 09:11:18 daiki Exp $
Internet Relay CHAT interface for GNU Emacs
Copyright (C) 1989 Tor Lillqvist
＠＠ -49,8 +49,8 ＠＠
;;;
;;; $Log: irchat-copyright.el,v $
-;;; Revision 1.4 2004/12/05 04:12:56 daiki
-;;; Sync riece with upstream version 1.0.6
+;;; Revision 1.5 2005/03/20 09:11:18 daiki
+;;; Sync riece with upstream version 1.0.8
;;;
;;; Revision 1.1 2003/10/22 20:07:07 ueno
;;; (EXTRA_DIST) Add irchat-copyright.el.
1.2 +6 -9 XEmacs/packages/xemacs-packages/riece/doc/riece-en.texi
Index: riece-en.texi
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/doc/riece-en.texi,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- riece-en.texi 2004/12/05 04:12:57 1.1
+++ riece-en.texi 2005/03/20 09:11:18 1.2
＠＠ -3,7 +3,7 ＠＠
＠setfilename riece-en.info
＠settitle Riece -- An IRC client for Emacsen --
＠c %**end of header
-＠set VERSION 1.0.6
+＠set VERSION 1.0.8
＠c ＠documentlanguage en
＠dircategory GNU Emacs Lisp
＠＠ -14,7 +14,7 ＠＠
＠ifinfo
This file describes Riece.
-Copyright (C) 2003,2004 Daiki Ueno.
+Copyright (C) 2003,2004,2005 Daiki Ueno.
Permission is granted to copy, distribute and/or modify this document
under the terms of the GNU Free Documentation License, Version 1.1 or
＠＠ -33,7 +33,7 ＠＠
＠page
＠vskip 0pt plus 1filll
-Copyright ＠copyright{} 2003 Daiki Ueno.
+Copyright ＠copyright{} 2003,2004,2005 Daiki Ueno.
Permission is granted to copy, distribute and/or modify this document
under the terms of the GNU Free Documentation License, Version 1.1 or
＠＠ -67,8 +67,7 ＠＠
has been unmaintainable for a long time), while providing a user
interface (mostly) compatible with Liece.
-For now it does not have rich functions as an IRC client, but there are
-noteworthy improvements as compared with Liece:
+There are noteworthy improvements as compared with Liece:
＠itemize ＠bullet
＠item
＠＠ -95,8 +94,6 ＠＠
＠itemize ＠bullet
＠item http://www.nongnu.org/riece/
-＠item http://wiliki.designflaw.org/index.cgi?Riece&l=jp
-＠item http://www.unixuser.org/~ueno/liece/
＠end itemize
＠node Getting started, Basic usage, Overview, Top
＠＠ -135,7 +132,7 ＠＠
commands instead of the above:
＠example
-./configure --with-xemacs[=xemacs-21.4.15]
+./configure --with-xemacs[=xemacs-21.4.17]
make package
make install-package
＠end example
＠＠ -260,7 +257,7 ＠＠
put on the left side of the modeline like:
＠example
-Riece: --- ueno #Liece [n]
+Riece: --- ueno #Riece [n]
＠end example
In this case, ＠samp{---} are indicators. From left to right their
1.6 +22 -15 XEmacs/packages/xemacs-packages/riece/doc/riece-ja.texi
Index: riece-ja.texi
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/doc/riece-ja.texi,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- riece-ja.texi 2004/12/05 04:12:57 1.5
+++ riece-ja.texi 2005/03/20 09:11:18 1.6
＠＠ -3,7 +3,7 ＠＠
＠setfilename riece-ja.info
＠settitle Riece -- An IRC client for Emacsen --
＠c %**end of header
-＠set VERSION 1.0.6
+＠set VERSION 1.0.8
＠c ＠documentlanguage ja
＠dircategory GNU Emacs Lisp
＠＠ -14,7 +14,7 ＠＠
＠ifinfo
This file describes Riece.
-Copyright (C) 2003,2004 Daiki Ueno.
+Copyright (C) 2003,2004,2005 Daiki Ueno.
Permission is granted to copy, distribute and/or modify this document
under the terms of the GNU Free Documentation License, Version 1.1 or
＠＠ -33,7 +33,7 ＠＠
＠page
＠vskip 0pt plus 1filll
-Copyright ＠copyright{} 2003 Daiki Ueno.
+Copyright ＠copyright{} 2003,2004,2005 Daiki Ueno.
Permission is granted to copy, distribute and/or modify this document
under the terms of the GNU Free Documentation License, Version 1.1 or
＠＠ -70,15 +70,15 ＠＠
$B=q$-D>$7$?$b$N$G$9!#%f!<%6%$%s%?!<%U%'!<%9$NBgItJ,$O(B Liece
$B$N$b$N$rF'=1(B
$B$7$F$$$^$9!#(B
-$B8=:_$N$H$3$m(B IRC
$B%/%i%$%"%s%H$H$7$F$N5!G=$O==J,$G$O$"$j$^$;$s$,!"(BLiece
-$B$K$O$J$$FCD9$,$$$/$D$+$"$j$^$9!#0J2<$K$=$l$i$N0lIt$r5s$2$^$9!#(B
+Riece $B$K$O(B Liece $B$K$O$J$$FCD9$,$$$/$D$+$"$j$^$9!#(B
+$B0J2<$K$=$l$i$N0lIt$r5s$2$^$9!#(B
＠itemize ＠bullet
＠item $BJ#?t$N(B IRC $B%5!<%P$KF1;~$K＠\B32DG=(B
＠item $B%"%I%*%s$K$h$j5!G=$NDI2C$d<h$j30$7$,2DG=(B
＠item $BB>$N(B elisp
$B%Q%C%1!<%8$K0MB8$7$J$$$?$a!"%$%s%9%H!<%k$,4JC1(B
＠item $B＠_Dj$,4JC1$G!"A02s5/F0;~$N＠_Dj$r5-O?!&I|85$9$k;EAH$_$rDs6!(B
-＠item $BCJ3,E*$JA`:n＠bL＠=q(B($B8=:_$OF|K\8l$N$_(B)$B$,ImB0(B
+＠item $BCJ3,E*$JA`:n＠bL＠=q$,ImB0(B
＠item $B:G?7$N(B IRC $B$N%/%i%$%"%s%H%W%m%H%3%k(B (RFC2812) $B$K=`5r(B
＠end itemize
＠＠ -86,8 +86,6 ＠＠
＠itemize ＠bullet
＠item http://www.nongnu.org/riece/
-＠item http://wiliki.designflaw.org/index.cgi?Riece&l=jp
-＠item http://www.unixuser.org/~ueno/liece/
＠end itemize
＠node Getting started, Basic usage, Overview, Top
＠＠ -126,7 +124,7 ＠＠
XEmacs
$B$N%Q%C%1!<%8$H$7$F%$%s%9%H!<%k$9$k>l9g$K$O0J2<$N$h$&$K$7$^$9!#(B
＠example
-./configure --with-xemacs[=xemacs-21.4.15]
+./configure --with-xemacs[=xemacs-21.4.17]
make package
make install-package
＠end example
＠＠ -249,7 +247,7 ＠＠
$B<+J,$N8=:_$N>uBV$r<($90u$,I=<($5$l$^$9!#(B
＠example
-Riece: --- ueno #Liece [n]
+Riece: --- ueno #Riece [n]
＠end example
$B$3$3$G!"(B＠samp{---} $B$NItJ,$K$O:8$+$i=g$K0J2<$N0UL#$,$"$j$^$9!#(B
＠＠ -410,7 +408,7 ＠＠
＠item
＠kbd{C-c j} (＠code{riece-command-join}) $B$G%A%c%s%M%k$K;22C$7$^$9!#$3$3$G!"(B
$B%A%c%s%M%kL>$N8e$K6uGr$G6h＠Z$C$F%5!<%PL>$rB3$1$^$9!#6uGr$rF~NO$9$k$K$O!"(B
-＠kbd{C-q} $B$r;H$$$^$9!#$?$H$($P!"%5!<%P(B ＠samp{irc6} $B>e$N(B
＠samp{#Liece} $B$K;22C$9$k$K$O(B ＠kbd{C-c j #Liece C-q SPC irc6}
$B$H%?%$%W$9$k$3$H$K$J$j$^$9!#(B
+＠kbd{C-q} $B$r;H$$$^$9!#$?$H$($P!"%5!<%P(B ＠samp{irc6} $B>e$N(B
＠samp{#Riece} $B$K;22C$9$k$K$O(B ＠kbd{C-c j #Riece C-q SPC irc6}
$B$H%?%$%W$9$k$3$H$K$J$j$^$9!#(B
＠end enumerate
$B%A%c%s%M%k$KF~$i$:$K%3%^%s%I$rAw$k$K$O!"(B＠kbd{C-c M}
＠＠ -560,12 +558,21 ＠＠
$BF|K\8l$NDL$i$J$$C<Kv$G!"F|K\8l$r%m!<%^;z$GI=<((B
＠item riece-yank
＠kbd{C-c y} $B$G(B kill-ring $B$+$iJ8;zNs$rAw?.(B
+＠item riece-toolbar
+$B%D!<%k%P!<$rI=<((B
+＠item riece-eval
+$BF~NO$5$l$?J8;zNs$r(B lisp $B%*%V%8%'%/%H$H$7$FI>2A(B
+＠item riece-google
+$B%-!<%o!<%I$r(B Google $B$G8!:w(B
+＠item riece-keepalive
+IRC $B%5!<%P$H$N＠\B3$rJ];}(B
＠end table
$B$3$l$i$N$&$A!"(B＠samp{riece-highlight} $B$H(B
＠samp{riece-ctcp}$B!"(B
＠samp{riece-url}$B!"(B ＠samp{riece-unread}$B!"(B
＠samp{riece-guess}$B!"(B
＠samp{riece-history}$B!"(B
＠samp{riece-button}$B!"(B＠samp{riece-menu}$B!"(B
-＠samp{riece-ignore} $B$O%G%U%)%k%H$GAH$_9~$^$l$F$$$^$9!#(B
+＠samp{riece-ignore}$B!"(B＠samp{riece-log}$B!"(B＠samp{riece-alias}$B!"(B
+＠samp{riece-ctlseq}$B!"(B＠samp{riece-keyword}
$B$O%G%U%)%k%H$GAH$_9~$^$l$F$$$^$9!#(B
$B%"%I%*%s$rAH$_9~$`$K$O(B ＠code{riece-addons} $B$r＠_Dj$7$^$9!#$?$H$($P(B
＠samp{riece-alias} $B$rAH$_9~$`>l9g$K$O!"(B(a)file{~/.riece/init.el}
$B$K0J2<$N$h(B
＠＠ -669,10 +676,10 ＠＠
＠example
(setq riece-default-channel-binding
- '("#Liece" "#emacsen" nil "#debianjp"))
+ '("#Riece" "#emacsen" nil "#debianjp"))
＠end example
-1: #Liece, 2: #emacsen, 4: #debianjp $B$N$h$&$K3dEv$F$i$l$^$9!#(Bnil
$B$O%G%U%)(B
+1: #Riece, 2: #emacsen, 4: #debianjp $B$N$h$&$K3dEv$F$i$l$^$9!#(Bnil
$B$O%G%U%)(B
$B%k%H$G$O<+F03dEv$F$NBP>]$K$J$i$J$$$3$H0UL#$7!"?7$?$J%A%c%s%M%k$K;22C$7$?(B
$B>l9g!"$=$N%A%c%s%M%k$,(B 3 $BHVL\$N%A%c%s%M%k$H$7$F07$o$l$^$9!#(B
＠＠ -684,7 +691,7 ＠＠
＠example
(setq riece-startup-channel-list
- '(("#secret" "password") "#Liece"))
+ '(("#secret" "password") "#Riece"))
＠end example
$BJ#?t$N%5!<%P>e$N%A%c%s%M%k$K;22C$9$k$K$O!"(B
1.6 +53 -5 XEmacs/packages/xemacs-packages/riece/lisp/COMPILE
Index: COMPILE
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/COMPILE,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- COMPILE 2004/12/05 04:12:59 1.5
+++ COMPILE 2005/03/20 09:11:20 1.6
＠＠ -7,6 +7,7 ＠＠
'riece-emacs)
'(riece-globals
riece-options
+ riece-debug
riece-version
riece-coding
riece-complete
＠＠ -71,18 +72,43 ＠＠
riece-hangman
riece-biff
riece-kakasi
- riece-yank))))
+ riece-yank
+ riece-toolbar
+ riece-eval
+ riece-google
+ riece-keepalive))))
+
+(defvar riece-icons
+ '(riece-command-quit
+ riece-command-join
+ riece-command-part
+ riece-command-previous-channel
+ riece-command-next-channel
+ riece-command-change-layout
+ riece-submit-bug-report))
(defun riece-compile-modules (modules)
- (let ((load-path (cons nil load-path)))
+ (let ((load-path (cons nil load-path))
+ error-modules)
(while modules
(let ((source (expand-file-name
(concat (symbol-name (car modules)) ".el"))))
(if (file-newer-than-file-p source (concat source "c"))
(condition-case error
(byte-compile-file source)
- (error))))
- (setq modules (cdr modules)))))
+ (error
+ (setq error-modules (cons (car modules) error-modules))))))
+ (setq modules (cdr modules)))
+ (if error-modules
+ (princ (concat "\n\
+ WARNING: ---------------------------------------------------------
+ WARNING: Couldn't compile following modules:
+ WARNING:
+ WARNING: " (mapconcat #'symbol-name error-modules ", ")
"\n\
+ WARNING:
+ WARNING: You should probably stop here, try \"make distclean\" to clear
+ WARNING: the last build, and then reconfigure.
+ WARNING: ---------------------------------------------------------\n\n")))))
(defun riece-install-modules (modules dest just-print)
(unless (or just-print (file-exists-p dest))
＠＠ -104,6 +130,19 ＠＠
name)))))
(setq modules (cdr modules))))
+(defun riece-install-icons (icons dest just-print)
+ (unless (or just-print (file-exists-p dest))
+ (make-directory dest t))
+ (while icons
+ (let ((name (symbol-name (car icons))))
+ (when (file-exists-p (expand-file-name (concat name ".xpm")))
+ (princ (format "%s.xpm -> %s\n" name dest))
+ (unless just-print
+ (copy-file (expand-file-name (concat name ".xpm"))
+ (expand-file-name (concat name ".xpm") dest)
+ t t))))
+ (setq icons (cdr icons))))
+
(defun riece-install-just-print-p ()
(let ((flag (getenv "MAKEFLAGS"))
case-fold-search)
＠＠ -117,6 +156,10 ＠＠
(riece-install-modules
riece-modules
(expand-file-name "riece" (car command-line-args-left))
+ (riece-install-just-print-p))
+ (riece-install-icons
+ riece-icons
+ (expand-file-name "riece" (car command-line-args-left))
(riece-install-just-print-p)))
(defun riece-compile-package ()
＠＠ -135,13 +178,18 ＠＠
'(auto-autoloads custom-load))
(expand-file-name "riece"
(expand-file-name "lisp" (car command-line-args-left)))
+ (riece-install-just-print-p))
+ (riece-install-icons
+ riece-icons
+ (expand-file-name "riece"
+ (expand-file-name "lisp" (car command-line-args-left)))
(riece-install-just-print-p)))
(defun riece-test ()
(let ((load-path (cons (expand-file-name "test") (cons nil load-path)))
(files (directory-files "test" t "^test-.*\\.el$"))
suite)
- (require 'lunit)
+ (require 'lunit-report)
(setq suite (lunit-make-test-suite))
(while files
(when (file-regular-p (car files))
1.6 +453 -0 XEmacs/packages/xemacs-packages/riece/lisp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/ChangeLog,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- ChangeLog 2004/12/05 04:12:59 1.5
+++ ChangeLog 2005/03/20 09:11:20 1.6
＠＠ -1,3 +1,456 ＠＠
+2005-03-06 Daiki Ueno <ueno(a)unixuser.org>
+
+ * Riece: Version 1.0.8 released.
+ * riece-version.el (riece-version-number): Bump up to 1.0.8.
+
+2005-03-06 Daiki Ueno <ueno(a)unixuser.org>
+
+ * COMPILE (riece-compile-modules): Print summary.
+
+2005-03-05 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-version.el: Bind emacs-program-version.
+ * riece-debug.el: Require 'riece-options for riece-debug.
+
+ * riece-log.el (riece-log-insinuate): Use user-uid instead of
+ user-login-name and escape system-name for riece-log-lock-file.
+
+2005-03-02 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-log.el (riece-log-lock-file): Define with defvar.
+ (riece-log-display-message-function): Use riece-log-lock-file as
+ LOCKNAME of write-region.
+ (riece-log-insinuate): Generate name for riece-log-lock-file.
+
+2005-02-27 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-300.el (riece-handle-317-message): Format idle seconds in
+ human readable form.
+ (riece-handle-301-message): Don't use riece-user-regexp.
+ (riece-handle-311-message): Ditto.
+ (riece-handle-312-message): Ditto.
+ (riece-handle-317-message): Ditto.
+ (riece-handle-319-message): Ditto.
+
+ * riece-ctcp.el (riece-handle-ctcp-action-request): Prepend target.
+ (riece-command-ctcp-action): Ditto.
+
+2005-02-25 TAKAHASHI Kaoru <kaoru(a)kaisei.org>
+
+ * riece-globals.el (riece-obarray-size, riece-obarray): Abolish.
+ (riece-channel-obarray-size, riece-user-obarray-size)
+ (riece-channel-obaary, riece-user-obarray): New variables.
+ * riece-user.el (riece-find-user, riece-forget-user)
+ (riece-rename-user, riece-get-user): Use `riece-user-obarray'
+ instead of `riece-user-obarray'.
+ * riece-channel.el (riece-find-channel, riece-forget-channel)
+ (riece-get-channel): Use `riece-channel-obarray' instead of
+ `riece-obarray'.
+ * riece-misc.el (riece-get-identities-on-server): Ditto.
+ * riece-server.el (riece-reset-process-buffer): Ditto.
+
+2005-02-24 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-unread.el (riece-unread-after-switch-to-channel-function):
+ Clear riece-unread-channels case insensitively.
+
+ * riece-300.el (riece-handle-353-message): Use
+ riece-identity-assoc to pick an entry from
+ riece-353-message-alist.
+ (riece-handle-366-message): Ditto.
+ Reported by Steve Youngs <steve(a)sxemacs.org>.
+
+2005-02-19 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-debug.el (riece-funcall-ignore-errors): New function.
+ * riece-signal.el (riece-emit-signal): Use riece-funcall-ignore-errors.
+ * riece-filter.el (riece-handle-numeric-reply): Use
+ riece-funcall-ignore-errors.
+ (riece-handle-message): Ditto.
+ * riece-ctcp.el (riece-handle-ctcp-request): Use
+ riece-funcall-ignore-errors.
+
+2005-02-18 Steve Youngs <steve(a)sxemacs.org>
+
+ * riece-ctcp.el (riece-handle-ctcp-time-request): New.
+ (riece-handle-ctcp-time-response): New.
+ (riece-command-ctcp-time): New.
+ (riece-ctcp-enable): Add `riece-command-ctcp-time'.
+ (riece-ctcp-disable): Ditto.
+
+ * riece-layout.el (riece-layout-alist): Minor doc string fix --
+ escape a couple of parens.
+
+ * riece-version.el: defvar sxemacs-codename at compile time.
+ (riece-extended-version): Simplify the XEmacs section, add support
+ for SXEmacs.
+
+2005-02-17 TAKAHASHI Kaoru <kaoru(a)kaisei.org>
+
+ * riece-addon.el (riece-resolve-addons): Fixed
+ avoid add directory to addons condition.
+
+2005-02-10 TAKAHASHI Kaoru <kaoru(a)kaisei.org>
+
+ * riece-addon.el (riece-resolve-addons): Don't add directory to
+ addons.
+
+2005-02-09 Yoichi NAKAYAMA <yoichi(a)geiin.org>
+
+ * riece-commands.el (riece-command-part): Fix argument.
+
+2005-02-07 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-filter.el (riece-filter): Simplified.
+
+ * riece-addon.el (riece-resolve-addons): Check the existence of
+ riece-addon-directory.
+
+2005-02-06 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-filter.el (riece-filter): Modified regexp.
+
+2005-02-05 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece.el (riece-exit): Clear riece-window-configuration frame
+ parameter.
+ * riece-commands.el (riece-command-suspend-resume): Don't attempt
+ to restore window-configuration if the cdr of
+ riece-window-configuration frame parameter is nil.
+
+ * riece-filter.el (riece-chomp-string): New function.
+ (riece-filter): Use it.
+
+2005-02-05 Daiki Ueno <ueno(a)unixuser.org>
+
+ * Riece: Version 1.0.7 released.
+ * riece-version.el (riece-version-number): Bump up to 1.0.7.
+
+2005-02-05 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-keyword.el (riece-keyword-face): Change defface spec for tty.
+
+ * riece-toolbar.el (riece-toolbar-description): New constant.
+
+ * riece-keepalive.el: Require 'riece-options.
+ (riece-keepalive-ping-repeat): Define with defcustom.
+ (riece-keepalive-description): New constant.
+
+ * riece.el (riece-dialogue-mode-map): Bind
+ riece-command-suspend-resume.
+ * riece-commands.el (riece-command-suspend-resume): New command.
+
+ * riece-options.el (riece-addons): Enable riece-keyword by default.
+
+ * riece-button.el (riece-identity-button-popup-menu): Changed
+ interactivbe spect "＠e" -> "e".
+ (riece-identity-button-click): New function.
+ (riece-make-identity-button-map): Bind riece-identity-button-click.
+
+2005-02-04 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-options.el (riece-part-message): New user option.
+ (riece-addons): Enable riece-alias and riece-ctlseq by default.
+ (riece-max-buffer-size): Change the default value to nil.
+
+ * riece-commands.el (riece-command-part): Use riece-part-message.
+
+2005-02-04 OHASHI Akira <bg66(a)koka-in.org>
+
+ * riece-eval.el (riece-eval-form): New function.
+ (riece-eval-display-message-function): Use it.
+
+2005-02-04 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-000.el (riece-handle-001-message): Use
+ riece-command-join-channel to join startup channels.
+
+ * riece-filter.el (riece-filter): Accept lines which end with LF.
+
+ * riece-300.el (riece-353-message-alist): Renamed from riece-353-users.
+ (riece-handle-353-message): Don't parse the reply.
+ (riece-handle-366-message): Parse 353 replies here; count users.
+
+ * riece-log.el (riece-log-enable): Add debug message.
+
+ * riece-keepalive.el: New add-on.
+ * COMPILE (riece-modules): Add riece-keepalive.
+ * Makefile.am (EXTRA_DIST): Add riece-keepalive.el.
+
+2005-02-04 OHASHI Akira <bg66(a)koka-in.org>
+
+ * riece-biff.el (riece-biff-functions): Abolish.
+ (riece-biff-after-display-message-function): Follow the change above.
+
+2005-02-04 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-server.el (riece-close-server-process): Switch to process
+ buffer when running riece-after-close-hook.
+
+ * COMPILE (riece-icons): Add all symbols from riece-toolbar-items.
+
+ * Makefile.am (EXTRA_DIST): Add riece-command-previous-channel.xpm,
+ riece-command-next-channel.xpm, and riece-submit-bug-report.xpm.
+
+ * riece-menu.el (riece-menu-items): Add "Submit Bug Report".
+
+ * riece-toolbar.el (riece-toolbar-items): Add riece-submit-bug-report.
+
+ * riece-compat.el (riece-read-passwd): Changed default value.
+
+ * riece-400.el (riece-handle-475-message): Don't bind inhibit-quit
+ when reading channel key.
+
+ * riece-irc.el (riece-irc-open-server): Don't bind inhibit-quit
+ when reading password.
+
+ * riece-compat.el (riece-read-passwd): Bind inhibit-quit.
+
+ * riece-commands.el (riece-command-join): Abolished prefix-arg
+ (channel key).
+
+ * riece-options.el (riece-buffer-dispose-function): Changed the
+ default value from bury-buffer to kill-buffer.
+ * riece-log.el (riece-log-lock-directory): New user option.
+ (riece-log-enable): Create lock directory.
+ (riece-log-disable): Remove lock directory.
+
+ * riece-addon.el (riece-resolve-addons): Don't use FILES-ONLY
+ argument of directory-files.
+
+2005-02-04 OHASHI Akira <bg66(a)koka-in.org>
+
+ * riece-google.el (riece-google-default-lang): Change value.
+ (riece-google-display-message-function): Follow the change above.
+
+2005-02-03 OHASHI Akira <bg66(a)koka-in.org>
+
+ * riece-google.el: New add-on.
+ * COMPILE (riece-modules): Add riece-google.
+ * Makefile.am (EXTRA_DIST): Add riece-google.el.
+
+2005-02-03 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-400.el (riece-handle-475-message): New handler; query
+ channel key.
+
+2005-02-03 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-addon.el (riece-resolve-addon-dependencies): Rename from
+ riece-resolve-addon.
+ (riece-resolve-addon): Append add-ons under riece-addon-directory.
+
+2005-02-02 TAKAHASHI Kaoru <kaoru(a)kaisei.org>
+
+ * riece-message.el (riece-display-message): When filter-function
+ return nil, escape from while loop.
+
+2005-02-02 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-debug.el (riece-debug-standard-output-buffer): Use
+ riece-temp-buffer.
+ * riece.el: Add riece-temp-buffer.
+ * riece-globals.el (riece-temp-buffer): New variable.
+
+2005-02-02 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-signal.el (riece-emit-signal): Use riece-ignore-errors.
+
+ * riece-filter.el (riece-handle-numeric-reply): Use
+ riece-ignore-errors.
+ (riece-handle-message): Ditto.
+
+ * riece-ctcp.el (riece-handle-ctcp-request): Use
+ riece-ignore-errors.
+ (riece-handle-ctcp-response): Ditto.
+
+ * riece-debug.el: New file.
+ * COMPILE (riece-modules): Add riece-debug.
+ * Makefile.am (EXTRA_DIST): Add riece-debug.el.
+
+2005-02-02 OHASHI Akira <bg66(a)koka-in.org>
+
+ * riece-eval.el (riece-eval-regexp): Fix regexp.
+ (riece-eval-display-message-function): Follow the change above.
+
+2005-02-02 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-server.el (riece-close-server-process): Run
+ riece-after-close-hook.
+
+ * riece-log.el (riece-log-insert): Bind file-name-coding-system
+ and default-file-name-coding-system to nil.
+
+2005-02-01 OHASHI Akira <bg66(a)koka-in.org>
+
+ * riece-eval.el: New add-on.
+ * COMPILE (riece-modules): Add riece-eval.
+ * Makefile.am (EXTRA_DIST): Add riece-eval.el.
+
+2005-01-30 TAKAHASHI Kaoru <kaoru(a)kaisei.org>
+
+ * riece-display.el (riece-display-connect-signals): Check nick or
+ channel, before call `riece-channel-get-users'.
+
+2004-12-15 Yoichi NAKAYAMA <yoichi(a)geiin.org>
+
+ * riece-addon.el (riece-command-enable-addon): Fixed.
+ (riece-command-disable-addon): Ditto.
+
+2004-12-14 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-alias.el (riece-alias-abbrev-identity-string): Return a
+ copy of a string since text properties will be set on it.
+ (riece-alias-expand-identity-string): Ditto.
+
+ * riece-emacs.el (riece-normalize-modeline-string): Don't
+ concatenate elements in modeline string.
+
+2004-12-13 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-display.el (riece-update-channel-list-indicator):
+ Normalize modeline indicator.
+
+ * riece-xemacs.el (riece-normalize-modeline-string): New alias.
+ * riece-emacs.el (riece-normalize-modeline-string): New function.
+ (riece-normalize-modeline-string-1): New function.
+
+2004-12-13 Daiki Ueno <ueno(a)unixuser.org>
+
+ * test/Makefile.am (EXTRA_DIST): Add test-riece.el.
+ * test/test-riece.el: New test cases.
+
+ * riece.el (riece-shrink-buffer): Fixed bug.
+
+ * riece-options.el (riece-username): Changed the default value to
+ user-full-name.
+
+2004-12-12 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-command-previous-channel.xpm: New file.
+ * riece-command-next-channel.xpm: New file.
+
+ * COMPILE (riece-icons): New variable.
+ (riece-install-icons): New function.
+ (riece-install): Install icons.
+ (riece-install-package): Ditto.
+
+2004-12-12 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-options.el (riece-addons): Add riece-toolbar.
+
+ * riece-log.el (riece-log-flashback): Fixed regexp.
+
+ * riece-menu.el (riece-menu-items): Add "Next Channel" and
+ "Previous Channel".
+
+ * riece-toolbar.el: Support XEmacs.
+ (riece-toolbar-items): Renamed from
+ riece-toolbar-item-list.
+ (riece-tool-bar-local-item-from-menu): Abolished.
+ (riece-toolbar-find-menu-item): New function.
+ (riece-make-toolbar-from-menu): New function.
+ (riece-set-toolbar): New function.
+ (riece-toolbar-insinuate-in-command-buffer): Use them.
+
+2004-12-11 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-toolbar.el: New add-on.
+ * COMPILE (riece-modules): Add riece-toolbar.
+ * Makefile.am (EXTRA_DIST): Add riece-toolbar.el.
+
+2004-12-10 Daiki Ueno <ueno(a)unixuser.org>
+
+ * test/test-riece-log.el
+ (test-riece-log-display-message-function): "yes" -> "true".
+
+ * test/Makefile.am (EXTRA_DIST): Add lunit-report.el and
+ test-riece-log.el.
+
+2004-12-10 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece.el (riece-shrink-buffer): Shrink buffer based on chars
+ instead of lines.
+
+ * riece-options.el (riece-shrink-buffer-remove-chars): New user option.
+ (riece-shrink-buffer-remove-lines): Abolish.
+
+2004-12-08 Daiki Ueno <ueno(a)unixuser.org>
+
+ * test/test-riece-log.el (test-riece-log-delete-directory):
+ Suppress file-name encoding.
+
+ * riece-log.el (riece-log-get-directory): Fixed bug in
+ riece-log-directory-map handling.
+
+ * test/test-riece-log.el
+ (test-riece-log-display-message-function): New test case.
+
+2004-12-08 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-log.el (riece-log-flashback): Fixed custom spec.
+ (riece-log-date-face): New face.
+ (riece-log-insert): Don't append date string to the end of log
+ lines if they arrived today.
+ (riece-log-flashback): Insert "Recent messages ...:"; call
+ riece-after-insert-functions.
+
+ * riece-handle.el (riece-handle-part-message): Call riece-naming
+ assert-part after inserting changes in channel buffers.
+ * riece-display.el (riece-part-channel): Call
+ riece-buffer-dispose-function on parted channel buffer.
+
+2004-12-08 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-log.el (riece-log-display-message-function): Suppress
+ further file-name encoding.
+
+2004-12-07 Daiki Ueno <ueno(a)unixuser.org>
+
+ * test/lunit-report.el: New file split from lunit.el.
+
+ * riece-options.el (riece-addons): Add 'riece-log.
+
+ * test/test-riece-log.el (lunit-test-case-setup): #riece -> =23riece.
+
+ * riece-log.el (riece-log-insert): Renamed from
+ riece-log-flashback-1; simplified.
+ (riece-log-get-files): Check existence of directory.
+ (riece-log-get-directory): New implementation.
+ [cf. <Liece:00396>]
+
+2004-12-07 TAKAHASHI Kaoru <kaoru(a)kaisei.org>
+
+ * riece-foolproof.el (riece-foolproof-command-send-message-function):
+ Check invisible text.
+
+2004-12-07 Daiki Ueno <ueno(a)unixuser.org>
+
+ * test/test-riece-log.el (test-riece-log-encode-file-name): New
+ test case.
+ (test-riece-log-encode-file-name-mule): New test case.
+ (test-riece-log-decode-file-name): New test case.
+ (test-riece-log-decode-file-name-mule): New test case.
+
+ * riece-log.el (riece-log-file-name-coding-system): New user option.
+ (riece-log-encode-file-name): New function.
+ (riece-log-decode-file-name): New function.
+
+2004-12-06 Daiki Ueno <ueno(a)unixuser.org>
+
+ * test/test-riece-log.el: New test cases.
+
+ * riece-log.el: Collect logs across dates.
+ (riece-log-get-files): New function.
+ (riece-log-flashback-1): New function.
+ (riece-log-flashback): Use it.
+
+2004-12-05 Daiki Ueno <ueno(a)unixuser.org>
+
+ * riece-message.el (riece-display-message-1): Call
+ riece-after-display-message-functions in riece-message-buffer.
+ [cf. <Liece:00391>]
+
2004-12-05 Daiki Ueno <ueno(a)unixuser.org>
* Riece: Version 1.0.6 released.
1.6 +10 -7 XEmacs/packages/xemacs-packages/riece/lisp/Makefile.am
Index: Makefile.am
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/Makefile.am,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Makefile.am 2004/12/05 04:12:59 1.5
+++ Makefile.am 2005/03/20 09:11:20 1.6
＠＠ -3,19 +3,22 ＠＠
EXTRA_DIST = COMPILE ChangeLog ChangeLog.Liece \
riece-000.el riece-200.el riece-300.el riece-400.el riece-500.el \
riece-addon.el riece-channel.el riece-coding.el riece-commands.el \
- riece-compat.el riece-complete.el riece-display.el riece-emacs.el \
- riece-filter.el riece-globals.el riece-handle.el riece-highlight.el \
- riece-identity.el riece-message.el riece-misc.el riece-mode.el \
- riece-naming.el riece-options.el riece-server.el riece-signal.el \
- riece-user.el riece-version.el riece-xemacs.el riece-irc.el riece.el \
- riece-ctcp.el riece-url.el riece-unread.el \
+ riece-compat.el riece-complete.el riece-debug.el riece-display.el \
+ riece-emacs.el riece-filter.el riece-globals.el riece-handle.el \
+ riece-highlight.el riece-identity.el riece-message.el riece-misc.el \
+ riece-mode.el riece-naming.el riece-options.el riece-server.el \
+ riece-signal.el riece-user.el riece-version.el riece-xemacs.el \
+ riece-irc.el riece.el riece-ctcp.el riece-url.el riece-unread.el \
riece-ndcc.el riece-rdcc.el riece-log.el riece-mini.el \
riece-doctor.el riece-alias.el riece-layout.el riece-skk-kakutei.el \
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 \
- url-riece.el
+ riece-toolbar.el riece-eval.el riece-google.el riece-keepalive.el \
+ url-riece.el \
+ riece-command-previous-channel.xpm riece-command-next-channel.xpm \
+ riece-submit-bug-report.xpm
CLEANFILES = auto-autoloads.el custom-load.el *.elc
FLAGS ?= -batch -q -no-site-file
1.4 +1 -1 XEmacs/packages/xemacs-packages/riece/lisp/riece-000.el
Index: riece-000.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-000.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- riece-000.el 2004/09/05 09:04:19 1.3
+++ riece-000.el 2005/03/20 09:11:20 1.4
＠＠ -60,7 +60,7 ＠＠
(if (equal (riece-identity-server
(setq identity (riece-parse-identity (car entry))))
riece-server-name)
- (riece-command-join identity (nth 1 entry)))
+ (riece-command-join-channel identity (nth 1 entry)))
(setq channel-list (cdr channel-list))))
(run-hooks 'riece-after-login-hook))
1.5 +76 -50 XEmacs/packages/xemacs-packages/riece/lisp/riece-300.el
Index: riece-300.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-300.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- riece-300.el 2004/12/05 04:12:59 1.4
+++ riece-300.el 2005/03/20 09:11:20 1.5
＠＠ -93,7 +93,7 ＠＠
"\n")))
(defun riece-handle-301-message (prefix number name string)
- (if (string-match (concat "^\\(" riece-user-regexp "\\) :?")
string)
+ (if (string-match (concat "^\\([^ ]+\\) :?") string)
(let ((user (match-string 1 string))
(message (substring string (match-end 0))))
(riece-user-toggle-away user t)
＠＠ -127,8 +127,7 ＠＠
(defun riece-handle-311-message (prefix number name string)
(if (string-match
- (concat "^\\(" riece-user-regexp
- "\\) \\([^ ]+\\) \\([^ ]+\\) \\* :?")
+ (concat "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\* :?")
string)
(let ((user (match-string 1 string))
(name (substring string (match-end 0)))
＠＠ -148,7 +147,7 ＠＠
(defun riece-handle-312-message (prefix number name string)
(if (string-match
- (concat "^\\(" riece-user-regexp "\\) \\([^ ]+\\) :?")
+ (concat "^\\([^ ]+\\) \\([^ ]+\\) :?")
string)
(riece-insert-info
(list riece-dialogue-buffer riece-others-buffer)
＠＠ -174,23 +173,35 ＠＠
(defun riece-handle-317-message (prefix number name string)
(if (string-match
- (concat "^\\(" riece-user-regexp "\\) \\([0-9]+\\) ")
+ (concat "^\\([^ ]+\\) \\([0-9]+\\) ")
string)
- (let ((user (match-string 1 string))
- (idle (match-string 2 string)))
+ (let* ((user (match-string 1 string))
+ (seconds (string-to-number (match-string 2 string)))
+ (units (list (cons (/ seconds 60 60 24) "days")
+ (cons (mod (/ seconds 60 60) 24) "hours")
+ (cons (mod (/ seconds 60) 60) "minutes")
+ (cons (mod seconds 60) "seconds"))))
(riece-insert-info
(list riece-dialogue-buffer riece-others-buffer)
(concat
(riece-concat-server-name
- (format "%s is %s seconds idle"
+ (format "%s is %s idle"
(riece-format-identity
(riece-make-identity user riece-server-name)
t)
- idle))
+ (mapconcat #'identity
+ (delq nil
+ (mapcar
+ (lambda (unit)
+ (if (/= (car unit) 0)
+ (format "%d %s"
+ (car unit) (cdr unit))))
+ units))
+ " ")))
"\n")))))
(defun riece-handle-319-message (prefix number name string)
- (if (string-match (concat "^\\(" riece-user-regexp "\\) :?")
string)
+ (if (string-match (concat "^\\([^ ]+\\) :?") string)
(let ((user (match-string 1 string))
(channels
(mapconcat
＠＠ -229,45 +240,20 ＠＠
(substring string (match-end 0))))
"\n"))))
-(defvar riece-353-users nil)
+(defvar riece-353-message-alist nil)
(defun riece-handle-353-message (prefix number name string)
"RPL_NAMREPLY \"[=\*＠] <channel> :[[＠|+]<nick>
[[＠|+]<nick> [...]]]\"."
+ (make-local-variable 'riece-353-message-alist)
(if (string-match "^[=\*＠] *\\([^ ]+\\) +:?" string)
- (let ((channel (match-string 1 string))
- (start 0)
- user)
- (make-local-variable 'riece-353-users)
- (setq string (substring string (match-end 0)))
- (while (string-match
- (concat "\\([＠+]\\)?\\(" riece-user-regexp "\\) *")
- string start)
- (put-text-property (match-beginning 2) (match-end 2)
- 'riece-identity
- (riece-make-identity (match-string 2 string)
- riece-server-name)
- string)
- (setq start (match-end 0)
- user (if (match-beginning 1)
- (if (eq (aref string (match-beginning 1)) ?＠)
- (list (match-string 2 string) ?o)
- (if (eq (aref string (match-beginning 1)) ?+)
- (list (match-string 2 string) ?v)))
- (list (match-string 2 string)))
- riece-353-users (cons user riece-353-users)))
- (let* ((channel-identity (riece-make-identity channel
- riece-server-name))
- (buffer (riece-channel-buffer channel-identity)))
- (riece-insert-info buffer (concat "Users: " string "\n"))
- (riece-insert-info
- (if (and riece-channel-buffer-mode
- (not (eq buffer riece-channel-buffer)))
- (list riece-dialogue-buffer riece-others-buffer)
- riece-dialogue-buffer)
- (concat
- (riece-concat-server-name
- (format "Users on %s: %s"
- (riece-format-identity channel-identity t) string))
- "\n"))))))
+ (let* ((channel (match-string 1 string))
+ (entry (riece-identity-assoc channel riece-353-message-alist t)))
+ (if entry
+ (setcdr entry
+ (concat (cdr entry)
+ (substring string (match-end 0))))
+ (setq riece-353-message-alist
+ (cons (cons channel (substring string (match-end 0)))
+ riece-353-message-alist))))))
(defun riece-handle-322-message (prefix number name string)
(if (string-match "^\\([^ ]+\\) \\([0-9]+\\) :?" string)
＠＠ -435,10 +421,50 ＠＠
(defun riece-handle-366-message (prefix number name string)
"RPL_ENDOFNAMES \"<channel> :End of NAMES list\""
(if (string-match "^\\([^ ]+\\) " string)
- (let ((channel (match-string 1 string)))
- (riece-naming-assert-channel-users (nreverse riece-353-users)
- channel)))
- (setq riece-353-users nil))
+ (let* ((channel (match-string 1 string))
+ (channel-identity (riece-make-identity channel
+ riece-server-name))
+ (buffer (riece-channel-buffer channel-identity))
+ (entry (riece-identity-assoc channel riece-353-message-alist t))
+ (string (cdr entry))
+ (start 0)
+ users)
+ (if entry
+ (setq riece-353-message-alist
+ (delq entry riece-353-message-alist)))
+ (while (string-match
+ (concat "\\([＠+]\\)?\\(" riece-user-regexp "\\) *")
+ string start)
+ (put-text-property (match-beginning 2) (match-end 2)
+ 'riece-identity
+ (riece-make-identity (match-string 2 string)
+ riece-server-name)
+ string)
+ (setq start (match-end 0)
+ users (cons (if (match-beginning 1)
+ (if (eq (aref string (match-beginning 1)) ?＠)
+ (list (match-string 2 string) ?o)
+ (if (eq (aref string (match-beginning 1)) ?+)
+ (list (match-string 2 string) ?v)))
+ (list (match-string 2 string)))
+ users)))
+ (setq users (nreverse users))
+ (riece-naming-assert-channel-users users channel)
+ (riece-insert-info
+ buffer
+ (concat (format "%d users: " (length users)) string "\n"))
+ (riece-insert-info
+ (if (and riece-channel-buffer-mode
+ (not (eq buffer riece-channel-buffer)))
+ (list riece-dialogue-buffer riece-others-buffer)
+ riece-dialogue-buffer)
+ (concat
+ (riece-concat-server-name
+ (concat (format "%d users on %s: "
+ (length users)
+ (riece-format-identity channel-identity t))
+ string))
+ "\n")))))
(provide 'riece-300)
1.3 +20 -0 XEmacs/packages/xemacs-packages/riece/lisp/riece-400.el
Index: riece-400.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-400.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- riece-400.el 2004/09/05 09:04:19 1.2
+++ riece-400.el 2005/03/20 09:11:20 1.3
＠＠ -63,6 +63,26 ＠＠
(message "Password incorrect from %s." prefix)
(setq riece-reconnect-with-password t))
+(defun riece-handle-475-message (prefix number name string)
+ "ERR_BADCHANNELKEY \"<channel> :Cannot join channel
(+k)\"."
+ (let* ((parameters (riece-split-parameters string))
+ (channel-identity (riece-make-identity (car parameters)
+ riece-server-name))
+ key)
+ (message "%s: %s" (car parameters) (nth 1 parameters))
+ (setq key
+ (condition-case nil
+ (let (inhibit-quit)
+ (riece-read-passwd
+ (format "Key for %s: "
+ (riece-format-identity channel-identity t))))
+ (quit
+ (message "Key for %s: Quit"
+ (riece-format-identity channel-identity t))
+ 'quit)))
+ (unless (eq key 'quit)
+ (riece-command-join-channel channel-identity key))))
+
(provide 'riece-400)
;;; riece-400.el ends here
1.2 +37 -25 XEmacs/packages/xemacs-packages/riece/lisp/riece-addon.el
Index: riece-addon.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-addon.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- riece-addon.el 2004/09/05 09:04:19 1.1
+++ riece-addon.el 2005/03/20 09:11:20 1.2
＠＠ -144,7 +144,7 ＠＠
(setq addons (cdr addons)))
dependencies))
-(defun riece-resolve-addons (addons)
+(defun riece-resolve-addon-dependencies (addons)
(let ((pointer addons)
dependencies queue)
;; Uniquify, first.
＠＠ -179,6 +179,18 ＠＠
(error "Circular add-on dependency found"))
(nreverse addons)))
+(defun riece-resolve-addons (addons)
+ (riece-resolve-addon-dependencies
+ (if (file-directory-p riece-addon-directory)
+ (append addons
+ (mapcar
+ (lambda (name)
+ (unless (file-directory-p
+ (expand-file-name name riece-addon-directory))
+ (intern (file-name-sans-extension name))))
+ (directory-files riece-addon-directory nil "\\`[^.]" t)))
+ addons)))
+
(defun riece-insinuate-addon (addon &optional verbose)
(require addon) ;implicit dependency
(funcall (intern (concat (symbol-name addon) "-insinuate")))
＠＠ -288,18 +300,18 ＠＠
(list
(or (if (eq major-mode 'riece-addon-list-mode)
(get-text-property (point) 'riece-addon))
- (completing-read "Add-on: "
- (mapcar (lambda (addon)
- (list (symbol-name addon)))
- riece-addons)
- (lambda (pointer)
- (let ((enabled
- (intern-soft (concat (symbol-name
- (car pointer))
- "-enabled"))))
- (and enabled
- (null (symbol-value enabled)))))
- t))))
+ (intern-soft
+ (completing-read "Add-on: "
+ (mapcar (lambda (addon)
+ (list (symbol-name addon)))
+ riece-addons)
+ (lambda (pointer)
+ (let ((enabled
+ (intern-soft (concat (car pointer)
+ "-enabled"))))
+ (and enabled
+ (null (symbol-value enabled)))))
+ t)))))
(riece-enable-addon addon t)
(let ((enabled (intern-soft (concat (symbol-name addon) "-enabled"))))
(if (and (eq major-mode 'riece-addon-list-mode)
＠＠ -319,18 +331,18 ＠＠
(list
(or (if (eq major-mode 'riece-addon-list-mode)
(get-text-property (point) 'riece-addon))
- (completing-read "Add-on: "
- (mapcar (lambda (addon)
- (list (symbol-name addon)))
- riece-addons)
- (lambda (pointer)
- (let ((enabled
- (intern-soft (concat (symbol-name
- (car pointer))
- "-enabled"))))
- (and enabled
- (symbol-value enabled))))
- t))))
+ (intern-soft
+ (completing-read "Add-on: "
+ (mapcar (lambda (addon)
+ (list (symbol-name addon)))
+ riece-addons)
+ (lambda (pointer)
+ (let ((enabled
+ (intern-soft (concat (car pointer)
+ "-enabled"))))
+ (and enabled
+ (symbol-value enabled))))
+ t)))))
(riece-disable-addon addon t)
(let ((enabled (intern-soft (concat (symbol-name addon) "-enabled"))))
(if (and (eq major-mode 'riece-addon-list-mode)
1.4 +2 -2 XEmacs/packages/xemacs-packages/riece/lisp/riece-alias.el
Index: riece-alias.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-alias.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- riece-alias.el 2004/12/05 04:12:59 1.3
+++ riece-alias.el 2005/03/20 09:11:20 1.4
＠＠ -143,7 +143,7 ＠＠
(setq string (cdr (car alist))
alist nil)
(setq alist (cdr alist)))))
- string)
+ (copy-sequence string))
(defun riece-alias-expand-identity-string (string)
(let ((alist riece-alias-alist))
＠＠ -156,7 +156,7 ＠＠
(setq string (riece-alias-expand-alternate-separator string)))
(if riece-alias-enable-percent-hack
(setq string (riece-alias-expand-percent-hack string)))
- string)
+ (copy-sequence string))
(defun riece-alias-insinuate ()
)
1.3 +1 -7 XEmacs/packages/xemacs-packages/riece/lisp/riece-biff.el
Index: riece-biff.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-biff.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- riece-biff.el 2004/12/05 04:12:59 1.2
+++ riece-biff.el 2005/03/20 09:11:20 1.3
＠＠ -49,11 +49,6 ＠＠
:type 'string
:group 'riece-biff)
-(defcustom riece-biff-functions nil
- "*Functions for processing new arrival messages."
- :type 'function
- :group 'riece-biff)
-
(defvar riece-biff-mode-string 'riece-biff-default-mode-string)
(defvar riece-biff-enabled nil)
＠＠ -70,8 +65,7 ＠＠
(when (or (null riece-biff-check-channels)
(member (riece-format-identity (riece-message-target message))
riece-biff-check-channels))
- (setq riece-biff-mode-string 'riece-biff-biff-mode-string)
- (run-hook-with-args 'riece-biff-functions message))))
+ (setq riece-biff-mode-string 'riece-biff-biff-mode-string))))
(defun riece-biff-clear (&optional dummy)
(when riece-biff-enabled
1.4 +23 -1 XEmacs/packages/xemacs-packages/riece/lisp/riece-button.el
Index: riece-button.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-button.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- riece-button.el 2004/09/05 09:04:19 1.3
+++ riece-button.el 2005/03/20 09:11:20 1.4
＠＠ -83,9 +83,30 ＠＠
(message "%s" (substitute-command-keys
"Type \\[riece-command-join] to join the channel")))))
+(defun riece-identity-button-click (event)
+ "Call widget-button-click and select the last selected window."
+ (interactive "e") ;widget-button-click has
+ ;interactive spec "＠e"
+ (let ((buffer (current-buffer))
+ (point (point))
+ window)
+ (unwind-protect
+ (save-excursion
+ (set-buffer (riece-event-buffer event))
+ (goto-char (riece-event-point event))
+ (widget-button-click event))
+ ;; riece-button-switch-to-identity changes window-configuration
+ ;; so we must select the last selected window by _buffer_.
+ (if (setq window (get-buffer-window buffer))
+ (progn
+ (select-window window)
+ (set-window-point window point))
+ (if riece-debug
+ (message "buffer %s not visible" (buffer-name buffer)))))))
+
(defun riece-identity-button-popup-menu (event)
"Popup the menu for identity buttons."
- (interactive "＠e")
+ (interactive "e")
(save-excursion
(set-buffer (riece-event-buffer event))
(goto-char (riece-event-point event))
＠＠ -179,6 +200,7 ＠＠
(defun riece-make-identity-button-map ()
(let ((map (make-sparse-keymap)))
(set-keymap-parent map (current-local-map))
+ (define-key map [down-mouse-2] 'riece-identity-button-click)
(define-key map [down-mouse-3] 'riece-identity-button-popup-menu)
map))
1.4 +5 -5 XEmacs/packages/xemacs-packages/riece/lisp/riece-channel.el
Index: riece-channel.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-channel.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- riece-channel.el 2004/09/05 09:04:19 1.3
+++ riece-channel.el 2005/03/20 09:11:20 1.4
＠＠ -33,16 +33,16 ＠＠
(defun riece-find-channel (name)
"Get a channel object named NAME from the server buffer."
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix name)
- riece-obarray)))
+ riece-channel-obarray)))
(if symbol
(symbol-value symbol))))
(defun riece-forget-channel (name)
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix name)
- riece-obarray)))
+ riece-channel-obarray)))
(when symbol
(makunbound symbol)
- (unintern (symbol-name symbol) riece-obarray))))
+ (unintern (symbol-name symbol) riece-channel-obarray))))
(defun riece-make-channel (users topic modes banned invited uninvited key)
"Make an instance of channel object.
＠＠ -53,11 +53,11 ＠＠
(defun riece-get-channel (name)
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix name)
- riece-obarray)))
+ riece-channel-obarray)))
(if symbol
(symbol-value symbol)
(set (intern (riece-identity-canonicalize-prefix name)
- riece-obarray)
+ riece-channel-obarray)
(riece-make-channel nil nil nil nil nil nil nil)))))
(defun riece-channel-users (channel)
1.5 +34 -26 XEmacs/packages/xemacs-packages/riece/lisp/riece-commands.el
Index: riece-commands.el
===================================================================
RCS file:
/pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-commands.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- riece-commands.el 2004/09/05 09:04:19 1.4
+++ riece-commands.el 2005/03/20 09:11:21 1.5
＠＠ -112,8 +112,23 ＠＠
(defun riece-command-configure-windows ()
(interactive)
+ "Reconfigure windows with the current layout."
(riece-redisplay-buffers t))
+(defun riece-command-suspend-resume ()
+ (interactive)
+ "Save or restore the current window configuration."
+ (let ((entry (assq 'riece-window-configuration (frame-parameters))))
+ (modify-frame-parameters (selected-frame)
+ (list (cons 'riece-window-configuration
+ (current-window-configuration))))
+ (if (cdr entry)
+ (set-window-configuration (cdr entry))
+ (delete-other-windows))
+ (message
+ (substitute-command-keys
+ "\\[riece-command-suspend-resume] to get back the last windows"))))
+
(defun riece-command-change-layout (name)
"Select a layout-name from all current available layouts and change
the layout to the selected layout-name."
＠＠ -435,32 +450,25 ＠＠
(riece-join-channel target)
(riece-switch-to-channel target))))
-(defun riece-command-join (target &optional key)
+(defun riece-command-join (target)
(interactive
- (let* ((completion-ignore-case t)
- (target
- (if riece-join-channel-candidate
- (let ((default (riece-format-identity
- riece-join-channel-candidate)))
- (riece-completing-read-identity
- (format "Join channel/user (default %s): " default)
- (riece-get-identities-on-server (riece-current-server-name))
- nil nil nil nil default))
- (riece-completing-read-identity
- "Join channel/user: "
- (riece-get-identities-on-server (riece-current-server-name)))))
- key)
- (if (and current-prefix-arg
- (riece-channel-p (riece-identity-prefix target)))
- (setq key
- (riece-read-passwd (format "Key for %s: "
- (riece-format-identity target)))))
- (list target key)))
+ (let ((completion-ignore-case t))
+ (list
+ (if riece-join-channel-candidate
+ (let ((default (riece-format-identity
+ riece-join-channel-candidate)))
+ (riece-completing-read-identity
+ (format "Join channel/user (default %s): " default)
+ (riece-get-identities-on-server (riece-current-server-name))
+ nil nil nil nil default))
+ (riece-completing-read-identity
+ "Join channel/user: "
+ (riece-get-identities-on-server (riece-current-server-name)))))))
(let ((pointer (riece-identity-member target riece-current-channels)))
(if pointer
(riece-command-switch-to-channel (car pointer))
(if (riece-channel-p (riece-identity-prefix target))
- (riece-command-join-channel target key)
+ (riece-command-join-channel target nil)
(riece-command-join-partner target)))))
(defun riece-command-part-channel (target message)
＠＠ -484,10 +492,10 ＠＠
(riece-format-identity riece-current-channel))
riece-current-channels nil nil nil nil
(riece-format-identity riece-current-channel)))
- message)
- (if (and current-prefix-arg
- (riece-channel-p (riece-identity-prefix target)))
- (setq message (read-string "Message: ")))
+ (message
+ (if current-prefix-arg
+ (read-string "Message: ")
+ riece-part-message)))
(list target message))))
(if (riece-identity-member target riece-current-channels)
(if (riece-channel-p (riece-identity-prefix target))
＠＠ -616,7 +624,7 ＠＠
(let ((message
(if arg
(read-string "Message: ")
- riece-quit-message))
+ riece-quit-message))
(alist riece-server-process-alist))
(while alist
(riece-quit-server-process (cdr (car alist)) message)
1.3 +2 -8 XEmacs/packages/xemacs-packages/riece/lisp/riece-compat.el
Index: riece-compat.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-compat.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- riece-compat.el 2003/12/27 15:41:10 1.2
+++ riece-compat.el 2005/03/20 09:11:21 1.3
＠＠ -48,15 +48,9 ＠＠
(end-of-line)
(point)))
-(defvar riece-read-passwd nil)
+(autoload 'read-passwd "passwd")
+(defvar riece-read-passwd #'read-passwd)
(defun riece-read-passwd (prompt)
- (if (not riece-read-passwd)
- (if (functionp 'read-passwd)
- (setq riece-read-passwd 'read-passwd)
- (if (load "passwd" t)
- (setq riece-read-passwd 'read-passwd)
- (autoload 'ange-ftp-read-passwd "ange-ftp")
- (setq riece-read-passwd 'ange-ftp-read-passwd))))
(funcall riece-read-passwd prompt))
(if (string-match "0\\{0\\}" "")
1.5 +77 -43 XEmacs/packages/xemacs-packages/riece/lisp/riece-ctcp.el
Index: riece-ctcp.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-ctcp.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- riece-ctcp.el 2004/09/05 09:04:19 1.4
+++ riece-ctcp.el 2005/03/20 09:11:21 1.5
＠＠ -28,6 +28,7 ＠＠
(require 'riece-misc)
(require 'riece-highlight)
(require 'riece-display)
+(require 'riece-debug)
(defface riece-ctcp-action-face
'((((class color)
＠＠ -72,27 +73,16 ＠＠
(after-hook
(intern (concat "riece-ctcp-after-" request
"-request-hook"))))
- (unless (condition-case error
- (run-hook-with-args-until-success
- hook prefix (car targets) message)
- (error
- (if riece-debug
- (message "Error in `%S': %S" hook error))
- nil))
+ (unless (riece-ignore-errors (symbol-name hook)
+ (run-hook-with-args-until-success
+ hook prefix (car targets) message))
(if function
- (condition-case error
- (funcall function prefix (car targets) message)
- (error
- (if riece-debug
- (message "Error in `%S': %S"
- function error))))))
- (condition-case error
+ (riece-funcall-ignore-errors (symbol-name function)
+ function prefix (car targets)
+ message))
+ (riece-ignore-errors (symbol-name after-hook)
(run-hook-with-args-until-success
- after-hook prefix (car targets) message)
- (error
- (if riece-debug
- (message "Error in `%S': %S"
- after-hook error)))))
+ after-hook prefix (car targets) message))))
t)))))
(defun riece-handle-ctcp-version-request (prefix target string)
＠＠ -180,16 +170,50 ＠＠
(riece-channel-buffer (riece-make-identity
target riece-server-name))))
(user (riece-prefix-nickname prefix)))
- (riece-insert buffer (concat riece-ctcp-action-prefix user " " string
+ (riece-insert buffer (concat riece-ctcp-action-prefix
+ (riece-format-identity
+ (riece-make-identity user riece-server-name)
+ t)
+ " " string
"\n"))
(riece-insert
(if (and riece-channel-buffer-mode
(not (eq buffer riece-channel-buffer)))
(list riece-dialogue-buffer riece-others-buffer)
riece-dialogue-buffer)
- (concat (riece-concat-server-name (concat riece-ctcp-action-prefix user
- " " string)) "\n"))))
+ (concat (riece-concat-server-name
+ (concat riece-ctcp-action-prefix
+ (riece-format-identity
+ (riece-make-identity target riece-server-name)
+ t)
+ ": "
+ (riece-format-identity
+ (riece-make-identity user riece-server-name)
+ t)
+ " " string)) "\n"))))
+(defun riece-handle-ctcp-time-request (prefix target string)
+ (let* ((target-identity (riece-make-identity target riece-server-name))
+ (buffer (if (riece-channel-p target)
+ (riece-channel-buffer target-identity)))
+ (user (riece-prefix-nickname prefix))
+ (time (format-time-string "%c")))
+ (riece-send-string
+ (format "NOTICE %s :\1TIME %s\1\r\n" user time))
+ (riece-insert-change buffer (format "CTCP TIME from %s\n" user))
+ (riece-insert-change
+ (if (and riece-channel-buffer-mode
+ (not (eq buffer riece-channel-buffer)))
+ (list riece-dialogue-buffer riece-others-buffer)
+ riece-dialogue-buffer)
+ (concat
+ (riece-concat-server-name
+ (format "CTCP TIME from %s (%s) to %s"
+ user
+ (riece-strip-user-at-host (riece-prefix-user-at-host prefix))
+ (riece-format-identity target-identity t)))
+ "\n"))))
+
(defun riece-handle-ctcp-response (prefix string)
(when (and riece-ctcp-enabled prefix string
(riece-prefix-nickname prefix))
＠＠ -207,27 +231,16 ＠＠
(after-hook
(intern (concat "riece-ctcp-after-" response
"-response-hook"))))
- (unless (condition-case error
- (run-hook-with-args-until-success
- hook prefix (car targets) message)
- (error
- (if riece-debug
- (message "Error in `%S': %S" hook error))
- nil))
+ (unless (riece-ignore-errors (symbol-name hook)
+ (run-hook-with-args-until-success
+ hook prefix (car targets) message))
(if function
- (condition-case error
- (funcall function prefix (car targets) message)
- (error
- (if riece-debug
- (message "Error in `%S': %S"
- function error))))))
- (condition-case error
+ (riece-funcall-ignore-errors
+ (symbol-name function)
+ function prefix (car targets) message))
+ (riece-ignore-errors (symbol-name after-hook)
(run-hook-with-args-until-success
- after-hook prefix (car targets) message)
- (error
- (if riece-debug
- (message "Error in `%S': %S"
- after-hook error)))))
+ after-hook prefix (car targets) message))))
t)))))
(defun riece-handle-ctcp-version-response (prefix target string)
＠＠ -266,6 +279,17 ＠＠
string))
"\n")))
+(defun riece-handle-ctcp-time-response (prefix target string)
+ (riece-insert-change
+ (list riece-dialogue-buffer riece-others-buffer)
+ (concat
+ (riece-concat-server-name
+ (format "CTCP TIME for %s (%s) = %s"
+ (riece-prefix-nickname prefix)
+ (riece-strip-user-at-host (riece-prefix-user-at-host prefix))
+ string))
+ "\n")))
+
(defun riece-command-ctcp-version (target)
(interactive
(list (riece-completing-read-identity
＠＠ -326,10 +350,18 ＠＠
(riece-with-server-buffer (riece-identity-server target)
(riece-concat-server-name
(concat riece-ctcp-action-prefix
- (riece-identity-prefix (riece-current-nickname)) " " action
- " (in " (riece-format-identity target t) ")")))
+ (riece-format-identity target t) ": "
+ (riece-identity-prefix (riece-current-nickname)) " " action)))
"\n"))))
+(defun riece-command-ctcp-time (target)
+ (interactive
+ (list (riece-completing-read-identity
+ "Channel/User: "
+ (riece-get-identities-on-server (riece-current-server-name)))))
+ (riece-send-string (format "PRIVMSG %s :\1TIME\1\r\n"
+ (riece-identity-prefix target))))
+
(defun riece-ctcp-requires ()
(if (memq 'riece-highlight riece-addons)
'(riece-highlight)))
＠＠ -350,6 +382,7 ＠＠
(define-key riece-dialogue-mode-map "\C-cp" 'riece-command-ctcp-ping)
(define-key riece-dialogue-mode-map "\C-ca"
'riece-command-ctcp-action)
(define-key riece-dialogue-mode-map "\C-cc"
'riece-command-ctcp-clientinfo)
+ (define-key riece-dialogue-mode-map "\C-ct" 'riece-command-ctcp-time)
(setq riece-ctcp-enabled t))
(defun riece-ctcp-disable ()
＠＠ -357,6 +390,7 ＠＠
(define-key riece-dialogue-mode-map "\C-cp" nil)
(define-key riece-dialogue-mode-map "\C-ca" nil)
(define-key riece-dialogue-mode-map "\C-cc" nil)
+ (define-key riece-dialogue-mode-map "\C-ct" nil)
(setq riece-ctcp-enabled nil))
(provide 'riece-ctcp)
1.5 +12 -7 XEmacs/packages/xemacs-packages/riece/lisp/riece-display.el
Index: riece-display.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-display.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- riece-display.el 2004/12/05 04:13:00 1.4
+++ riece-display.el 2005/03/20 09:11:21 1.5
＠＠ -125,11 +125,13 ＠＠
(riece-identity-server riece-current-channel))
(riece-with-server-buffer (riece-identity-server
riece-current-channel)
- (riece-identity-assoc
- (riece-identity-prefix (nth 1 (riece-signal-args signal)))
- (riece-channel-get-users (riece-identity-prefix
- riece-current-channel))
- t)))))
+ (when (riece-channel-p (riece-identity-prefix
+ riece-current-channel))
+ (riece-identity-assoc
+ (riece-identity-prefix (nth 1 (riece-signal-args signal)))
+ (riece-channel-get-users (riece-identity-prefix
+ riece-current-channel))
+ t))))))
(riece-connect-signal
'user-renamed
(lambda (signal handback)
＠＠ -325,7 +327,9 ＠＠
(while pointer
(if (cdr pointer)
(setcdr pointer (cons "," (cdr pointer))))
- (setq pointer (cdr (cdr pointer)))))
+ (setq pointer (cdr (cdr pointer))))
+ (setq riece-channel-list-indicator
+ (riece-normalize-modeline-string riece-channel-list-indicator)))
(setq riece-channel-list-indicator "No channel")))
(defun riece-update-status-indicators ()
＠＠ -474,7 +478,8 ＠＠
(if pointer
(setcar pointer nil))
(if (riece-identity-equal identity riece-current-channel)
- (riece-switch-to-nearest-channel pointer))))
+ (riece-switch-to-nearest-channel pointer))
+ (funcall riece-buffer-dispose-function (riece-channel-buffer identity))))
(defun riece-redisplay-buffers (&optional force)
(riece-update-buffers)
1.6 +13 -0 XEmacs/packages/xemacs-packages/riece/lisp/riece-emacs.el
Index: riece-emacs.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-emacs.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- riece-emacs.el 2004/12/05 04:13:00 1.5
+++ riece-emacs.el 2005/03/20 09:11:21 1.6
＠＠ -95,6 +95,19 ＠＠
(add-text-properties 0 (length string) properties string)
string)
+(defun riece-normalize-modeline-string-1 (string)
+ (if string
+ (if (listp (car string))
+ (cons (car (car string)) (riece-normalize-modeline-string-1
+ (append (cdr (car string)) (cdr string))))
+ (cons (car string) (riece-normalize-modeline-string-1
+ (cdr string))))))
+
+(defun riece-normalize-modeline-string (string)
+ (if (listp string)
+ (list (apply #'concat (riece-normalize-modeline-string-1 string)))
+ string))
+
(defun riece-put-text-property-nonsticky (start end prop value
&optional object)
(add-text-properties start end
1.4 +26 -34 XEmacs/packages/xemacs-packages/riece/lisp/riece-filter.el
Index: riece-filter.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-filter.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- riece-filter.el 2004/09/05 09:04:19 1.3
+++ riece-filter.el 2005/03/20 09:11:22 1.4
＠＠ -28,6 +28,7 ＠＠
(require 'riece-misc)
(require 'riece-server) ;riece-close-server
(require 'riece-identity)
+(require 'riece-debug)
(defun riece-handle-numeric-reply (prefix number name string)
(let ((base-number (* (/ number 100) 100))
＠＠ -40,12 +41,9 ＠＠
(format "riece-handle-default-%03d-message" base-number))))
(if (and function
(symbol-function function))
- (condition-case error
- (funcall function prefix number name
- (riece-decode-coding-string string))
- (error
- (if riece-debug
- (message "Error in `%S': %S" function error)))))))
+ (riece-funcall-ignore-errors (symbol-name function)
+ function prefix number name
+ (riece-decode-coding-string string)))))
(defun riece-handle-message (prefix message string)
(if (and prefix
＠＠ -58,56 +56,50 ＠＠
(let ((function (intern-soft (concat "riece-handle-" message
"-message")))
(hook (intern (concat "riece-" message "-hook")))
(after-hook (intern (concat "riece-after-" message "-hook"))))
- (unless (condition-case error
- (run-hook-with-args-until-success hook prefix string)
- (error
- (if riece-debug
- (message "Error in `%S': %S" hook error))
- nil))
+ (unless (riece-ignore-errors (symbol-name hook)
+ (run-hook-with-args-until-success hook prefix string))
(if function
- (condition-case error
- (funcall function prefix string)
- (error
- (if riece-debug
- (message "Error in `%S': %S" function error)))))
- (condition-case error
- (run-hook-with-args-until-success after-hook prefix string)
- (error
- (if riece-debug
- (message "Error in `%S': %S" after-hook error)))))))
+ (riece-funcall-ignore-errors (symbol-name function)
+ function prefix string))
+ (riece-ignore-errors (symbol-name after-hook)
+ (run-hook-with-args-until-success after-hook prefix string)))))
+(defsubst riece-chomp-string (string)
+ (if (string-match "\r\\'" string)
+ (substring string 0 (match-beginning 0))
+ string))
+
(defun riece-filter (process input)
(save-excursion
(set-buffer (process-buffer process))
- (goto-char riece-read-point)
- (unless riece-debug
- (delete-region (riece-line-beginning-position) (point-min))
- (setq riece-read-point (point)))
+ (goto-char (point-max))
(insert input)
- (goto-char (prog1 riece-read-point
- (setq riece-read-point (point))))
+ (goto-char riece-read-point)
(beginning-of-line)
(while (and (not (eobp))
- (looking-at ".*\r\n")) ;the input line is not finished
+ (looking-at ".*\n")) ;the input line is not finished
(save-excursion
(if (looking-at
- ":\\([^ ]+\\) +\\([0-5][0-9][0-9]\\) +\\([^ ]+\\) +\\(.*\\)\r\n")
+ ":\\([^ ]+\\) +\\([0-5][0-9][0-9]\\) +\\([^ ]+\\) +\\(.*\\)")
(riece-handle-numeric-reply
(match-string 1) ;prefix
(string-to-number (match-string 2)) ;number
(match-string 3) ;name
- (match-string 4)) ;reply string
- (if (looking-at "\\(:\\([^ ]+\\) +\\)?\\([^ ]+\\) +\\(.*\\)\r\n")
+ (riece-chomp-string (match-string 4))) ;reply string
+ (if (looking-at "\\(:\\([^ ]+\\) +\\)?\\([^ ]+\\) +\\(.*\\)")
(riece-handle-message
(match-string 2) ;optional prefix
(match-string 3) ;command
- (match-string 4)) ;params & trailing
+ (riece-chomp-string (match-string 4))) ;params & trailing
(if riece-debug
(message "Weird message from server: %s"
(buffer-substring (point) (progn
(end-of-line)
(point))))))))
- (forward-line))))
+ (forward-line))
+ (unless riece-debug
+ (delete-region (point-min) (point)))
+ (setq riece-read-point (point))))
(eval-when-compile
(autoload 'riece-exit "riece"))
1.2 +7 -0 XEmacs/packages/xemacs-packages/riece/lisp/riece-foolproof.el
Index: riece-foolproof.el
===================================================================
RCS file:
/pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-foolproof.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- riece-foolproof.el 2004/09/05 09:04:19 1.1
+++ riece-foolproof.el 2005/03/20 09:11:22 1.2
＠＠ -51,6 +51,13 ＠＠
riece-current-channel))
(error "Channel %s is not displayed"
(riece-identity-prefix riece-current-channel)))
+ (when (text-property-not-all
+ (riece-line-beginning-position) (riece-line-end-position)
+ 'invisible nil)
+ (error "Invisible text included: %s"
+ (buffer-substring-no-properties
+ (riece-line-beginning-position)
+ (riece-line-end-position))))
(when executing-kbd-macro
(error "%s" "Forbidden to run keyboard macro"))))
1.6 +12 -5 XEmacs/packages/xemacs-packages/riece/lisp/riece-globals.el
Index: riece-globals.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-globals.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- riece-globals.el 2004/12/05 04:13:00 1.5
+++ riece-globals.el 2005/03/20 09:11:22 1.6
＠＠ -65,9 +65,12 ＠＠
(defvar riece-reconnect-with-password nil
"If non-nil, attempt to reconnect with password.")
-(defvar riece-obarray-size 1327
- "The size of obarray used by riece on channelname and username space.")
+(defvar riece-user-obarray-size 1327
+ "The size of obarray used by riece on username space.")
+(defvar riece-channel-obarray-size 103
+ "The size of obarray used by riece on channelname space.")
+
;;; Variables local to the server buffers:
(defvar riece-server-name nil
"The name of the server.
＠＠ -116,9 +119,12 ＠＠
Local to the server buffers.")
(defvar riece-last-send-time nil
"Timestamp of the last send.
+Local to the server buffers.")
+(defvar riece-user-obarray nil
+ "USER namespace of the IRC world.
Local to the server buffers.")
-(defvar riece-obarray nil
- "Namespace of the IRC world.
+(defvar riece-channel-obarray nil
+ "Channel namespace of the IRC world.
Local to the server buffers.")
(defvar riece-coding-system nil
"Coding system for process I/O.
＠＠ -172,9 +178,10 ＠＠
"Buffer for channel list.")
(defvar riece-user-list-buffer nil
"Buffer for user list.")
-
(defvar riece-channel-buffer nil
"Buffer for messages arrived in the current channel.")
+(defvar riece-temp-buffer nil
+ "Buffer for temporally use.")
(defvar riece-buffer-list nil)
(defvar riece-overriding-server-name nil)
1.5 +1 -1 XEmacs/packages/xemacs-packages/riece/lisp/riece-handle.el
Index: riece-handle.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-handle.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- riece-handle.el 2004/09/05 09:04:19 1.4
+++ riece-handle.el 2005/03/20 09:11:23 1.5
＠＠ -161,7 +161,6 ＠＠
(message (nth 1 parameters))
(user-identity (riece-make-identity user riece-server-name)))
(while channels
- (riece-naming-assert-part user (car channels))
(let* ((channel-identity (riece-make-identity (car channels)
riece-server-name))
(buffer (riece-channel-buffer channel-identity)))
＠＠ -187,6 +186,7 ＠＠
(riece-format-identity channel-identity t))
message))
"\n")))
+ (riece-naming-assert-part user (car channels))
(setq channels (cdr channels)))))
(defun riece-handle-kick-message (prefix string)
1.2 +1 -2 XEmacs/packages/xemacs-packages/riece/lisp/riece-irc.el
Index: riece-irc.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-irc.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- riece-irc.el 2004/09/05 09:04:19 1.1
+++ riece-irc.el 2005/03/20 09:11:23 1.2
＠＠ -69,8 +69,7 ＠＠
(quit
(if (equal server-name "")
(message "Password: Quit")
- (message (format "Password for %s: Quit"
- server-name)))
+ (message "Password for %s: " server-name))
'quit)))
(setq riece-reconnect-with-password nil)))
(if (eq password 'quit)
1.5 +1 -1 XEmacs/packages/xemacs-packages/riece/lisp/riece-keyword.el
Index: riece-keyword.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-keyword.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- riece-keyword.el 2004/09/05 09:04:19 1.4
+++ riece-keyword.el 2005/03/20 09:11:23 1.5
＠＠ -61,7 +61,7 ＠＠
'((((class color))
(:foreground "red" :underline t))
(t
- ()))
+ (:underline t)))
"Face used for highlightening matching keyword."
:group 'riece-highlight-faces)
(defvar riece-keyword-face 'riece-keyword-face)
1.4 +2 -2 XEmacs/packages/xemacs-packages/riece/lisp/riece-layout.el
Index: riece-layout.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-layout.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- riece-layout.el 2004/09/05 09:04:19 1.3
+++ riece-layout.el 2005/03/20 09:11:23 1.4
＠＠ -49,8 +49,8 ＠＠
"An alist mapping the names to layout functions.
An element of this alist is either in the following forms:
-(NAME CONFIGURE-FUNCTION [PARAMETERS])
-(NAME1 . NAME2)
+\(NAME CONFIGURE-FUNCTION [PARAMETERS]\)
+\(NAME1 . NAME2\)
In the first form, NAME is a string which specifies the layout
setting, and CONFIGURE-FUNCTION is a function which does window
1.6 +159 -46 XEmacs/packages/xemacs-packages/riece/lisp/riece-log.el
Index: riece-log.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-log.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- riece-log.el 2004/12/05 04:13:00 1.5
+++ riece-log.el 2005/03/20 09:11:23 1.6
＠＠ -1,7 +1,9 ＠＠
;;; riece-log.el --- saving irc logs add-on
;; Copyright (C) 2003 OHASHI Akira
+;; Copyright (C) 2004 Daiki Ueno
;; Author: OHASHI Akira <bg66(a)koka-in.org>
+;; Daiki Ueno <ueno(a)unixuser.org>
;; Keywords: IRC, riece
;; This file is part of Riece.
＠＠ -53,7 +55,8 ＠＠
"*If non-nil, irc messages flash back from log files.
If integer, flash back only this line numbers. t means all lines."
:type '(choice (integer :tag "line numbers")
- (boolean :tag "flash back or not"))
+ (const t :tag "of the day")
+ (const nil :tag "no flashback"))
:group 'riece-log)
(defcustom riece-log-coding-system nil
＠＠ -61,11 +64,35 ＠＠
:type 'symbol
:group 'riece-log)
+(defcustom riece-log-file-name-coding-system
+ (if (boundp 'file-name-coding-system)
+ file-name-coding-system)
+ "*Coding system used for filenames of log files."
+ :type 'symbol
+ :group 'riece-log)
+
(defcustom riece-log-open-directory-function 'find-file
"*Function for opening a directory."
:type 'function
:group 'riece-log)
+(defface riece-log-date-face
+ '((((class color)
+ (background dark))
+ (:foreground "Gray70"))
+ (((class color)
+ (background light))
+ (:foreground "DimGray"))
+ (t
+ (:bold t)))
+ "Face used for displaying \"(YYYY/MM/dd)\" extent."
+ :group 'riece-highlight-faces)
+(defvar riece-log-date-face 'riece-log-date-face)
+
+(defvar riece-log-lock-file nil
+ "Lock file for riece-log.
+It is created if there is at least one instance of Emacs running riece-log.")
+
(defvar riece-log-enabled nil)
(defconst riece-log-description
＠＠ -74,65 +101,144 ＠＠
(defun riece-log-display-message-function (message)
(if riece-log-enabled
(let ((file (riece-log-get-file (riece-message-target message)))
- (coding-system-for-write riece-log-coding-system))
+ (coding-system-for-write riece-log-coding-system)
+ file-name-coding-system
+ default-file-name-coding-system)
(unless (file-directory-p (file-name-directory file))
(make-directory (file-name-directory file) t))
(write-region (concat (format-time-string "%H:%M") " "
(riece-format-message message))
- nil file t 0))))
+ nil file t 0
+ riece-log-lock-file))))
(defun riece-log-get-file (identity)
(expand-file-name
- (concat (format-time-string "%Y%m%d") ".log")
+ (concat (format-time-string "%Y%m%d") ".txt")
(riece-log-get-directory identity)))
+(defun riece-log-get-files (identity)
+ (let ((directory (riece-log-get-directory identity)))
+ (if (file-directory-p directory)
+ (nreverse (sort (directory-files directory t
+ (concat "^"
+ (riece-make-interval-regexp "[0-9]" 8)
+ "\\.txt$")
+ t)
+ #'string-lessp)))))
+
(defun riece-log-get-directory (identity)
- (let ((channel (riece-identity-canonicalize-prefix
- (riece-identity-prefix identity)))
+ (let ((prefix (riece-identity-canonicalize-prefix
+ (riece-identity-prefix identity)))
(server (riece-identity-server identity))
- (map (assoc (riece-format-identity identity) riece-log-directory-map))
- name)
- (cond (map (setq name (cdr map)))
- ((string-match riece-strict-channel-regexp channel)
- (let ((suffix (match-string 2 channel)))
- (setq name (substring channel (match-end 1) (match-beginning 2)))
- (when (and (stringp suffix)
- (string-match "^:\\*\\.\\(.*\\)" suffix))
- (setq name (concat name "-" (match-string 1 suffix))))))
- (t (setq name "priv")))
- (if server
- (expand-file-name name (expand-file-name server riece-log-directory))
- (expand-file-name name riece-log-directory))))
+ (map (assoc (riece-format-identity identity) riece-log-directory-map)))
+ (if map
+ (expand-file-name (cdr map) riece-log-directory)
+ (expand-file-name (riece-log-encode-file-name prefix)
+ (expand-file-name
+ (concat "." (riece-log-encode-file-name server))
+ riece-log-directory)))))
+
+(defun riece-log-encode-file-name (file-name)
+ (if riece-log-file-name-coding-system
+ (setq file-name
+ (encode-coding-string file-name
+ riece-log-file-name-coding-system)))
+ (let ((index 0)
+ c)
+ (while (string-match "[^-0-9A-Za-z_\x80-\xFF]" file-name index)
+ (setq c (aref file-name (match-beginning 0)))
+ (if (eq c ?=)
+ (setq file-name (replace-match "==" nil t file-name)
+ index (1+ (match-end 0)))
+ (setq file-name (replace-match (format "=%02X" c) nil t file-name)
+ index (+ 2 (match-end 0)))))
+ file-name))
+
+(defun riece-log-decode-file-name (file-name)
+ (let ((index 0))
+ (while (string-match "==\\|=\\([0-7][0-9A-F]\\)" file-name index)
+ (setq file-name (replace-match
+ (if (eq (aref file-name (1- (match-end 0))) ?=)
+ "="
+ (char-to-string
+ (car (read-from-string
+ (concat "?\\x" (match-string 1 file-name))))))
+ nil t file-name)
+ index (1+ (match-beginning 0))))
+ file-name)
+ (if riece-log-file-name-coding-system
+ (setq file-name
+ (decode-coding-string file-name
+ riece-log-file-name-coding-system)))
+ file-name)
+
+(defun riece-log-insert (identity lines)
+ "Insert logs for IDENTITY at most LINES.
+If LINES is t, insert today's logs entirely."
+ (if (eq lines t)
+ (let* (file-name-coding-system
+ default-file-name-coding-system
+ (file (riece-log-get-file identity)))
+ (if (file-exists-p file)
+ (insert-file-contents file)))
+ (let* (file-name-coding-system
+ default-file-name-coding-system
+ (files (riece-log-get-files identity))
+ (lines (- lines))
+ name date point)
+ (while (and (< lines 0) files)
+ (if (and (file-exists-p (car files))
+ (string-match (concat (riece-make-interval-regexp "[0-9]" 8)
+ "\\.txt$")
+ (setq name (file-name-nondirectory
+ (car files)))))
+ (save-restriction
+ (narrow-to-region (point) (point))
+ (insert-file-contents (car files))
+ (goto-char (point-max))
+ (setq lines (forward-line lines))
+ (delete-region (point-min) (point))
+ (unless (equal name (format-time-string "%Y%m%d.txt"))
+ (setq date (concat " (" (substring name 0 4) "/"
+ (substring name 4 6) "/"
+ (substring name 6 8) ")"))
+ (while (not (eobp))
+ (end-of-line)
+ (setq point (point))
+ (insert date)
+ (put-text-property point (point)
+ 'riece-overlay-face 'riece-log-date-face)
+ (forward-line))
+ (goto-char (point-min)))))
+ (setq files (cdr files))))))
(defun riece-log-flashback (identity)
(when riece-log-flashback
- (let ((file (riece-log-get-file identity)))
- (when (file-exists-p file)
- (let (string)
- (with-temp-buffer
- (insert-file-contents file)
- (if (not (integerp riece-log-flashback))
- (goto-char (point-min))
- (goto-char (point-max))
- (forward-line (- riece-log-flashback)))
- (setq string (buffer-substring (point) (point-max))))
- (let (buffer-read-only)
- (goto-char (point-max))
- (insert string)
- (goto-char (point-min))
- (while (re-search-forward
- "^[0-9][0-9]:[0-9][0-9] [<>]\\([^<>]+\\)[<>] " nil
t)
- (put-text-property (match-beginning 1) (match-end 1)
- 'riece-identity
- (riece-make-identity
- (riece-match-string-no-properties 1)
- (riece-identity-server identity))))
- (when (and (memq 'riece-button riece-addons)
- riece-button-enabled)
- (riece-button-update-buffer))
- (goto-char (point-max))
- (set-window-point (get-buffer-window (current-buffer))
- (point))))))))
+ (riece-insert-info (current-buffer)
+ (if (eq riece-log-flashback t)
+ "Recent messages of the day:\n"
+ (format "Recent messages up to %d lines:\n"
+ riece-log-flashback)))
+ (let (buffer-read-only
+ (point (goto-char (point-max))))
+ (insert (with-temp-buffer
+ (riece-log-insert identity riece-log-flashback)
+ (buffer-string)))
+ (goto-char point)
+ (while (re-search-forward
+ (concat "^" riece-time-prefix-regexp
+
"\\(<[^>]+>\\|>[^<]+<\\|([^)]+)\\|{[^}]+}\\|=[^=]+=\\)")
+ nil t)
+ (put-text-property (1+ (match-beginning 1)) (1- (match-end 1))
+ 'riece-identity
+ (riece-make-identity
+ (buffer-substring (1+ (match-beginning 1))
+ (1- (match-end 1)))
+ (riece-identity-server identity))))
+ (run-hook-with-args 'riece-after-insert-functions
+ point (goto-char (point-max)))
+ (set-window-point (get-buffer-window (current-buffer))
+ (point)))))
(defun riece-log-open-directory (&optional channel)
(interactive)
＠＠ -147,6 +253,13 ＠＠
'(riece-button)))
(defun riece-log-insinuate ()
+ (make-directory riece-log-directory t)
+ (setq riece-log-lock-file
+ (expand-file-name (format "!%s-%d-%d"
+ (riece-log-encode-file-name (system-name))
+ (user-uid)
+ (emacs-pid))
+ riece-log-directory))
;; FIXME: Use `riece-after-insert-functions' for trapping change,
;; notice, wallops and so on. But must add argument.
(add-hook 'riece-after-display-message-functions
1.3 +4 -0 XEmacs/packages/xemacs-packages/riece/lisp/riece-menu.el
Index: riece-menu.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-menu.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- riece-menu.el 2004/09/05 09:04:19 1.2
+++ riece-menu.el 2005/03/20 09:11:23 1.3
＠＠ -38,6 +38,7 ＠＠
(defvar riece-menu-items
`("Riece"
["Version" riece-version t]
+ ["Submit Bug Report" riece-submit-bug-report t]
"----"
("Change Window Layout..." :filter riece-menu-create-layouts-menu)
["Toggle Freeze Channel Buffer"
＠＠ -60,6 +61,9 ＠＠
["Set Channel Topic" riece-command-topic riece-current-channel]
["Kick User" riece-command-kick riece-current-channel]
["Invite User" riece-command-invite riece-current-channel]
+ "----"
+ ["Next Channel" riece-command-next-channel riece-current-channels]
+ ["Previous Channel" riece-command-previous-channel
riece-current-channels]
"----"
("Channels" :filter riece-menu-create-channels-menu)
("Servers" :filter riece-menu-create-servers-menu))
1.4 +4 -3 XEmacs/packages/xemacs-packages/riece/lisp/riece-message.el
Index: riece-message.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-message.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- riece-message.el 2004/09/05 09:04:19 1.3
+++ riece-message.el 2005/03/20 09:11:23 1.4
＠＠ -114,7 +114,7 ＠＠
(riece-message-target message))))
(unless (riece-identity-member target riece-current-channels)
(riece-join-channel target)
- ;; If you are not joined any channel,
+ ;; If you are not joined to any channel,
;; switch to the target immediately.
(unless riece-current-channel
(riece-switch-to-channel target)))
＠＠ -174,13 +174,14 ＠＠
(setq parent-buffers (riece-message-parent-buffers message buffer))
(riece-insert buffer (riece-format-message message))
(riece-insert parent-buffers (riece-format-message message t))
- (run-hook-with-args 'riece-after-display-message-functions message)))
+ (with-current-buffer buffer
+ (run-hook-with-args 'riece-after-display-message-functions message))))
(defun riece-display-message (message)
"Display MESSAGE object."
(let ((functions riece-message-filter-functions))
(setq message (copy-sequence message))
- (while functions
+ (while (and functions message)
(setq message (funcall (car functions) message)
functions (cdr functions)))
(if message
1.5 +9 -3 XEmacs/packages/xemacs-packages/riece/lisp/riece-misc.el
Index: riece-misc.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-misc.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- riece-misc.el 2004/12/05 04:13:01 1.4
+++ riece-misc.el 2005/03/20 09:11:23 1.5
＠＠ -223,11 +223,17 ＠＠
(riece-with-server-buffer server-name
(let (identities)
(mapatoms
- (lambda (atom)
+ (lambda (channel)
(setq identities
- (cons (riece-make-identity (symbol-name atom) server-name)
+ (cons (riece-make-identity (symbol-name channel) server-name)
identities)))
- riece-obarray)
+ riece-channel-obarray)
+ (mapatoms
+ (lambda (user)
+ (setq identities
+ (cons (riece-make-identity (symbol-name user) server-name)
+ identities)))
+ riece-user-obarray)
identities)))
(defun riece-check-channel-commands-are-usable (&optional channel)
1.5 +20 -10 XEmacs/packages/xemacs-packages/riece/lisp/riece-options.el
Index: riece-options.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-options.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- riece-options.el 2004/12/05 04:13:01 1.4
+++ riece-options.el 2005/03/20 09:11:24 1.5
＠＠ -114,7 +114,12 ＠＠
riece-button
riece-menu
riece-icon
- riece-ignore)
+ riece-ignore
+ riece-log
+ riece-toolbar
+ riece-alias
+ riece-ctlseq
+ riece-keyword)
"Add-ons insinuated into Riece."
:type '(repeat symbol)
:group 'riece-options)
＠＠ -194,8 +199,7 ＠＠
(const :tag "No" nil))
:group 'riece-server)
-(defcustom riece-username (or (getenv "IRCNAME")
- (user-real-login-name))
+(defcustom riece-username nil
"Your user name."
:type 'string
:group 'riece-server)
＠＠ -269,6 +273,12 ＠＠
:type '(string :tag "Quit message")
:group 'riece-options)
+(defcustom riece-part-message nil
+ "Default part message."
+ :type '(choice (const :tag "No message" nil)
+ (string :tag "Part message"))
+ :group 'riece-options)
+
(defcustom riece-away-message "Gone"
"Default away message."
:type '(string :tag "Away message")
＠＠ -279,7 +289,7 ＠＠
:type 'boolean
:group 'riece-options)
-(defcustom riece-buffer-dispose-function #'bury-buffer
+(defcustom riece-buffer-dispose-function #'kill-buffer
"Function called after the buffer was disposed."
:type 'function
:group 'riece-options)
＠＠ -289,15 +299,15 ＠＠
:type 'integer
:group 'riece-options)
-(defcustom riece-shrink-buffer-remove-lines 10
- "Number of lines removed when shrinking channel buffers."
- :type 'integer
- :group 'riece-options)
-
-(defcustom riece-max-buffer-size 65535
+(defcustom riece-max-buffer-size nil
"Maximum size of channel buffers."
:type '(radio (integer :tag "Number of characters")
(const nil))
+ :group 'riece-options)
+
+(defcustom riece-shrink-buffer-remove-chars (/ riece-max-send-size 2)
+ "Number of chars removed when shrinking channel buffers."
+ :type 'integer
:group 'riece-options)
(defcustom riece-format-time-function #'current-time-string
1.6 +6 -2 XEmacs/packages/xemacs-packages/riece/lisp/riece-server.el
Index: riece-server.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-server.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- riece-server.el 2004/12/05 04:13:01 1.5
+++ riece-server.el 2005/03/20 09:11:24 1.6
＠＠ -259,13 +259,17 ＠＠
(setq riece-send-size 0)
(make-local-variable 'riece-last-send-time)
(setq riece-last-send-time '(0 0 0))
- (make-local-variable 'riece-obarray)
- (setq riece-obarray (make-vector riece-obarray-size 0))
+ (make-local-variable 'riece-user-obarray)
+ (setq riece-user-obarray (make-vector riece-user-obarray-size 0))
+ (make-local-variable 'riece-channel-obarray)
+ (setq riece-channel-obarray (make-vector riece-channel-obarray-size 0))
(make-local-variable 'riece-coding-system)
(buffer-disable-undo)
(erase-buffer)))
(defun riece-close-server-process (process)
+ (with-current-buffer (process-buffer process)
+ (run-hooks 'riece-after-close-hook))
(kill-buffer (process-buffer process))
(setq riece-server-process-alist
(delq (rassq process riece-server-process-alist)
1.3 +11 -16 XEmacs/packages/xemacs-packages/riece/lisp/riece-signal.el
Index: riece-signal.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-signal.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- riece-signal.el 2004/09/05 09:04:19 1.2
+++ riece-signal.el 2005/03/20 09:11:24 1.3
＠＠ -30,6 +30,7 ＠＠
;;; Code:
(require 'riece-options)
+(require 'riece-debug)
(defvar riece-signal-slot-obarray
(make-vector 31 0))
＠＠ -103,22 +104,16 ＠＠
(setq signal (riece-make-signal signal-name args)
slots (symbol-value symbol))
(while slots
- (condition-case error
- (if (or (null (riece-slot-filter (car slots)))
- (condition-case error
- (funcall (riece-slot-filter (car slots)) signal)
- (error
- (if riece-debug
- (message
- "Error in signal filter for \"%S\": %S"
- signal-name error)))
- nil))
- (funcall (riece-slot-function (car slots))
- signal (riece-slot-handback (car slots))))
- (error
- (if riece-debug
- (message "Error in slot function for \"%S\": %S"
- signal-name error))))
+ (if (or (null (riece-slot-filter (car slots)))
+ (riece-funcall-ignore-errors (format "signal filter for \"%S\""
+ signal-name)
+ (riece-slot-filter (car slots))
+ signal))
+ (riece-funcall-ignore-errors (format "slot function for
\"%S\""
+ signal-name)
+ (riece-slot-function (car slots))
+ signal
+ (riece-slot-handback (car slots))))
(setq slots (cdr slots))))))
(provide 'riece-signal)
1.5 +3 -2 XEmacs/packages/xemacs-packages/riece/lisp/riece-unread.el
Index: riece-unread.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-unread.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- riece-unread.el 2004/09/05 09:04:19 1.4
+++ riece-unread.el 2005/03/20 09:11:24 1.5
＠＠ -88,8 +88,9 ＠＠
(defun riece-unread-after-switch-to-channel-function (last)
(if riece-unread-enabled
(setq riece-unread-channels
- (delete riece-current-channel
- riece-unread-channels))))
+ (delq (car (riece-identity-member riece-current-channel
+ riece-unread-channels))
+ riece-unread-channels))))
(defun riece-unread-format-identity-for-channel-list-buffer (index identity)
(if (and riece-unread-enabled
1.3 +7 -7 XEmacs/packages/xemacs-packages/riece/lisp/riece-user.el
Index: riece-user.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-user.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- riece-user.el 2004/05/05 01:37:25 1.2
+++ riece-user.el 2005/03/20 09:11:24 1.3
＠＠ -30,7 +30,7 ＠＠
(defun riece-find-user (name)
"Get a user object named NAME from the server buffer."
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix name)
- riece-obarray)))
+ riece-user-obarray)))
(if symbol
(symbol-value symbol))))
＠＠ -38,19 +38,19 ＠＠
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix name))))
(when symbol
(makunbound symbol)
- (unintern (symbol-name symbol) riece-obarray))))
+ (unintern (symbol-name symbol) riece-user-obarray))))
(defun riece-rename-user (old-name new-name)
(unless (equal (riece-identity-canonicalize-prefix old-name)
(riece-identity-canonicalize-prefix new-name))
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix old-name)
- riece-obarray)))
+ riece-user-obarray)))
(when symbol
(set (intern (riece-identity-canonicalize-prefix new-name)
- riece-obarray)
+ riece-user-obarray)
(symbol-value symbol))
(makunbound symbol)
- (unintern (symbol-name symbol) riece-obarray)))))
+ (unintern (symbol-name symbol) riece-user-obarray)))))
(defun riece-make-user (channels user-at-host modes away operator)
"Make an instance of user object.
＠＠ -60,11 +60,11 ＠＠
(defun riece-get-user (name)
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix name)
- riece-obarray)))
+ riece-user-obarray)))
(if symbol
(symbol-value symbol)
(set (intern (riece-identity-canonicalize-prefix name)
- riece-obarray)
+ riece-user-obarray)
(riece-make-user nil nil nil nil nil)))))
(defun riece-user-channels (user)
1.6 +18 -18 XEmacs/packages/xemacs-packages/riece/lisp/riece-version.el
Index: riece-version.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-version.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- riece-version.el 2004/12/05 04:13:01 1.5
+++ riece-version.el 2005/03/20 09:11:24 1.6
＠＠ -48,14 +48,16 ＠＠
(defconst riece-product-name "Riece")
-(defconst riece-version-number "1.0.6"
+(defconst riece-version-number "1.0.8"
"Version number for this version of Riece.")
(defconst riece-version (format "Riece v%s" riece-version-number)
"Version string for this version of Riece.")
(eval-when-compile
- (defvar xemacs-codename))
+ (defvar emacs-program-version)
+ (defvar xemacs-codename)
+ (defvar sxemacs-codename))
(defun riece-extended-version ()
"Stringified Riece version and Emacs version.
＠＠ -79,22 +81,20 ＠＠
(if system-v
(concat " (" system-v ")")
"")))
- ((string-match
- "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
- emacs-version)
- (concat
- (match-string 1 emacs-version)
- (format "/%d.%d" emacs-major-version emacs-minor-version)
- (if (match-beginning 3)
- (match-string 3 emacs-version)
- "")
- (if (boundp 'xemacs-codename)
- (concat
- " (" xemacs-codename
- (if system-v
- (concat ", " system-v ")")
- ")"))
- "")))
+ ((featurep 'sxemacs)
+ (concat "SXEmacs/" emacs-program-version
+ (when system-v
+ (concat " ("
+ (when sxemacs-codename
+ (concat sxemacs-codename ", "))
+ system-v ")"))))
+ ((featurep 'xemacs)
+ (concat "XEmacs/" emacs-program-version
+ (when system-v
+ (concat " ("
+ (when xemacs-codename
+ (concat xemacs-codename ", "))
+ system-v ")"))))
(t emacs-version))))
(if (stringp riece-user-agent)
riece-user-agent
1.7 +2 -0 XEmacs/packages/xemacs-packages/riece/lisp/riece-xemacs.el
Index: riece-xemacs.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-xemacs.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- riece-xemacs.el 2004/12/05 04:13:01 1.6
+++ riece-xemacs.el 2005/03/20 09:11:24 1.7
＠＠ -122,6 +122,8 ＠＠
(set-extent-properties extent properties)
(cons extent string)))
+(defalias 'riece-normalize-modeline-string 'identity)
+
(defalias 'riece-facep 'find-face)
(defun riece-put-text-property-nonsticky (start end prop value
1.6 +15 -8 XEmacs/packages/xemacs-packages/riece/lisp/riece.el
Index: riece.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- riece.el 2004/12/05 04:13:02 1.5
+++ riece.el 2005/03/20 09:11:24 1.6
＠＠ -58,7 +58,8 ＠＠
(riece-dialogue-buffer "*Dialogue*" riece-dialogue-mode)
(riece-others-buffer "*Others*" riece-others-mode)
(riece-channel-list-buffer "*Channels*" riece-channel-list-mode)
- (riece-user-list-buffer " *Users*" riece-user-list-mode)))
+ (riece-user-list-buffer " *Users*" riece-user-list-mode)
+ (riece-temp-buffer " *Temp*")))
(defvar riece-shrink-buffer-idle-timer nil
"Timer object to periodically shrink channel buffers.")
＠＠ -184,7 +185,8 ＠＠
"r" riece-command-configure-windows
"x" riece-command-copy-region
"t" riece-command-topic
- "w" riece-command-who)
+ "w" riece-command-who
+ "z" riece-command-suspend-resume)
(riece-define-keys riece-command-mode-map
"\r" riece-command-enter-message
＠＠ -275,6 +277,9 ＠＠
(run-hooks 'riece-after-load-startup-hook)
(if (riece-server-opened)
(riece-command-configure-windows)
+ (modify-frame-parameters (selected-frame)
+ (list (cons 'riece-window-configuration
+ (current-window-configuration))))
(unless riece-addons-insinuated
(setq riece-addons (riece-resolve-addons riece-addons))
(let ((pointer riece-addons))
＠＠ -337,15 +342,15 ＠＠
(while (> (buffer-size) riece-max-buffer-size)
(let* ((inhibit-read-only t)
buffer-read-only
- (start (point))
- (end (progn (beginning-of-line
- (1+ riece-shrink-buffer-remove-lines))
- (point)))
- (overlays (riece-overlays-in start end)))
+ (end (progn
+ (goto-char riece-shrink-buffer-remove-chars)
+ (beginning-of-line 2)
+ (point)))
+ (overlays (riece-overlays-in (point-min) end)))
(while overlays
(riece-delete-overlay (car overlays))
(setq overlays (cdr overlays)))
- (delete-region start end)))))
+ (delete-region (point-min) end)))))
(defun riece-exit ()
(if riece-save-variables-are-dirty
＠＠ -370,6 +375,8 ＠＠
riece-operator-indicator "-"
riece-channel-status-indicator "-"
riece-freeze-indicator "-")
+ (modify-frame-parameters (selected-frame)
+ (list (list 'riece-window-configuration)))
(delete-other-windows)
(run-hooks 'riece-exit-hook))
1.1
XEmacs/packages/xemacs-packages/riece/lisp/riece-command-next-channel.xpm
Index: riece-command-next-channel.xpm
===================================================================
/* XPM */
static char * right_xpm[] = {
"32 32 32 1",
" c #000200",
". c #090A06",
"+ c #111310",
"＠ c #191A18",
"# c #212220",
"$ c #282827",
"% c #2E2F2E",
"& c #363835",
"* c #3E403D",
"= c #464845",
"- c #4D4E4C",
"; c #535453",
"> c #5B5D5A",
", c #636562",
"' c #6A6C6A",
") c #828100",
"! c #747573",
"~ c #8A8903",
"{ c #7C7D7B",
"] c #939214",
"^ c #9A970C",
"/ c #9EA119",
"( c #A9AB27",
"_ c #B4B532",
": c #C1C13F",
"< c #CDCD4B",
"[ c #D8D855",
"} c #CACCC9",
"| c #E3E25F",
"1 c #F0EE6B",
"2 c #FDFA77",
"3 c #FEFFFC",
" ",
" ",
" ",
" ",
" ",
" } ",
" },} ",
" }>'} ",
" }>>;} ",
" };,;;} ",
" }}}}}}}}}}}}}}}}}}[;>;;} ",
" }[<[<;;;;<<<[;;;;[<<<;;;;} ",
" };<<<<---;<<<<----<<<<---;} ",
" }=-<<<:-=--:<:<==--<<<:----} ",
" }***::::=*==::::=**=::::***-} ",
" }*=*=::::****::::=***::::****}",
" }:****:_::****:_::****::::***}",
" }__&&*%:___&&&&____&&*%____&} ",
" }___%&&&____&&&&____%&&&___} ",
" }(___%%%%(___%%%%(___%&%%(} ",
" }%(((_%%%%((((%%%%((((%%%} ",
" }}}}}}}}}}}}}}}}}}(((($} ",
" }#/](} ",
" }#$]} ",
" }＠#} ",
" }＠} ",
" } ",
" ",
" ",
" ",
" ",
" "};
1.1
XEmacs/packages/xemacs-packages/riece/lisp/riece-command-previous-channel.xpm
Index: riece-command-previous-channel.xpm
===================================================================
/* XPM */
static char * left_xpm[] = {
"32 32 33 1",
" c None",
". c #000200",
"+ c #090A06",
"＠ c #111310",
"# c #191A18",
"$ c #212220",
"% c #282827",
"& c #2E2F2E",
"* c #363835",
"= c #3E403D",
"- c #464845",
"; c #4D4E4C",
"> c #535453",
", c #5B5D5A",
"' c #636562",
") c #6A6C6A",
"! c #828100",
"~ c #747573",
"{ c #8A8903",
"] c #7C7D7B",
"^ c #939214",
"/ c #9A970C",
"( c #9EA119",
"_ c #A9AB27",
": c #B4B532",
"< c #C1C13F",
"[ c #CDCD4B",
"} c #D8D855",
"| c #CACCC9",
"1 c #E3E25F",
"2 c #F0EE6B",
"3 c #FDFA77",
"4 c #FEFFFC",
" ",
" ",
" ",
" ",
" ",
" | ",
" |)| ",
" |11| ",
" |111| ",
" |>>}}| ",
" |>,>>}|||||||||||||||||| ",
" |}[>>>>[[[}>>>>}[[[>>>>[[| ",
" |[[[[;;;>[[[[;;;;[[[[;;;>[| ",
" |-;[[[<;-;;<[<[--;;[[[<;;;;| ",
" |-===<<<<-=--<<<<-==-<<<<===| ",
"|<<=-=-<<<<====<<<<-===<<<<==| ",
"|:<<====<:<<====<:<<====<<<<=| ",
" |:::**=&<:::****::::**=&::::| ",
" |:::&***::::****::::&***:::| ",
" |:::&&&&_:::&&&&_:::&*&&_:|
",
" |__:&&&&____&&&&____&&&&_|
",
" |___%%|||||||||||||||||| ",
" |/__%| ",
" |^/^| ",
" |(^| ",
" |(| ",
" | ",
" ",
" ",
" ",
" ",
" "};
1.1 XEmacs/packages/xemacs-packages/riece/lisp/riece-debug.el
Index: riece-debug.el
===================================================================
;;; riece-debug.el --- debug support
;; Copyright (C) 1998-2005 Daiki Ueno
;; Author: Daiki Ueno <ueno(a)unixuser.org>
;; Created: 1998-09-28
;; Keywords: IRC, riece
;; This file is part of Riece.
;; 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.
;;; Code:
(require 'riece-globals)
(require 'riece-options)
(defun riece-debug-reset-standard-output ()
"Reset `riece-temp-buffer' to be used as `standard-output'."
(save-excursion
(set-buffer riece-temp-buffer)
(buffer-disable-undo)
(erase-buffer)))
(defmacro riece-debug-with-backtrace (&rest body)
"Execute BODY and send a backtrace to `riece-temp-buffer'."
`(unwind-protect
(progn ,＠body)
(riece-debug-reset-standard-output)
(let ((standard-output riece-temp-buffer))
(backtrace))))
(put 'riece-debug-with-backtrace 'lisp-indent-function 0)
(put 'riece-debug-with-backtrace 'edebug-form-spec '(form body))
(defmacro riece-ignore-errors (location &rest body)
"Execute BODY; if an error occurs, return nil.
Otherwise, return result of last FORM.
If `riece-debug' is non-nil and an error occurred, it sends a
backtrace to standard-output."
`(condition-case error
(if riece-debug
(riece-debug-with-backtrace ,＠body)
,＠body)
(error
(if riece-debug
(save-excursion
(set-buffer riece-temp-buffer)
(goto-char (point-min))
(if (re-search-forward "^ signal(" nil t)
(delete-region (point-min) (match-beginning 0)))
(message "Error in `%s': %S\n%s" ,location error (buffer-string))))
nil)))
(put 'riece-ignore-errors 'lisp-indent-function 1)
(put 'riece-ignore-errors 'edebug-form-spec '(form body))
(defun riece-funcall-ignore-errors (location function &rest args)
"Call FUNCTION with ARGS; if an error occurs, return nil.
Otherwise, return result of the function.
If `riece-debug' is non-nil and an error occurred, it sends a
backtrace to standard-output."
(riece-ignore-errors location
(apply function args)))
(provide 'riece-debug)
;;; riece-debug.el ends here
1.1 XEmacs/packages/xemacs-packages/riece/lisp/riece-eval.el
Index: riece-eval.el
===================================================================
;;; riece-eval.el --- eval add-on
;; Copyright (C) 2005 OHASHI Akira
;; Author: OHASHI Akira <bg66(a)koka-in.org>
;; Keywords: IRC, riece
;; This file is part of Riece.
;; 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:
;; This add-on evaluates an input string as lisp object and sends a result
;; as notice. Note the risky of this add-on.
;; To use, add the following line to your ~/.riece/init.el:
;; (add-to-list 'riece-addons 'riece-eval)
;;; Code:
(require 'pp)
(require 'riece-message)
(defgroup riece-eval nil
"Evaluate an input string as lisp object."
:prefix "riece-"
:group 'riece)
(defcustom riece-eval-regexp "^, \\(.+\\)"
"*Pattern of string evaluating."
:type 'string
:group 'riece-eval)
(defcustom riece-eval-ignore-error nil
"*If non-nil, an error is ignored."
:type 'boolean
:group 'riece-eval)
(defvar riece-eval-enabled nil)
(defconst riece-eval-description
"Evaluate an input string as lisp object.")
(defun riece-eval-display-message-function (message)
(when (and riece-eval-enabled
(riece-message-own-p message)
(string-match riece-eval-regexp (riece-message-text message)))
(let* ((form (match-string 1 (riece-message-text message)))
(string (riece-eval-form form)))
(unless (equal string "")
(riece-send-string
(format "NOTICE %s :%s\r\n"
(riece-identity-prefix (riece-message-target message))
string))
(riece-display-message
(riece-make-message (riece-current-nickname)
(riece-message-target message)
string 'notice))))))
(defun riece-eval-form (form)
(condition-case err
(let ((object (eval (read form))))
(cond
((stringp object) object)
((and (listp object)
(not (eq object nil)))
(let ((string (pp-to-string object)))
(substring string 0 (1- (length string)))))
((numberp object)
(number-to-string object))
((eq object nil) "")
(t (pp-to-string object))))
(error
(unless riece-eval-ignore-error
(format "Error evaluating %s: %s" form err)))))
(defun riece-eval-insinuate ()
(add-hook 'riece-after-display-message-functions
'riece-eval-display-message-function))
(defun riece-eval-enable ()
(setq riece-eval-enabled t))
(defun riece-eval-disable ()
(setq riece-eval-enabled nil))
(provide 'riece-eval)
;;; riece-eval.el ends here
1.1 XEmacs/packages/xemacs-packages/riece/lisp/riece-google.el
Index: riece-google.el
===================================================================
;;; riece-google.el --- Interface to Google API
;; Copyright (C) 2005 OHASHI Akira
;; Author: OHASHI Akira <bg66(a)koka-in.org>
;; SASADA Koichi <ko1 at atdot.net>
;; Keywords: IRC, riece
;; This file is part of Riece.
;; 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:
;; This add-on searches keywords by Google.
;; Ruby code was stolen (and modified) from nadoka.
;; To use, add the following line to your ~/.riece/init.el:
;; (add-to-list 'riece-addons 'riece-google)
;;; Code:
(require 'riece-message)
(defgroup riece-google nil
"Interface to Google API."
:prefix "riece-"
:group 'riece)
(defcustom riece-google-ruby-command "ruby"
"Command name for Ruby interpreter."
:type 'string
:group 'riece-google)
(defcustom riece-google-program
'("\
# Copyright (c) 2004 SASADA Koichi <ko1 at atdot.net>
#
# This program is free software with ABSOLUTELY NO WARRANTY.
# You can re-distribute and/or modify this program under
# the same terms of the Ruby's lisence.
require 'soap/wsdlDriver'
require 'iconv'
require 'kconv'
require 'cgi'
keywords = '" keywords "'
max_results = " max-results "
license_key = '" license-key "'
default_lang = '" lang "'
google_wsdl = 'http://api.google.com/GoogleSearch.wsdl'
google = SOAP::WSDLDriverFactory.new(google_wsdl).create_driver
def erace_tag str
CGI.unescapeHTML(str.gsub(/\\<.+?\\>/, ''))
end
def lang_check lang
if lang.empty? || /^lang_/ =~ lang
lang
else
'lang_' + lang
end
end
def show_char_code_and_erace_tag str
case $KCODE
when 'EUC', 'SJIS'
CGI.unescapeHTML(str.gsub(/\\<.+?\\>/, '')).tojis
when 'NONE', 'UTF-8'
begin
str = Iconv.conv(\"EUC-JP\", \"UTF-8\", str)
CGI.unescapeHTML(str.gsub(/\\<.+?\\>/, '')).tojis
rescue => e
\"(char code problem: #{e.class}[#{e.message.dump}])\"
end
else
str
end
end
def search_char_code str
case $KCODE
when 'EUC', 'SJIS'
str.toeuc
when 'NONE'
begin
Iconv.conv(\"UTF-8\", \"EUC-JP\", str.toeuc)
rescue => e
\"(char code problem: #{e.class})\"
end
when 'UTF-8'
str
else
raise
end
end
begin
lang = lang_check(default_lang)
word = search_char_code(keywords)
result = google.doGoogleSearch(
license_key, word, 0, max_results, false, \"\",
false, lang, 'utf-8', 'utf-8'
)
count = result.estimatedTotalResultsCount
if count > 0
word = show_char_code_and_erace_tag(keywords)
count = count.to_s.gsub(/(\\d)(?=\\d{3}+$)/, '\\\\1,')
time = result.searchTime.to_s
print \"Search results for #{word} (Hits: #{count}: Time: #{time}):\\n\"
result.resultElements.each_with_index{|e, i|
title = show_char_code_and_erace_tag(e.title)
url = e.URL
print \"#{title} - #{url}\\n\"
}
else
print \"no match\\n\"
end
rescue Exception => e
print \"#{e.class}(#{e.message})\"
end
")
"Ruby program for searching by Google."
:type 'list
:group 'riece-google)
(defcustom riece-google-license-key nil
"*License key for Google API."
:type 'string
:group 'riece-google)
(defcustom riece-google-default-lang '("lang_en" "lang_ja")
"*Default language for searching keywords."
:type '(repeat (choice (const "lang_en" :tag "English")
(const "lang_ja" :tag "Japanese")
(string :tag "The other language")))
:group 'riece-google)
(defconst riece-google-regexp
"^go\\(o+\\)gle\\(:\\([a-z]+\\)\\)?>\\s-*\\(.*\\)")
(defvar riece-google-enabled nil)
(defconst riece-google-description
"Search keywords by Google.")
(defvar riece-google-target nil)
(defun riece-google-display-message-function (message)
(when (and riece-google-enabled
(stringp riece-google-license-key)
(string-match riece-google-regexp (riece-message-text message)))
(let ((keywords (match-string 4 (riece-message-text message)))
(max-results (number-to-string
(length
(match-string 1 (riece-message-text message)))))
(lang (or (match-string 3 (riece-message-text message))
riece-google-default-lang))
(process-connection-type nil)
selective-display
(coding-system-for-read 'binary)
(coding-system-for-write 'binary)
(process (start-process "Google" (generate-new-buffer "
*Google*")
riece-google-ruby-command)))
(when (listp lang)
(setq lang (mapconcat #'identity lang " ")))
(setq riece-google-target (riece-message-target message))
(process-send-string process
(apply #'concat
(riece-google-substitute-variables
(riece-google-substitute-variables
(riece-google-substitute-variables
(riece-google-substitute-variables
riece-google-program
'keywords keywords)
'max-results max-results)
'license-key riece-google-license-key)
'lang lang)))
(process-send-eof process)
(with-current-buffer (process-buffer process)
(set-buffer-multibyte t)
(erase-buffer)
(set-buffer-modified-p nil))
(set-process-filter process #'riece-google-filter)
(set-process-sentinel process #'riece-google-sentinel))))
(defun riece-google-filter (process output)
(when (buffer-live-p (process-buffer process))
(with-current-buffer (process-buffer process)
(goto-char (point-max))
(insert output)
(goto-char (point-min))
(while (progn (end-of-line) (and (not (eobp)) (eq (char-after) ?\n)))
(if (eq (char-after (1- (point))) ?\r) ; cut off preceding LF
(delete-region (1- (point)) (point)))
(riece-google-send-string riece-google-target
(buffer-substring (point-min) (point)))
(delete-region (point-min) (progn (beginning-of-line 2) (point)))))))
(defun riece-google-sentinel (process string)
(delete-process process))
(defun riece-google-send-string (target message)
(riece-send-string
(format "NOTICE %s :%s\r\n" (riece-identity-prefix target) message))
(riece-display-message
(riece-make-message (riece-current-nickname) target message 'notice)))
(defun riece-google-substitute-variables (program variable value)
(setq program (copy-sequence program))
(let ((pointer program))
(while pointer
(setq pointer (memq variable program))
(if pointer
(setcar pointer value)))
program))
(defun riece-google-insinuate ()
(add-hook 'riece-after-display-message-functions
'riece-google-display-message-function))
(defun riece-google-enable ()
(setq riece-google-enabled t))
(defun riece-google-disable ()
(setq riece-google-enabled nil))
(provide 'riece-google)
;;; riece-google.el ends here
1.1 XEmacs/packages/xemacs-packages/riece/lisp/riece-keepalive.el
Index: riece-keepalive.el
===================================================================
;;; riece-keepalive.el --- keep an IRC connection
;; Copyright (C) 1998-2004 Daiki Ueno
;; Author: Daiki Ueno <ueno(a)unixuser.org>
;; Created: 1998-09-28
;; Keywords: IRC, riece
;; This file is part of Riece.
;; 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:
;; To use, add the following line to your ~/.riece/init.el:
;; (add-to-list 'riece-addons 'riece-keepalive)
;;; Code:
(require 'riece-options)
(defgroup riece-keepalive nil
"Keep an IRC connection."
:prefix "riece-"
:group 'riece)
(defcustom riece-keepalive-ping-repeat 120
"Interval for sending PING to server."
:type 'integer
:group 'riece-keepalive)
(defvar riece-keepalive-timer nil)
(defconst riece-keepalive-description
"Keep an IRC connection.")
(defun riece-keepalive-after-login-hook ()
(make-local-variable 'riece-keepalive-timer)
(unless riece-keepalive-timer
(setq riece-keepalive-timer
(riece-run-at-time
riece-keepalive-ping-repeat riece-keepalive-ping-repeat
(lambda (buffer)
(save-excursion
(set-buffer buffer)
(riece-send-string "PING riece-keepalive\r\n")))
(current-buffer)))))
(defun riece-keepalive-after-close-hook ()
(when riece-keepalive-timer
(riece-cancel-timer riece-keepalive-timer)
(setq riece-keepalive-timer nil)))
(defun riece-keepalive-insinuate ()
(add-hook 'riece-after-login-hook #'riece-keepalive-after-login-hook)
(add-hook 'riece-after-close-hook #'riece-keepalive-after-close-hook))
(provide 'riece-keepalive)
;;; riece-ignore.el ends here
1.1
XEmacs/packages/xemacs-packages/riece/lisp/riece-submit-bug-report.xpm
Index: riece-submit-bug-report.xpm
===================================================================
/* XPM */
static char *bug-buddy[] = {
/* columns rows colors chars-per-pixel */
"32 32 139 2",
" c #1C1D1B",
". c #1E201C",
"X c #20221E",
"o c #262E1F",
"O c #323A12",
"+ c #242522",
"＠ c #272824",
"# c #2A2B26",
"$ c #2C2D29",
"% c #2D3129",
"& c #31342B",
"* c #35392C",
"= c #393C2D",
"- c #343533",
"; c #363833",
": c #3A3B36",
"> c #3A3B39",
", c #3D412E",
"< c #3F4235",
"1 c #3E413A",
"2 c #414532",
"3 c #42443E",
"4 c #464B36",
"5 c #484D36",
"6 c #494E3D",
"7 c #4C5431",
"8 c #4C533A",
"9 c #515A2D",
"0 c #50573D",
"q c #51583F",
"w c #65591F",
"e c #444443",
"r c #444840",
"t c #494C45",
"y c #4B4C4A",
"u c #4C5344",
"i c #505247",
"p c #50544C",
"a c #545B41",
"s c #54584F",
"d c #585B4E",
"f c gray33",
"g c #565951",
"h c #595C54",
"j c #5C5C5C",
"k c #5A6246",
"l c #5C6B4F",
"z c #5C6256",
"x c #606547",
"c c #61664B",
"v c #636B4B",
"b c #616656",
"n c #62655A",
"m c #656854",
"M c #68714D",
"N c #6B7251",
"B c #70735C",
"V c #727955",
"C c #777E59",
"Z c #787D57",
"A c #787D59",
"S c #646464",
"D c #6B6E62",
"F c #6C6C6C",
"G c #717468",
"H c #747473",
"J c #777877",
"K c #787A73",
"L c #7B7B7B",
"P c #7B825B",
"I c #80865E",
"U c #918656",
"Y c #9C954F",
"T c #949658",
"R c #858B63",
"E c #808B68",
"W c #888F65",
"Q c #80817E",
"! c #8E946B",
"~ c #869675",
"^ c #91986D",
"/ c #969C72",
"( c #989F75",
") c #9A9F7A",
"_ c #9CA37A",
"` c #A0A67D",
"' c #A5AA7F",
"] c #838383",
"[ c #878986",
"{ c #8B8C84",
"} c #8C8C8C",
"| c #9A9F89",
" . c #919191",
".. c gray62",
"X. c #A2A588",
"o. c #A4AB84",
"O. c #A1A495",
"+. c #A1A29F",
"＠. c #A8AC91",
"#. c #ACB18B",
"$. c #B0B690",
"%. c #B5B996",
"&. c #B5B99B",
"*. c #B8BC9C",
"=. c #A3A3A3",
"-. c #ACACAC",
";. c #B4B7A3",
":. c #B4B6A8",
">. c #BDBFA5",
",. c #BBBEAC",
"<. c #B3B3B3",
"1. c #BABBB7",
"2. c #BABBBA",
"3. c #BFC1A8",
"4. c #C2C4AC",
"5. c #C5CBAD",
"6. c #CAC6AF",
"7. c #C3C7B1",
"8. c #C5CAB2",
"9. c #C8CCB5",
"0. c #CED1BC",
"q. c #D1D3BE",
"w. c #C3C3C3",
"e. c #CDCDC4",
"r. c #CCCCCC",
"t. c #D2D5C3",
"y. c #D6D8C4",
"u. c #D9D6C4",
"i. c #D9DBC9",
"p. c #D1D1D1",
"a. c #D9D9D7",
"s. c #DCDCDC",
"d. c #E2E2DF",
"f. c #E8E5DA",
"g. c #E3E3E3",
"h. c #ECECEB",
"j. c #F3F3F3",
"k. c #FEFEFE",
"l. c None",
/* pixels */
"l.l.l.l.l.l.l.l.l.l.l.k.k.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.",
"l.l.l.l.l.l.l.l.l.l.k.r.h.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.",
"l.l.l.l.l.l.l.l.l.k.p.] g.k.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.",
"l.l.l.l.l.l.l.l.l.j.} } g.k.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.l.",
"l.l.l.l.l.l.l.l.l.h.J =.g.f.u.8.g.k.k.k.k.l.l.l.k.l.l.l.l.l.l.l.",
"l.l.l.l.l.l.l.l.l.g.j } 2.U Y w J a.e.h.j.k.l.l.h.k.l.l.l.l.l.l.",
"l.l.l.l.l.l.l.l.l.p.e H { c B B u 7 T A r.h.k.r.1.k.l.l.l.l.l.l.",
"l.l.l.l.l.l.l.l.l.r.: K | #.5.8.~ l 9 O L g.h.<.=.k.l.l.l.l.l.l.",
"l.l.l.l.l.l.l.l.l.g.D ;.4.3.%.#.X.P a o H w.g.=.[ j.l.l.l.l.l.l.",
"l.l.l.l.l.l.l.l.k.d.7.9.9.8.3.X._ / C k [ -.-.Q 2.s.k.l.l.l.l.l.",
"l.l.l.l.l.l.k.l.h.q.0.y.y.0.;.h o._ R A G F - J ..r.k.l.l.l.l.l.",
"l.l.l.l.j.p...2.t.9.0.i.i.y.K r #._ W A k + > F -.h.l.l.l.l.l.l.",
"l.l.l.j.=.y 3 n *.4.q.y.i.O.1 s $._ R C x > f ] s.k.l.l.l.l.l.l.",
"l.l.j.-.H ] =.＠.*.4.7.0.,.g t z #._ I V x t S =.h.k.l.l.l.l.l.l.",
"l.l.w.H ..1.:._ #.%.4.4.D > g n ' ! P M k i H 1.h.k.l.l.l.l.l.l.",
"l.l.r.F -.g.X.! _ #.%.X.& t h m / R C M a f Q 1.g.k.l.l.l.l.l.l.",
"l.l.2.J 1.1.P I ! ( ) 8 1 h p m R A M k 8 h [ <.h.j.l.l.l.l.l.l.",
"l.k.a.<.2.G M V P W N ＠ t z u c Z N k 8 4 e ] <.g.j.l.l.l.l.l.l.",
"l.k.j.h.K 2 a v N V % - h g 3 k v k q 5 3 $ > .g.k.l.l.l.l.l.l.",
"l.k.j.w.y 6 8 q k 8 + 1 h p < q a 8 4 2 1 e - f s.j.l.l.l.l.l.l.",
"l.j.s.] ] s 2 5 8 $ # y p 3 * 8 4 4 , = r j j e r.k.l.l.l.l.l.l.",
"l.k.=.H =.n = , * . ; p t 1 % 2 , = & * y F L e -.g.k.l.l.l.l.l.",
"l.k. .j 1.Q % * X > t > $ # * & % % # j Q S S 1.g.l.l.l.l.l.l.",
"l.l. .L r.1.; % X . ; 3 - + # & % % ＠ . j . .-.s.k.l.l.l.l.l.l.",
"l.k.=.w.h.s.H 3 e $ $ + $ $ $ $ $ ＠ S -.s.h.k.l.l.l.l.l.l.l.",
"l.k.g.j.k.h.w.] L y $ $ + $ $ $ $ e e > F 2.j.k.l.l.l.l.l.l.l.l.",
"l.l.l.l.l.j.g.p.-.} H j f - & > j L S S L r.k.l.l.l.l.l.l.l.l.l.",
"l.l.l.l.l.k.k.h.p.1...} F j S H } .S L .r.k.l.l.l.l.l.l.l.l.l.",
"l.l.l.l.l.l.l.k.j.j.s.r.<.<.-.<.<.F S
..1.g.l.l.l.l.l.l.l.l.l.l.",
"l.l.l.l.l.l.l.l.k.j.j.h.g.s.s.s.<.H w.a.h.k.l.l.l.l.l.l.l.l.l.l.",
"l.l.l.l.l.l.l.l.l.l.l.k.k.k.k.j.a.p.k.k.l.l.l.l.l.l.l.l.l.l.l.l.",
"l.l.l.l.l.l.l.l.l.l.l.l.l.l.k.k.j.k.l.l.l.l.l.l.l.l.l.l.l.l.l.l."
};
1.1 XEmacs/packages/xemacs-packages/riece/lisp/riece-toolbar.el
Index: riece-toolbar.el
===================================================================
;;; riece-toolbar.el --- show toolbar icons
;; Copyright (C) 1998-2004 Daiki Ueno
;; Author: Daiki Ueno <ueno(a)unixuser.org>
;; Created: 1998-09-28
;; Keywords: IRC, riece
;; This file is part of Riece.
;; 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:
;; To use, add the following line to your ~/.riece/init.el:
;; (add-to-list 'riece-addons 'riece-toolbar)
;;; Code:
(require 'riece-menu)
(defconst riece-toolbar-description
"Show toolbar icons.")
(defvar riece-toolbar-items
'(riece-command-quit
riece-command-join
riece-command-part
riece-command-previous-channel
riece-command-next-channel
riece-command-change-layout
riece-submit-bug-report))
(defun riece-toolbar-find-menu-item (command)
(let ((pointer riece-menu-items)
item)
(while pointer
(if (and (not (stringp (car pointer)))
(vectorp (car pointer))
(eq (aref (car pointer) 1) command))
(setq item (car pointer)
pointer nil)
(setq pointer (cdr pointer))))
item))
(if (featurep 'xemacs)
(if (featurep 'toolbar)
(progn
(defun riece-make-toolbar-from-menu (items menu-items map)
(let ((pointer items)
toolbar
file
menu-item)
(while pointer
(setq file (locate-file (symbol-name (car pointer))
load-path
'(".xpm" ".pbm" ".xbm"))
menu-item (riece-toolbar-find-menu-item (car pointer)))
(if (and file (file-exists-p file))
(setq toolbar
(toolbar-add-item
toolbar
(toolbar-new-button
file
(car pointer)
(if menu-item
(aref menu-item 0)
(symbol-name (car pointer)))))))
(setq pointer (cdr pointer)))
toolbar))
(defun riece-set-toolbar (toolbar)
(set-specifier default-toolbar toolbar (current-buffer))))
(defalias 'riece-make-toolbar-from-menu 'ignore)
(defalias 'riece-set-toolbar 'ignore))
(defun riece-make-toolbar-from-menu (items menu-items map)
(let ((pointer items)
(tool-bar-map (make-sparse-keymap)))
(while pointer
(tool-bar-add-item-from-menu (car pointer)
(symbol-name (car pointer))
map)
(setq pointer (cdr pointer)))
tool-bar-map))
(defun riece-set-toolbar (toolbar)
(make-local-variable 'tool-bar-map)
(setq tool-bar-map toolbar)))
(defvar riece-command-mode-map)
(defun riece-toolbar-insinuate-in-command-buffer ()
(riece-set-toolbar
(riece-make-toolbar-from-menu
riece-toolbar-items
riece-menu-items
riece-command-mode-map)))
(defun riece-toolbar-requires ()
'(riece-menu))
(defun riece-toolbar-insinuate ()
(add-hook 'riece-command-mode-hook
'riece-toolbar-insinuate-in-command-buffer
t))
(provide 'riece-toolbar)
;;; riece-toolbar.el ends here
1.2 +4 -3 XEmacs/packages/xemacs-packages/riece/lisp/test/Makefile.am
Index: Makefile.am
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/test/Makefile.am,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- Makefile.am 2004/12/05 04:13:06 1.1
+++ Makefile.am 2005/03/20 09:11:36 1.2
＠＠ -1,3 +1,4 ＠＠
-EXTRA_DIST = luna.el lunit.el \
- test-riece-addon.el test-riece-alias.el test-riece-url.el \
- test-riece-yank.el
\ No newline at end of file
+EXTRA_DIST = luna.el lunit.el lunit-report.el \
+ test-riece.el test-riece-addon.el test-riece-alias.el \
+ test-riece-eval.el test-riece-log.el test-riece-url.el \
+ test-riece-yank.el
1.2 +0 -127 XEmacs/packages/xemacs-packages/riece/lisp/test/lunit.el
Index: lunit.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/test/lunit.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- lunit.el 2004/12/05 04:13:06 1.1
+++ lunit.el 2005/03/20 09:11:37 1.2
＠＠ -292,133 +292,6 ＠＠
(length failures)
(length errors))))))
-;; stolen (and renamed) from time-date.el.
-(defun lunit-time-since (time)
- "Return the time elapsed since TIME."
- (let* ((current (current-time))
- (rest (when (< (nth 1 current) (nth 1 time))
- (expt 2 16))))
- (list (- (+ (car current) (if rest -1 0)) (car time))
- (- (+ (or rest 0) (nth 1 current)) (nth 1 time))
- (- (nth 2 current) (nth 2 time)))))
-
-(eval-and-compile
- (luna-define-class lunit-test-reporter (lunit-test-listener)
- (buffer
- start-time))
-
- (luna-define-internal-accessors 'lunit-test-reporter))
-
-(defun lunit-escape-quote (string)
- (let ((index 0))
- (while (string-match "\"" string index)
- (setq string (replace-match """ nil t string)
- index (+ 5 index)))
- string))
-
-(luna-define-method lunit-test-listener-error ((reporter lunit-test-reporter)
- case error)
- (save-excursion
- (set-buffer (lunit-test-reporter-buffer-internal reporter))
- (insert (format "\
- <error message=\"%s\" type=\"error\"/>
-"
- (lunit-escape-quote (pp-to-string error))))))
-
-(luna-define-method lunit-test-listener-failure ((reporter lunit-test-reporter)
- case failure)
- (save-excursion
- (set-buffer (lunit-test-reporter-buffer-internal reporter))
- (insert (format "\
- <failure message=\"%s\" type=\"failure\"/>
-"
- (lunit-escape-quote (pp-to-string failure))))))
-
-(luna-define-method lunit-test-listener-start ((reporter lunit-test-reporter)
- case)
- (save-excursion
- (set-buffer (lunit-test-reporter-buffer-internal reporter))
- (goto-char (point-max))
- (narrow-to-region (point) (point))
- (insert (format "\
- <testcase name=\"%s\" classname=\"%s\">
-"
- (lunit-test-name-internal case)
- (luna-class-name case)))
- (lunit-test-reporter-set-start-time-internal reporter (current-time))))
-
-(luna-define-method lunit-test-listener-end ((reporter lunit-test-reporter)
- case)
- (let ((elapsed
- (lunit-time-since
- (lunit-test-reporter-start-time-internal reporter))))
- (save-excursion
- (set-buffer (lunit-test-reporter-buffer-internal reporter))
-
- (insert "\
- </testcase>
-")
- (goto-char (point-min))
- (looking-at " *<testcase\\>")
- (goto-char (match-end 0))
- (insert (format " time=\"%.03f\" "
- (+ (nth 1 elapsed)
- (/ (nth 2 elapsed) 1000000.0))))
- (widen))))
-
-(defun lunit-report (test file)
- "Run TEST and output result as XML."
- (let* ((printer
- (luna-make-entity 'lunit-test-printer))
- (result
- (lunit-make-test-result printer))
- (buffer (find-file-noselect file))
- start-time)
- (save-excursion
- (set-buffer buffer)
- (erase-buffer))
- (lunit-test-result-add-listener
- result
- (luna-make-entity 'lunit-test-reporter :buffer buffer))
- (setq start-time (current-time))
- (lunit-test-run test result)
- (let ((assert-count
- (lunit-test-result-assert-count-internal result))
- (failures
- (lunit-test-result-failures-internal result))
- (errors
- (lunit-test-result-errors-internal result))
-
- (elapsed (lunit-time-since start-time)))
- (princ (format "%d runs, %d assertions, %d failures, %d errors\n"
- (lunit-test-number-of-tests test)
- assert-count
- (length failures)
- (length errors)))
- (save-excursion
- (set-buffer buffer)
- (goto-char (point-min))
- (insert (format "\
-<?xml version=\"1.0\" encoding=\"UTF-8\"?>
-<testsuites>
- <testsuite name=\"\" tests=\"%d\" failures=\"%d\" \
-errors=\"%d\" time =\"%.03f\">
- <properties>
- <property name=\"emacs-version\" value=\"%s\"/>
- </properties>
-"
- (lunit-test-number-of-tests test)
- (length failures)
- (length errors)
- (+ (nth 1 elapsed)
- (/ (nth 2 elapsed) 1000000.0))
- (lunit-escape-quote (emacs-version))))
- (goto-char (point-max))
- (insert "\
- </testsuite>
-</testsuites>")
- (save-buffer)))))
-
(defvar imenu-create-index-function)
(defun lunit-create-index-function ()
(require 'imenu)
1.1 XEmacs/packages/xemacs-packages/riece/lisp/test/lunit-report.el
Index: lunit-report.el
===================================================================
;;; lunit-report.el --- output test report in XML compatible with JUnitTask
;; Copyright (C) 2004 Daiki Ueno.
;; Author: Daiki Ueno <ueno(a)unixuser.org>
;; This file is part of Riece.
;; 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.
;;; Code:
(require 'lunit)
(eval-and-compile
(luna-define-class lunit-test-reporter (lunit-test-listener)
(buffer
start-time))
(luna-define-internal-accessors 'lunit-test-reporter))
;; stolen (and renamed) from time-date.el.
(defun lunit-time-since (time)
"Return the time elapsed since TIME."
(let* ((current (current-time))
(rest (when (< (nth 1 current) (nth 1 time))
(expt 2 16))))
(list (- (+ (car current) (if rest -1 0)) (car time))
(- (+ (or rest 0) (nth 1 current)) (nth 1 time))
(- (nth 2 current) (nth 2 time)))))
(defun lunit-escape-quote (string)
(let ((index 0))
(while (string-match "\"" string index)
(setq string (replace-match """ nil t string)
index (+ 5 index)))
string))
(luna-define-method lunit-test-listener-error ((reporter lunit-test-reporter)
case error)
(save-excursion
(set-buffer (lunit-test-reporter-buffer-internal reporter))
(insert (format "\
<error message=\"%s\" type=\"error\"/>
"
(lunit-escape-quote (pp-to-string error))))))
(luna-define-method lunit-test-listener-failure ((reporter lunit-test-reporter)
case failure)
(save-excursion
(set-buffer (lunit-test-reporter-buffer-internal reporter))
(insert (format "\
<failure message=\"%s\" type=\"failure\"/>
"
(lunit-escape-quote (pp-to-string failure))))))
(luna-define-method lunit-test-listener-start ((reporter lunit-test-reporter)
case)
(save-excursion
(set-buffer (lunit-test-reporter-buffer-internal reporter))
(goto-char (point-max))
(narrow-to-region (point) (point))
(insert (format "\
<testcase name=\"%s\" classname=\"%s\">
"
(lunit-test-name-internal case)
(luna-class-name case)))
(lunit-test-reporter-set-start-time-internal reporter (current-time))))
(luna-define-method lunit-test-listener-end ((reporter lunit-test-reporter)
case)
(let ((elapsed
(lunit-time-since
(lunit-test-reporter-start-time-internal reporter))))
(save-excursion
(set-buffer (lunit-test-reporter-buffer-internal reporter))
(insert "\
</testcase>
")
(goto-char (point-min))
(looking-at " *<testcase\\>")
(goto-char (match-end 0))
(insert (format " time=\"%.03f\" "
(+ (nth 1 elapsed)
(/ (nth 2 elapsed) 1000000.0))))
(widen))))
(defun lunit-report (test file)
"Run TEST and output result as XML."
(let* ((printer
(luna-make-entity 'lunit-test-printer))
(result
(lunit-make-test-result printer))
(buffer (find-file-noselect file))
start-time)
(save-excursion
(set-buffer buffer)
(erase-buffer))
(lunit-test-result-add-listener
result
(luna-make-entity 'lunit-test-reporter :buffer buffer))
(setq start-time (current-time))
(lunit-test-run test result)
(let ((assert-count
(lunit-test-result-assert-count-internal result))
(failures
(lunit-test-result-failures-internal result))
(errors
(lunit-test-result-errors-internal result))
(elapsed (lunit-time-since start-time)))
(princ (format "%d runs, %d assertions, %d failures, %d errors\n"
(lunit-test-number-of-tests test)
assert-count
(length failures)
(length errors)))
(save-excursion
(set-buffer buffer)
(goto-char (point-min))
(insert (format "\
<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<testsuites>
<testsuite name=\"\" tests=\"%d\" failures=\"%d\" \
errors=\"%d\" time =\"%.03f\">
<properties>
<property name=\"emacs-version\" value=\"%s\"/>
</properties>
"
(lunit-test-number-of-tests test)
(length failures)
(length errors)
(+ (nth 1 elapsed)
(/ (nth 2 elapsed) 1000000.0))
(lunit-escape-quote (emacs-version))))
(goto-char (point-max))
(insert "\
</testsuite>
</testsuites>")
(save-buffer)))))
(provide 'lunit-report)
1.1 XEmacs/packages/xemacs-packages/riece/lisp/test/test-riece-eval.el
Index: test-riece-eval.el
===================================================================
(require 'riece-eval)
(luna-define-class test-riece-eval (lunit-test-case))
(luna-define-method test-riece-eval-string ((case test-riece-eval))
(lunit-assert-2
case
(equal
(riece-eval-form "\"abc\"")
"abc"))
(lunit-assert-2
case
(equal
(riece-eval-form "(concat \"d\" \"e\"
\"f\")")
"def")))
(luna-define-method test-riece-eval-list ((case test-riece-eval))
(lunit-assert-2
case
(equal
(riece-eval-form "'(a b c)")
"(a b c)"))
(lunit-assert-2
case
(equal
(riece-eval-form "(cons 'd \"e\")")
"(d . \"e\")")))
(luna-define-method test-riece-eval-number ((case test-riece-eval))
(lunit-assert-2
case
(equal
(riece-eval-form "123")
"123"))
(lunit-assert-2
case
(equal
(riece-eval-form "(+ 123 45.6)")
"168.6")))
(luna-define-method test-riece-eval-nil ((case test-riece-eval))
(lunit-assert-2
case
(equal
(riece-eval-form "nil")
""))
(lunit-assert-2
case
(equal
(riece-eval-form "'()")
"")))
(luna-define-method test-riece-eval-error ((case test-riece-eval))
(let (riece-eval-ignore-error symbol)
(makunbound 'symbol)
(lunit-assert-2
case
(equal
(riece-eval-form "symbol")
"Error evaluating symbol: (void-variable symbol)"))
(setq riece-eval-ignore-error t)
(lunit-assert-2
case
(equal
(riece-eval-form "symbol")
nil))))
1.1 XEmacs/packages/xemacs-packages/riece/lisp/test/test-riece-log.el
Index: test-riece-log.el
===================================================================
(require 'riece-log)
(luna-define-class test-riece-log (lunit-test-case))
(defun test-riece-log-delete-directory (directory)
(let (file-name-coding-system
default-file-name-coding-system
(files (directory-files directory t nil t)))
(while files
(if (file-directory-p (car files))
(unless (member (file-name-nondirectory (car files)) '("."
".."))
(test-riece-log-delete-directory (car files)))
(delete-file (car files)))
(setq files (cdr files)))
(delete-directory directory)))
(luna-define-method lunit-test-case-setup ((case test-riece-log))
(setq riece-log-directory
(expand-file-name (make-temp-name "test-riece-log")
(if (featurep 'xemacs)
(temp-directory)
temporary-file-directory))
test-riece-log-directory
(expand-file-name "=23riece" riece-log-directory))
(make-directory riece-log-directory)
(make-directory test-riece-log-directory)
(write-region "03:14 <test> a b c\n03:15 <test> a b c\n" nil
(expand-file-name "20380119.txt" test-riece-log-directory)
t 0)
(write-region "03:14 <test> 1 2 3\n" nil
(expand-file-name "20380118.txt" test-riece-log-directory)
t 0))
(luna-define-method lunit-test-case-teardown ((case test-riece-log))
(test-riece-log-delete-directory riece-log-directory))
(luna-define-method test-riece-log-insert-1 ((case test-riece-log))
(let (riece-log-directory-map)
(lunit-assert-2
case
(equal
(concat "03:14 <test> 1 2 3 (2038/01/18)\n"
"03:14 <test> a b c (2038/01/19)\n"
"03:15 <test> a b c (2038/01/19)\n")
(with-temp-buffer
(riece-log-insert (riece-make-identity "#riece" "") 3)
(buffer-string))))))
(luna-define-method test-riece-log-insert-2 ((case test-riece-log))
(let (riece-log-directory-map)
(lunit-assert-2
case
(equal ""
(with-temp-buffer
(riece-log-insert (riece-make-identity "#riece" "") t)
(buffer-string))))))
(luna-define-method test-riece-log-encode-file-name ((case test-riece-log))
(let (riece-log-file-name-coding-system)
(lunit-assert-2
case
(equal "=23riece"
(riece-log-encode-file-name "#riece")))
(lunit-assert-2
case
(equal "=23riece=3A=2A=2Ejp"
(riece-log-encode-file-name "#riece:*.jp")))
(lunit-assert-2
case
(equal "=23riece=="
(riece-log-encode-file-name "#riece=")))))
(luna-define-method test-riece-log-encode-file-name-mule
((case test-riece-log))
(let ((riece-log-file-name-coding-system 'iso-8859-1))
(lunit-assert-2
case
(equal "=23\xABriece\xBB"
(riece-log-encode-file-name
(format "#%criece%c"
(make-char 'latin-iso8859-1 43)
(make-char 'latin-iso8859-1 59))))))
(let ((riece-log-file-name-coding-system 'iso-2022-jp))
(lunit-assert-2
case
(equal "=23=1B=24B=24j=21=3C=249=1B=28B"
(riece-log-encode-file-name
(format "#%c%c%c"
(make-char 'japanese-jisx0208 36 106)
(make-char 'japanese-jisx0208 33 60)
(make-char 'japanese-jisx0208 36 57)))))))
(luna-define-method test-riece-log-decode-file-name ((case test-riece-log))
(let (riece-log-file-name-coding-system)
(lunit-assert-2
case
(equal "#riece"
(riece-log-decode-file-name "=23riece")))
(lunit-assert-2
case
(equal "#riece:*.jp"
(riece-log-decode-file-name "=23riece=3A=2A=2Ejp")))
(lunit-assert-2
case
(equal "#riece="
(riece-log-decode-file-name "=23riece==")))))
(luna-define-method test-riece-log-decode-file-name-mule
((case test-riece-log))
(let ((riece-log-file-name-coding-system 'iso-8859-1))
(lunit-assert-2
case
(equal (format "#%criece%c"
(make-char 'latin-iso8859-1 43)
(make-char 'latin-iso8859-1 59))
(riece-log-decode-file-name
"=23\xABriece\xBB"))))
(let ((riece-log-file-name-coding-system 'iso-2022-jp))
(lunit-assert-2
case
(equal (format "#%c%c%c"
(make-char 'japanese-jisx0208 36 106)
(make-char 'japanese-jisx0208 33 60)
(make-char 'japanese-jisx0208 36 57))
(riece-log-decode-file-name
"=23=1B=24B=24j=21=3C=249=1B=28B")))))
(luna-define-method test-riece-log-display-message-function
((case test-riece-log))
(let ((riece-log-file-name-coding-system 'euc-jp)
(riece-log-enabled t)
riece-log-directory-map
(riece-server-process-alist
(list (cons "" (start-process "" (current-buffer)
"true")))))
(riece-log-display-message-function
(riece-make-message
(riece-make-identity "ueno" "")
(riece-make-identity (format "#%c%c%c"
(make-char 'japanese-jisx0208 36 106)
(make-char 'japanese-jisx0208 33 60)
(make-char 'japanese-jisx0208 36 57))
"")
"a b c\n" nil t)))
(let (file-name-coding-system
default-file-name-coding-system)
(lunit-assert-2
case
(file-directory-p
(expand-file-name
(encode-coding-string
(format "=23%c%c%c"
(make-char 'japanese-jisx0208 36 106)
(make-char 'japanese-jisx0208 33 60)
(make-char 'japanese-jisx0208 36 57))
'euc-jp)
riece-log-directory)))))
1.1 XEmacs/packages/xemacs-packages/riece/lisp/test/test-riece.el
Index: test-riece.el
===================================================================
(require 'riece)
(luna-define-class test-riece (lunit-test-case))
(luna-define-method test-riece-shrink-buffer ((case test-riece))
(let* ((riece-max-buffer-size 255)
(riece-shrink-buffer-remove-chars 128)
(line (concat (make-string 15 ? ) "\n"))
(index 0))
(with-temp-buffer
(while (< index 16)
(insert line)
(setq index (1+ index)))
(riece-shrink-buffer (current-buffer))
(lunit-assert-2
case
(equal
(apply #'concat (make-list 8 line))
(buffer-string))))))
