From c3037b89564c9bd180e519be3a91c62c76900ba3 Mon Sep 17 00:00:00 2001
From: Daiki Ueno <ueno@unixuser.org>
Date: Fri, 19 Jan 2007 07:09:56 +0000
Subject: [PATCH] * riece-options.el (riece-addons): Insinuate riece-mcat by
 default. * riece-addon-modules.el (riece-addon-modules): Add riece-mcat. *
 riece-mcat.el: Implement add-on interface. (riece-mcat-description): New
 constant. (riece-mcat-insinuate): New function. (riece-mcat-uninstall): New
 function.

---
 lisp/ChangeLog              |  9 +++++++++
 lisp/riece-addon-modules.el |  1 +
 lisp/riece-mcat.el          | 35 +++++++++++++++++++++++------------
 lisp/riece-options.el       |  3 ++-
 4 files changed, 35 insertions(+), 13 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 220859b..a8b36a4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2007-01-19  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-options.el (riece-addons): Insinuate riece-mcat by default.
+	* riece-addon-modules.el (riece-addon-modules): Add riece-mcat.
+	* riece-mcat.el: Implement add-on interface.
+	(riece-mcat-description): New constant.
+	(riece-mcat-insinuate): New function.
+	(riece-mcat-uninstall): New function.
+
 2007-01-19  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-mcat.el (riece-mcat-update): New function.
diff --git a/lisp/riece-addon-modules.el b/lisp/riece-addon-modules.el
index 615b006..4bd4b3a 100644
--- a/lisp/riece-addon-modules.el
+++ b/lisp/riece-addon-modules.el
@@ -22,6 +22,7 @@
     (riece-keyword . "Detect keywords in IRC buffers.")
     (riece-log . "Save IRC logs.")
     (riece-lsdb . "Help register nicknames in LSDB rolodex program.")
+    (riece-mcat . "Translate messages.")
     (riece-menu . "Setup Riece's command menus.")
     (riece-mini . "Use Riece only on the minibuffer.")
     ;;(riece-ndcc . "DCC file sending protocol support (written in elisp.)")
diff --git a/lisp/riece-mcat.el b/lisp/riece-mcat.el
index bf15b54..ad15348 100644
--- a/lisp/riece-mcat.el
+++ b/lisp/riece-mcat.el
@@ -22,17 +22,19 @@
 
 ;;; Code:
 
-(defvar riece-mcat-alist
-  '(("Japanese" . riece-mcat-japanese)))
+(require 'pp)
 
 (defun riece-mcat (string)
-  (let ((entry (assoc current-language-environment riece-mcat-alist)))
-    (when entry
-      (require (cdr entry))
-      (or (cdr (assoc string (symbol-value (intern
-					    (concat (symbol-name (cdr entry))
-						    "-alist")))))
-	  string))))
+  (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)))
@@ -69,7 +71,8 @@
       alist)))
 
 (defun riece-mcat-update (files mcat-file mcat-alist)
-  (let (alist)
+  (let ((pp-escape-newlines t)
+	alist)
     (save-excursion
       (set-buffer (find-file-noselect mcat-file))
       (goto-char (point-min))
@@ -85,14 +88,22 @@
       (setq alist (riece-mcat-extract files (symbol-value mcat-alist)))
       (insert "(defconst " (symbol-name mcat-alist) "\n  '(")
       (while alist
-	(insert "(" (prin1-to-string (car (car alist))) " . "
-		(prin1-to-string (cdr (car 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
diff --git a/lisp/riece-options.el b/lisp/riece-options.el
index fad5461..6987933 100644
--- a/lisp/riece-options.el
+++ b/lisp/riece-options.el
@@ -131,7 +131,8 @@ way is to put Riece variables on .emacs or file loaded from there."
 			  riece-alias
 			  riece-ctlseq
 			  riece-keyword
-			  riece-shrink-buffer)
+			  riece-shrink-buffer
+			  riece-mcat)
   "Add-ons insinuated into Riece."
   :type '(repeat symbol)
   :group 'riece-options)
-- 
2.25.1