X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Friece-log.el;h=624115b46707e5510d8e47a87fd856acc9e48a91;hb=e6d2b6db02a2ac6cc70cb3030d5fc9a786deaf3d;hp=e1c0a74abaf0568b31215f89a52e2376d6c382ed;hpb=7a6bbe7e9076a455c50a9ca5c6714401811edca6;p=elisp%2Friece.git

diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index e1c0a74..624115b 100644
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -1,4 +1,4 @@
-;;; riece-log.el --- saving irc logs add-on
+;;; riece-log.el --- Save IRC logs
 ;; Copyright (C) 2003 OHASHI Akira
 ;; Copyright (C) 2004 Daiki Ueno
 
@@ -20,23 +20,22 @@
 
 ;; 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.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 
-;; This add-on saves irc logs for every channel.
-
-;; To use, add the following line to your ~/.riece/init.el:
-;; (add-to-list 'riece-addons 'riece-log)
+;;; NOTE: This is an add-on module for Riece.
 
 ;;; Code:
 
 (require 'riece-message)
 (require 'riece-button)
+(require 'riece-mcat)
 
 (defgroup riece-log nil
-  "Save irc log"
+  "Save IRC logs."
+  :prefix "riece-"
   :group 'riece)
 
 (defcustom riece-log-directory
@@ -91,22 +90,20 @@ It is created if there is at least one instance of Emacs running riece-log.")
 (defconst riece-log-file-name-regexp
   (concat (riece-make-interval-regexp "[0-9]" 8) "\\.txt\\(\\.\\(.*\\)\\)?$"))
 
-(defvar riece-log-enabled nil)
-
 (defconst riece-log-description
-  "Saving IRC logs")
+  "Save IRC logs.")
 
 (defun riece-log-display-message-function (message)
-  (if riece-log-enabled
-      (let ((coding-system-for-write
-	     (if (featurep 'mule)
-		 (or riece-log-coding-system
-		     (car (get-language-info current-language-environment
-					     'coding-system)))))
-	    (file (riece-log-make-file-name (riece-message-target message)
-					    coding-system-for-write))
-	    file-name-coding-system
-	    default-file-name-coding-system)
+  (if (get 'riece-log 'riece-addon-enabled)
+      (let* ((coding-system-for-write
+	      (if (featurep 'mule)
+		  (or riece-log-coding-system
+		      (car (get-language-info current-language-environment
+					      'coding-system)))))
+	     (file (riece-log-make-file-name (riece-message-target message)
+					     coding-system-for-write))
+	     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") " "
@@ -241,8 +238,9 @@ If LINES is t, insert today's logs entirely."
   (when riece-log-flashback
     (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-mcat "Recent messages of the day:\n")
+			 (format (riece-mcat
+				  "Recent messages up to %d lines:\n")
 				 riece-log-flashback)))
     (let (buffer-read-only
 	  (point (goto-char (point-max))))
@@ -291,14 +289,19 @@ If LINES is t, insert today's logs entirely."
   (add-hook 'riece-channel-buffer-create-functions
 	    'riece-log-flashback))
 
+(defun riece-log-uninstall ()
+  (setq riece-log-lock-file nil)
+  (remove-hook 'riece-after-display-message-functions
+	       'riece-log-display-message-function)
+  (remove-hook 'riece-channel-buffer-create-functions
+	       'riece-log-flashback))
+
 (defvar riece-command-mode-map)
 (defun riece-log-enable ()
-  (define-key riece-command-mode-map "\C-cd" 'riece-log-dired)
-  (setq riece-log-enabled t))
+  (define-key riece-command-mode-map "\C-cd" 'riece-log-dired))
 
 (defun riece-log-disable ()
-  (define-key riece-command-mode-map "\C-cd" nil)
-  (setq riece-log-enabled nil))
+  (define-key riece-command-mode-map "\C-cd" nil))
 
 (provide 'riece-log)