* riece-skk-kakutei.el: New add-on.
authorkaoru <kaoru>
Wed, 20 Aug 2003 15:37:23 +0000 (15:37 +0000)
committerkaoru <kaoru>
Wed, 20 Aug 2003 15:37:23 +0000 (15:37 +0000)
* COMPILE (riece-modules): Add riece-skk-kakutei.
* Makefile.am (EXTRA_DIST): Add riece-skk-kakutei.el

lisp/COMPILE
lisp/ChangeLog
lisp/Makefile.am
lisp/riece-skk-kakutei.el [new file with mode: 0644]

index 0232d62..f529579 100644 (file)
@@ -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)))
index f515e88..f80a1b8 100644 (file)
@@ -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>
 
index 34f3974..745e3cc 100644 (file)
@@ -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 (file)
index 0000000..9aa95c4
--- /dev/null
@@ -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