CVS update by daiki packages/xemacs-packages/riece/doc
version-en.texi
xemacs-cvs at xemacs.org
xemacs-cvs at xemacs.org
Mon Mar 19 23:21:23 EDT 2007
User: daiki
Date: 07/03/20 04:21:23
Added: packages/xemacs-packages/riece/doc version-en.texi
version-ja.texi
packages/xemacs-packages/riece/lisp riece-epg.el
riece-mcat-japanese.el riece-mcat.el
riece-package-info.el riece-package-info.el.in
Log:
Adding missing files.
Revision Changes Path
1.1 XEmacs/packages/xemacs-packages/riece/doc/version-en.texi
Index: version-en.texi
===================================================================
@set UPDATED 18 December 2006
@set UPDATED-MONTH December 2006
@set EDITION 3.1.2
@set VERSION 3.1.2
1.1 XEmacs/packages/xemacs-packages/riece/doc/version-ja.texi
Index: version-ja.texi
===================================================================
@set UPDATED 29 January 2007
@set UPDATED-MONTH January 2007
@set EDITION 3.1.2
@set VERSION 3.1.2
1.1 XEmacs/packages/xemacs-packages/riece/lisp/riece-epg.el
Index: riece-epg.el
===================================================================
;;; riece-epg.el --- Encrypt/decrypt messages add-on
;; Copyright (C) 2006 Daiki Ueno
;; Author: Daiki Ueno <ueno at unixuser.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., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Code:
(require 'riece-message)
(require 'riece-identity)
(autoload 'widget-convert-button "wid-edit")
(autoload 'epg-make-context "epg")
(autoload 'epg-decrypt-string "epg")
(autoload 'epg-encrypt-string "epg")
(autoload 'epg-passphrase-callback-function "epg")
(autoload 'epg-context-set-passphrase-callback "epg")
(autoload 'epg-cancel "epg")
(eval-when-compile
(autoload 'riece-command-send-message "riece-commands"))
(defgroup riece-epg nil
"Encrypt/decrypt messages."
:group 'riece)
(defconst riece-epg-description
"Encrypt/decrypt messages.")
(defvar riece-epg-passphrase-alist nil)
(defun riece-epg-passphrase-callback-function (context key-id identity)
(if (eq key-id 'SYM)
(let ((entry (riece-identity-assoc identity riece-epg-passphrase-alist))
passphrase)
(or (copy-sequence (cdr entry))
(progn
(unless entry
(setq entry (list identity)
riece-epg-passphrase-alist (cons entry
riece-epg-passphrase-alist)))
(setq passphrase (epg-passphrase-callback-function context
key-id nil))
(setcdr entry (copy-sequence passphrase))
passphrase)))
(epg-passphrase-callback-function context key-id nil)))
(defun riece-epg-passphrase-callback-function-for-decrypt (context key-id
identity)
(if (eq key-id 'SYM)
(let ((entry (riece-identity-assoc identity riece-epg-passphrase-alist)))
(if (cdr entry)
(copy-sequence (cdr entry))
(epg-cancel context)))
(epg-passphrase-callback-function context key-id nil)))
(defun riece-epg-funcall-clear-passphrase (identity function &rest args)
(condition-case error
(apply function args)
(error
(let ((entry (riece-identity-assoc identity riece-epg-passphrase-alist)))
(if entry
(setq riece-epg-passphrase-alist
(delq entry riece-epg-passphrase-alist))))
(signal (car error) (cdr error)))))
(defun riece-command-enter-encrypted-message ()
"Encrypt the current line and send it to the current channel."
(interactive)
(let ((context (epg-make-context))
(string (buffer-substring (riece-line-beginning-position)
(riece-line-end-position))))
(epg-context-set-passphrase-callback
context
(cons #'riece-epg-passphrase-callback-function
riece-current-channel))
(riece-send-string
(format "PRIVMSG %s :[encrypted:%s]\r\n"
(riece-identity-prefix riece-current-channel)
(base64-encode-string
(riece-epg-funcall-clear-passphrase
riece-current-channel
#'epg-encrypt-string
context
(riece-with-server-buffer
(riece-identity-server riece-current-channel)
(riece-encode-coding-string-for-identity
string
riece-current-channel))
nil)
t)))
(riece-display-message
(riece-make-message (riece-current-nickname) riece-current-channel
(concat "[encrypted:" string "]") nil t))
(let ((next-line-add-newlines t))
(next-line 1))))
(defun riece-command-set-passphrase (identity passphrase)
"Set PASSPHRASE associated with IDENTITY."
(interactive
(let ((identity
(riece-completing-read-identity
"Channel/user: "
riece-current-channels nil t nil nil
(riece-format-identity riece-current-channel))))
(list identity
(read-passwd (format "Passphrase for %s: "
(riece-format-identity identity))))))
(let ((entry (riece-identity-assoc identity riece-epg-passphrase-alist)))
(if (equal passphrase "")
(if entry
(setq riece-epg-passphrase-alist
(delq entry riece-epg-passphrase-alist)))
(if entry
(setcdr entry passphrase)
(setq riece-epg-passphrase-alist
(cons (cons identity passphrase)
riece-epg-passphrase-alist))))))
(defun riece-epg-decrypt-string-for-identity (context cipher target)
(let ((coding-system
(or (riece-coding-system-for-identity target)
riece-default-coding-system)))
(riece-with-server-buffer (riece-identity-server target)
(decode-coding-string
(riece-epg-funcall-clear-passphrase
target
#'epg-decrypt-string
context
(base64-decode-string cipher))
(if (consp coding-system)
(car coding-system)
coding-system)))))
(defun riece-epg-message-filter (message)
(if (get 'riece-epg 'riece-addon-enabled)
(when (string-match "\\`\\[encrypted:\\(.*\\)]"
(riece-message-text message))
(let ((context (epg-make-context))
(string (match-string 1 (riece-message-text message))))
(epg-context-set-passphrase-callback
context
(cons #'riece-epg-passphrase-callback-function-for-decrypt
riece-current-channel))
(condition-case error
(progn
(riece-message-set-text
message
(format "[encrypted:%s]"
(riece-epg-decrypt-string-for-identity
context string (riece-message-target message)))))
(error
(riece-put-text-property-nonsticky
0 (length (riece-message-text message))
'riece-epg-encryption-target (riece-message-target message)
(riece-message-text message))
(if riece-debug
(message "Couldn't decrypt: %s" (cdr error))
(message "Couldn't decrypt")))))))
message)
(defun riece-epg-add-encrypted-button (start end)
(if (and (get 'riece-button 'riece-addon-enabled)
(get 'riece-epg 'riece-addon-enabled))
(riece-scan-property-region
'riece-epg-encryption-target
start end
(lambda (start end)
(let ((inhibit-read-only t)
buffer-read-only)
(widget-convert-button
'link start end
:help-echo "Click to decrypt"
:notify #'riece-epg-encrypted-button-notify
(get-text-property start 'riece-epg-encryption-target)))))))
(defun riece-epg-encrypted-button-notify (widget &rest ignore)
(let* ((from (marker-position (widget-get widget :from)))
(to (marker-position (widget-get widget :to)))
(target (widget-get widget :value))
(cipher (buffer-substring from to))
(inhibit-read-only t)
buffer-read-only
plain)
(when (string-match "\\`\\[encrypted:\\(.*\\)]" cipher)
(setq plain (riece-epg-decrypt-string-for-identity
(epg-make-context) (match-string 1 cipher) target))
(widget-delete widget)
(delete-region from to)
(save-excursion
(goto-char from)
(insert "[encrypted:" plain "]")))))
(defun riece-epg-requires ()
(if (memq 'riece-button riece-addons)
'(riece-button)))
(defun riece-epg-insinuate ()
(add-hook 'riece-message-filter-functions 'riece-epg-message-filter)
(add-hook 'riece-after-insert-functions 'riece-epg-add-encrypted-button))
(defun riece-epg-uninstall ()
(remove-hook 'riece-message-filter-functions 'riece-epg-message-filter)
(remove-hook 'riece-after-insert-functions 'riece-epg-add-encrypted-button))
(defvar riece-command-mode-map)
(defun riece-epg-enable ()
(define-key riece-command-mode-map
"\C-ce" 'riece-command-enter-encrypted-message)
(define-key riece-command-mode-map
"\C-c\C-ec" 'riece-command-set-passphrase))
(defun riece-epg-disable ()
(define-key riece-command-mode-map
"\C-ce" nil)
(define-key riece-command-mode-map
"\C-c\C-ec" nil))
(provide 'riece-epg)
;;; riece-epg.el ends here
1.1 XEmacs/packages/xemacs-packages/riece/lisp/riece-mcat-japanese.el
Index: riece-mcat-japanese.el
===================================================================
;;; riece-mcat.el --- message catalog for Japanese -*- coding: iso-2022-jp -*-
;; Copyright (C) 2007 Daiki Ueno
;; Author: Daiki Ueno <ueno at 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., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Commentary:
;; To update riece-mcat-japanese-alist, do `make update-mcat'.
;;; Code:
(defconst riece-mcat-japanese-alist
'(("\nSymbols in the leftmost column:\n\n + The add-on is enabled.\n - The add-on is disabled.\n ? The add-on is not insinuated.\n The add-on is not loaded.\n" . "\n$B:8C<$N%7%s%\%k(B:\n\n + $BM-8z$J%"%I%*%s(B\n - $BL58z$J%"%I%*%s(B\n ? $BAH$_9~$^$l$F$$$J$$%"%I%*%s(B\n $B%m!<%I$5$l$F$$$J$$%"%I%*%s(B\n")
("\nUseful keys:\n\n `\\[riece-command-enable-addon]' to enable the current add-on.\n `\\[riece-command-disable-addon]' to disable the current add-on.\n `\\[riece-command-insinuate-addon]' to insinuate the current add-on.\n `\\[riece-command-uninstall-addon]' to uninstall the current add-on.\n `\\[riece-command-unload-addon]' to unload the current add-on.\n `\\[riece-command-save-variables]' to save the current setting.\n" . "\n$BJXMx$J%-!<(B:\n\n `\\[riece-command-enable-addon]' $B%"%I%*%s$rM-8z2=(B\n `\\[riece-command-disable-addon]' $B%"%I%*%s$rL58z2=(B\n `\\[riece-command-insinuate-addon]' $B%"%I%*%s$rAH$_9~$_(B\n `\\[riece-command-uninstall-addon]' $B%"%I%*%s$N=|30(B\n `\\[riece-command-unload-addon]' $B%"%I%*%s$r%"%s%m!<%I(B\n `\\[riece-command-save-variables]' $B at _Dj$rJ]B8(B\n")
("%2d: %s %s (%d bytes)\n" . "%2d: %s %s (%d $B%P%$%H(B)\n")
("%S: switch to %s; down-mouse-3: more options" . "%S: %s $B$K0\F0(B; down-mouse-3: $B$=$NB>$N%*%W%7%g%s(B")
("%d users on %s: " . "%d $B?M$,(B %s $B$K$$$^$9(B: ")
("%d users: " . "%d $B?M(B: ")
("%s (%s) has joined %s" . "%s (%s) $B$,(B %s $B$K;22C$7$^$7$?(B")
("%s (%s) has joined %s\n" . "%s (%s) $B$,(B %s $B$K;22C$7$^$7$?(B\n")
("%s has left %s" . "%s $B$,(B %s $B$rN%$l$^$7$?(B")
("%s has left IRC" . "%s $B$,(B IRC $B$rN%$l$^$7$?(B")
("%s invites %s to %s" . "%s $B$,(B %s $B$r(B %s $B$K>7BT$7$F$$$^$9(B")
("%s is %s (%s)" . "%s $B$O(B %s (%s)")
("%s is %s idle" . "%s $B$O(B %s $B%"%$%I%k>uBV(B")
("%s is (%s)" . "%s $B$O(B (%s)")
("%s is away: %s" . "%s $B$ON%@JCf(B: %s")
("%s is running on %s: %s" . "%s $B$,(B %s $B$GF0$$$F$$$^$9(B: %s")
("%s kicked %s out from %s" . "%s $B$,(B %s $B$r(B %s $B$+$i=3$j=P$7$^$7$?(B")
("%s kicked %s out from %s\n" . "%s $B$,(B %s $B$r(B %s $B$+$i=3$j=P$7$^$7$?(B\n")
("%s killed %s" . "%s $B$,(B %s $B$r(B KILL $B$7$^$7$?(B")
("%s users, topic: %s\n" . "%s $B?M!"%H%T%C%/(B: %s\n")
("%s will be insinuated. Continue? " . "%s $B$OAH$_9~$^$l$F$$$^$;$s!#B39T$7$^$9$+(B? ")
("%s: %s users, topic: %s" . "%s: %s $B?M!"%H%T%C%/(B: %s\n")
("(no description)" . "($B at bL@$J$7(B)")
("Action: " . "$B%"%/%7%g%s(B: ")
("Add-on %S disabled" . "$B%"%I%*%s(B %S $B$,L58z$K$J$j$^$7$?(B")
("Add-on %S enabled" . "$B%"%I%*%s(B %S $B$,M-8z$K$J$j$^$7$?(B")
("Add-on %S is already disabled" . "$B%"%I%*%s(B %S $B$O4{$KL58z$G$9(B")
("Add-on %S is already enabled" . "$B%"%I%*%s(B %S $B$O4{$KM-8z$G$9(B")
("Add-on %S is already insinuated" . "$B%"%I%*%s(B %S $B$O4{$KAH$_9~$^$l$F$$$^$9(B")
("Add-on %S is insinuated" . "$B%"%I%*%s(B %S $B$,AH$_9~$^$l$^$7$?(B")
("Add-on %S is not allowed to unload" . "$B%"%I%*%s(B %S $B$O%"%s%m!<%I$G$-$^$;$s(B")
("Add-on %S is not insinuated" . "$B%"%I%*%s(B %S $B$OAH$_9~$^$l$F$$$^$;$s(B")
("Add-on %S is uninstalled" . "$B%"%I%*%s(B %S $B$,=|30$5$l$^$7$?(B")
("Add-on %S is unloaded" . "$B%"%I%*%s(B %S $B$,%"%s%m!<%I$5$l$^$7$?(B")
("Add-on: " . "$B%"%I%*%s(B: ")
("Already registered" . "$BEPO?:Q$_$G$9(B")
("Away message: " . "$BN%@J$N%a%C%;!<%8(B: ")
("Beginning of buffer" . "$B%P%C%U%!$N at hF,$G$9(B")
("CTCP CLIENTINFO for %s (%s) = %s" . "%s (%s) $B$N(B CTCP CLIENTINFO = %s")
("CTCP CLIENTINFO from %s (%s) to %s" . "%s (%s) $B$,(B %s $B$K(B CTCP CLIENTINFO")
("CTCP PING for %s (%s) = %d sec" . "%s (%s) $B$N(B CTCP PING = %d $BIC(B")
("CTCP PING from %s (%s) to %s" . "%s (%s) $B$,(B %s $B$K(B CTCP PING")
("CTCP TIME for %s (%s) = %s" . "%s (%s) $B$N(B CTCP TIME = %s")
("CTCP TIME from %s\n" . "%s $B$+$i(B CTCP TIME\n")
("CTCP TIME from %s (%s) to %s" . "%s (%s) $B$,(B %s $B$K(B CTCP TIME")
("CTCP VERSION for %s (%s) = %s" . "%s (%s) $B$N(B CTCP VERSION = %s")
("CTCP VERSION from %s (%s) to %s" . "%s (%s) $B$,(B %s $B$K(B CTCP VERSION")
("Can't find completion for \"%s\"" . "\"%s\" $B$KBP$9$kJd40$,8+$D$+$j$^$;$s(B")
("Change layout: " . "$BJQ998e$N%l%$%"%&%H(B: ")
("Change mode for channel/user: " . "$B%b!<%I$rJQ99$9$k%A%c%s%M%k$^$?$O%f!<%6(B: ")
("Channel/User: " . "$B%A%c%s%M%k$^$?$O%f!<%6(B: ")
("Close server: " . "$B@\B3$rJD$8$k%5!<%P(B: ")
("Command to execute on \"%s\":" . "\"%s\" $B$G<B9T$9$k%3%^%s%I(B: ")
("Connecting to %s..." . "%s $B$K@\B3$7$F$$$^$9(B...")
("Connecting to %s...done" . "%s $B$K@\B3$7$F$$$^$9(B...$B40N;(B")
("Connecting to %s...failed: %S" . "%s $B$K@\B3$7$F$$$^$9(B...$B<:GT(B: %S")
("Connecting to IRC server..." . "IRC $B%5!<%P$K@\B3$7$F$$$^$9(B...")
("Connecting to IRC server...done" . "IRC $B%5!<%P$K@\B3$7$F$$$^$9(B...$B40N;(B")
("Connecting to IRC server...failed: %S" . "IRC $B%5!<%P$K@\B3$7$F$$$^$9(B...$B<:GT(B: %S")
("Created on %s\n" . "%s $B$K:n at .$5$l$^$7$?(B\n")
("End of buffer" . "$B%P%C%U%!$N=*C<$G$9(B")
("Erroneous nickname \"%s\". Choose a new one: " . "$BIT at 5$J%K%C%/%M!<%`(B \"%s\"$B!#?7$7$$%K%C%/%M!<%`(B: ")
("File: " . "$B%U%!%$%k(B: ")
("Finger user: " . "$B?H85$rD4$Y$k%f!<%6(B: ")
("Invite user: " . "$B>7BT$9$k%f!<%6(B: ")
("Inviting %s\n" . "%s $B$r>7BT$7$F$$$^$9(B\n")
("Inviting %s to %s" . "%s $B$r(B %s $B$K>7BT$7$F$$$^$9(B")
("Join channel/user (default %s): " . "$B;22C$9$k%A%c%s%M%k$^$?$O%f!<%6(B ($B4{DjCM(B %s): ")
("Join channel/user: " . "$B;22C$9$k%A%c%s%M%k$^$?$O%f!<%6(B: ")
("Key for %s: " . "%s $B$N%-!<(B: ")
("Key for %s: Quit" . "%s $B$N%-!<(B: $BCf;_(B")
("Kick user: " . "$B=3$j=P$9%f!<%6(B: ")
("LIST pattern: " . "LIST $B$N%Q%?!<%s(B: ")
("Logging in to %s..." . "%s $B$K%m%0%$%s$7$F$$$^$9(B...")
("Logging in to %s...done" . "%s $B$K%m%0%$%s$7$F$$$^$9(B...$B40N;(B")
("Logging in to IRC server..." . "IRC $B%5!<%P$K%m%0%$%s$7$F$$$^$9(B...")
("Logging in to IRC server...done" . "IRC $B%5!<%P$K%m%0%$%s$7$F$$$^$9(B...$B40N;(B")
("Message to user: " . "$B%f!<%6$X$N%a%C%;!<%8(B: ")
("Message: " . "$B%a%C%;!<%8(B")
("Mode (? for help)" . "$B%b!<%I(B ($B%X%k%W$O(B ?)")
("Mode by %s: %s\n" . "%s $B$K$h$k%b!<%I at _Dj(B: %s\n")
("Mode for %s: %s" . "%s $B$N%b!<%I(B: %s")
("Mode on %s by %s: %s" . "%s $B$N%b!<%I$,(B %s $B$K$h$j at _Dj$5$l$^$7$?(B: %s")
("Mode: " . "$B%b!<%I(B: ")
("NAMES pattern: " . "NAMES $B$N%Q%?!<%s(B: ")
("Nickname \"%s\" already in use. Choose a new one: " . "$B%K%C%/%M!<%`(B \"%s\" $B$O4{$K;HMQ$5$l$F$$$^$9!#?7$7$$%K%C%/%M!<%`(B: ")
("No changes made. Save anyway? " . "$BJQ99$,$"$j$^$;$s$,!"J]B8$7$^$9$+(B? ")
("No channel" . "$B%A%c%s%M%k$J$7(B")
("No server process" . "$B%5!<%P$N%W%m%;%9$,$"$j$^$;$s(B")
("No text to send" . "$BAw?.$9$k%F%-%9%H$,$"$j$^$;$s(B")
("None" . "$B$J$7(B")
("Online: " . "$B%*%s%i%$%s(B: ")
("Open server: " . "$B@\B3$9$k%5!<%P(B: ")
("Part from channel/user (default %s): " . "$BN%C&$9$k%A%c%s%M%k$^$?$O%f!<%6(B ($B4{DjCM(B %s): ")
("Password for %s: " . "%s $B$N%Q%9%o!<%I(B: ")
("Password for %s: Quit" . "%s $B$N%Q%9%o!<%I(B: $BCf;_(B")
("Password incorrect from %s." . "%s $B$N%Q%9%o!<%I$,IT at 5$G$9!#(B")
("Password: " . "$B%Q%9%o!<%I(B: ")
("Password: Quit" . "$B%Q%9%o!<%I(B: $BCf;_(B")
("Really quit IRC? " . "$BK\Ev$K(B IRC $B$r$d$a$^$9$+(B? ")
("Really want to query LIST without argument? " . "$BK\Ev$K0z?t$J$7$N(B LIST $B$rH/9T$7$^$9$+(B? ")
("Really want to query NAMES without argument? " . "$BK\Ev$K0z?t$J$7$N(B NAMES $B$rH/9T$7$^$9$+(B? ")
("Really want to query WHO without argument? " . "$BK\Ev$K0z?t$J$7$N(B WHO $B$rH/9T$7$^$9$+(B? ")
("Receiving %s from %s...(%s/%s)" . "%s $B$r(B %s $B$+$i<u?.Cf(B...(%s/%s)")
("Receiving %s from %s...done" . "%s $B$r(B %s $B$+$i<u?.Cf(B...$B40N;(B")
("Recent messages of the day:\n" . "$B:G6a$N%a%C%;!<%8(B ($B:#F|Cf(B):\n")
("Recent messages up to %d lines:\n" . "$B:G6a$N%a%C%;!<%8(B (%d $B9T$^$G(B):\n")
("Save as (default %s) " . "$BJ]B8 at h(B ($B4{DjCM(B %s) ")
("Sending %s...(%s/%d)" . "%s $B$rAw?.Cf(B...(%s/%d)")
("Sending %s...done" . "%s $B$rAw?.Cf(B...$B40N;(B")
("Sending QUIT to \"%s\"..." . "\"%s\" $B$K(B QUIT $B$rAw?.$7$F$$$^$9(B...")
("Sending QUIT to \"%s\"...done" . "\"%s\" $B$K(B QUIT $B$rAw?.$7$F$$$^$9(B...$B40N;(B")
("Sending QUIT..." . "QUIT $B$rAw?.$7$F$$$^$9(B...")
("Sending QUIT...done" . "QUIT $B$rAw?.$7$F$$$^$9(B...$B40N;(B")
("Server: " . "$B%5!<%P(B: ")
("Set +o for users" . "+o $B$9$k%f!<%6(B")
("Set +v for users" . "+v $B$9$k%f!<%6(B")
("Set topic: " . "$B?7$7$$%H%T%C%/(B: ")
("Switch to channel/user: " . "$B0\F0 at h$N%A%c%s%M%k$^$?$O%f!<%6(B: ")
("Switch to number: " . "$B0\F0 at h$NHV9f(B: ")
("Topic by %s: %s\n" . "%s $B$K$h$k%H%T%C%/@_Dj(B: %s\n")
("Topic for %s: %s" . "%s $B$N%H%T%C%/(B: ")
("Topic on %s by %s: %s" . "%s $B$N%H%T%C%/$,(B %s $B$K$h$j at _Dj$5$l$^$7$?(B: %s")
("Topic: " . "$B%H%T%C%/(B: ")
("Type \\[describe-mode] for help" . "$B%X%k%W$r8+$k$K$O(B \\[describe-mode]")
("Type \\[riece-command-dcc-receive] to receive" . "$B<u?.$9$k$K$O(B \\[riece-command-dcc-receive]")
("Type \\[riece-command-join] to join the channel" . "$B%A%c%s%M%k$K;22C$9$k$K$O(B \\[riece-command-join]")
("Unset +o for users" . "-o $B$9$k%f!<%6(B")
("Unset +v for users" . "-v $B$9$k%f!<%6(B")
("User: " . "$B%f!<%6(B: ")
("WHO pattern: " . "WHO $B$N%Q%?!<%s(B: ")
("[Available modes: " . "[$B;HMQ2DG=$J%b!<%I(B: ")
("days" . "$BF|(B")
("hours" . "$B;~4V(B")
("minutes" . "$BJ,(B")
("on via server %s: %s" . "$B%5!<%P(B %s $B7PM3(B: %s")
("seconds" . "$BIC(B")))
(provide 'riece-mcat-japanese)
;;; riece-mcat-japanese.el ends here
1.1 XEmacs/packages/xemacs-packages/riece/lisp/riece-mcat.el
Index: riece-mcat.el
===================================================================
;;; riece-mcat.el --- message catalog
;; Copyright (C) 2007 Daiki Ueno
;; Author: Daiki Ueno <ueno at 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., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Code:
(require 'pp)
(defun riece-mcat (string)
"Translate STRING in the current language environment."
(let ((feature (get-language-info current-language-environment
'riece-mcat-feature)))
(if feature
(progn
(require feature)
(or (cdr (assoc string
(symbol-value
(intern (concat (symbol-name feature) "-alist")))))
string))
string)))
(defun riece-mcat-extract-from-form (form)
(if (and form (listp form) (listp (cdr form)))
(if (eq (car form) 'riece-mcat)
(cdr form)
(delq nil (apply #'nconc
(mapcar #'riece-mcat-extract-from-form form))))))
(defun riece-mcat-extract (files)
(save-excursion
(let (message-list pointer)
(while files
(with-temp-buffer
(insert-file-contents (car files))
(goto-char (point-min))
(while (progn
(while (progn (skip-chars-forward " \t\n\f")
(looking-at ";"))
(forward-line 1))
(not (eobp)))
(setq message-list
(nconc message-list
(riece-mcat-extract-from-form
(read (current-buffer)))))))
(setq files (cdr files)))
(setq message-list (sort message-list #'string-lessp)
pointer message-list)
(while pointer
(if (member (car pointer) (cdr pointer))
(setcar pointer nil))
(setq pointer (cdr pointer)))
(delq nil message-list))))
(defun riece-mcat-update (files mcat-file mcat-alist-symbol)
"Update MCAT-FILE."
(let ((pp-escape-newlines t)
alist)
(save-excursion
(set-buffer (find-file-noselect mcat-file))
(goto-char (point-min))
(if (re-search-forward (concat "^\\s-*(\\(defvar\\|defconst\\)\\s-+"
(regexp-quote (symbol-name
mcat-alist-symbol)))
nil t)
(progn
(goto-char (match-beginning 0))
(save-excursion
(eval (read (current-buffer))))
(delete-region (point) (progn (forward-sexp) (point))))
(set mcat-alist-symbol nil))
(setq alist (mapcar (lambda (message)
(or (assoc message
(symbol-value mcat-alist-symbol))
(list message)))
(riece-mcat-extract files)))
(insert "(defconst " (symbol-name mcat-alist-symbol) "\n '(")
(while alist
(insert "(" (pp-to-string (car (car alist))) " . "
(pp-to-string (cdr (car alist))) ")")
(if (cdr alist)
(insert "\n "))
(setq alist (cdr alist)))
(insert "))")
(save-buffer))))
(defconst riece-mcat-description "Translate messages")
(defun riece-mcat-insinuate ()
(set-language-info "Japanese" 'riece-mcat-feature 'riece-mcat-japanese))
(defun riece-mcat-uninstall ()
(set-language-info "Japanese" 'riece-mcat-feature nil))
(provide 'riece-mcat)
;;; riece-mcat.el ends here
1.1 XEmacs/packages/xemacs-packages/riece/lisp/riece-package-info.el
Index: riece-package-info.el
===================================================================
;;; riece-package-info.el --- package information about Riece
;; Copyright (C) 2006 Daiki Ueno
;; Author: Daiki Ueno <ueno at 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., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Code:
;;(defconst riece-package-name "riece")
(defconst riece-package-name "Riece")
(defconst riece-version-number "3.1.2"
"Version number for this version of Riece.")
(provide 'riece-package-info)
;;; riece-package-info.el ends here
1.1 XEmacs/packages/xemacs-packages/riece/lisp/riece-package-info.el.in
Index: riece-package-info.el.in
===================================================================
;;; riece-package-info.el --- package information about Riece
;; Copyright (C) 2006 Daiki Ueno
;; Author: Daiki Ueno <ueno at 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., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Code:
;;(defconst riece-package-name "@PACKAGE@")
(defconst riece-package-name "Riece")
(defconst riece-version-number "@VERSION@"
"Version number for this version of Riece.")
(provide 'riece-package-info)
;;; riece-package-info.el ends here
More information about the XEmacs-CVS
mailing list