From 263d0f1a3c515d2286e6113a5a48e79e0d4ed568 Mon Sep 17 00:00:00 2001
From: kaoru <kaoru>
Date: Wed, 20 Aug 2003 15:37:23 +0000
Subject: [PATCH] * riece-skk-kakutei.el: New add-on. * COMPILE
 (riece-modules): Add riece-skk-kakutei. * Makefile.am
 (EXTRA_DIST): Add riece-skk-kakutei.el

---
 lisp/COMPILE              |    3 +-
 lisp/ChangeLog            |    6 +++-
 lisp/Makefile.am          |    2 +-
 lisp/riece-skk-kakutei.el |   68 +++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 76 insertions(+), 3 deletions(-)
 create mode 100644 lisp/riece-skk-kakutei.el

diff --git a/lisp/COMPILE b/lisp/COMPILE
index 0232d62..f529579 100644
--- a/lisp/COMPILE
+++ b/lisp/COMPILE
@@ -48,7 +48,8 @@
 		riece-unread
 		riece-doctor
 		riece-alias
-		riece-layout))))
+		riece-layout
+		riece-skk-kakutei))))
 
 (defun riece-compile-modules (modules)
   (let ((load-path (cons nil load-path)))
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f515e88..f80a1b8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,11 @@
 2003-08-20  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* riece-display.el (riece-configure-windows-top): New function.
-	* riece-layout.el: New add-on.
+	* riece-layout.el (riece-layout-alist): Add top.
+
+	* riece-skk-kakutei.el: New add-on.
+	* COMPILE (riece-modules): Add riece-skk-kakutei.
+	* Makefile.am (EXTRA_DIST): Add riece-skk-kakutei.el
 
 2003-08-19  Daiki Ueno  <ueno@unixuser.org>
 
diff --git a/lisp/Makefile.am b/lisp/Makefile.am
index 34f3974..745e3cc 100644
--- a/lisp/Makefile.am
+++ b/lisp/Makefile.am
@@ -8,7 +8,7 @@ EXTRA_DIST = COMPILE ChangeLog ChangeLog.Liece \
 	riece-xemacs.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-doctor.el riece-alias.el riece-layout.el riece-skk-kakutei.el
 
 CLEANFILES = auto-autoloads.el custom-load.el *.elc
 FLAGS ?= -batch -q -no-site-file
diff --git a/lisp/riece-skk-kakutei.el b/lisp/riece-skk-kakutei.el
new file mode 100644
index 0000000..9aa95c4
--- /dev/null
+++ b/lisp/riece-skk-kakutei.el
@@ -0,0 +1,68 @@
+;;; riece-skk-kakutei.el --- add-on skk-kakutei
+;; Copyright (C) 2003 TAKAHASHI Kaoru
+
+;; Author: TAKAHASHI "beatmaria" Kaoru <kaoru@kaisei.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 deny SKK's sankaku send.
+
+;; To use, add the following line to your ~/.riece/init.el:
+;; (add-to-list 'riece-addons 'riece-skk-kakutei)
+
+;;; Code:
+
+(defun riece-skk-kakutei-command-enter-message ()
+  "Send the current line to the current channel."
+  (interactive)
+  (when (riece-skk-kakutei)
+    (riece-command-enter-message)))
+
+(defun riece-skk-kakutei-command-enter-message-as-notice ()
+  "Send the current line to the current channel as NOTICE."
+  (interactive)
+  (when (riece-skk-kakutei)
+    (riece-command-enter-message-ad-notice)))
+
+(defun riece-skk-kakutei ()
+  "When required after-follow return `t'."
+  (interactive)
+  (cond ((or (not (boundp 'skk-mode)) (not skk-mode))
+	 t)
+	((and (boundp 'skk-henkan-mode) (not skk-henkan-mode))
+	 t)
+	((and (boundp 'skk-henkan-on) (not skk-henkan-on))
+	 t)
+	(skk-egg-like-newline
+	 (skk-kakutei)
+	 nil)
+	(t
+	 (skk-kakutei)
+	 t)))
+
+(defun riece-skk-kakutei-insinuate ()
+  (riece-define-keys riece-command-mode-map
+    "\r" riece-skk-kakutei-command-enter-message
+    [(control return)] riece-skk-kakutei-command-enter-message-as-notice))
+
+(provide 'riece-skk-kakutei)
+
+;;; riece-skk-kakutei.el ends here
-- 
1.7.10.4