1 ;;; navi2ch-migemo.el --- migemo support for Navi2ch
3 ;; Copyright (C) 2002 by Navi2ch Project
5 ;; Author: Nanashi San <nanashi@users.sourceforge.net>
6 ;; Keywords: 2ch, network, matching
8 ;; This file is free software; you can redistribute it and/or modify
9 ;; it under the terms of the GNU General Public License as published by
10 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; This file is distributed in the hope that it will be useful,
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;; GNU General Public License for more details.
18 ;; You should have received a copy of the GNU General Public License
19 ;; along with GNU Emacs; see the file COPYING. If not, write to
20 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 ;; Boston, MA 02111-1307, USA.
25 ;; To use this module, put following code into your `~/.navi2ch/init.el':
26 ;; (require 'navi2ch-migemo)
29 (provide 'navi2ch-migemo)
31 ;; migemo
\e$B$,$J$/$F$b%3%s%Q%$%k$G$-$k$h$&$K!#
\e(B
32 (eval '(require 'migemo))
34 (require 'navi2ch-search)
36 (defvar navi2ch-migemo-enable t
37 "*
\e$B8!:w%Q%?!<%s$K
\e(Bmigemo
\e$B$rE,MQ$9$k$+$I$&$+!#
\e(B")
39 (defadvice navi2ch-search-board-subject-regexp
40 (before navi2ch-migemo-search-board-subject-regexp activate)
41 "
\e$B8!:w%Q%?!<%s$K
\e(Bmigemo
\e$B$rE,MQ$9$k!#
\e(B"
42 (if navi2ch-migemo-enable
43 (ad-set-arg 1 (migemo-get-pattern (ad-get-arg 1)))))
45 (defadvice navi2ch-search-article-regexp
46 (before navi2ch-migemo-search-article-regexp activate)
47 "
\e$B8!:w%Q%?!<%s$K
\e(Bmigemo
\e$B$rE,MQ$9$k!#
\e(B"
48 (if navi2ch-migemo-enable
49 (ad-set-arg 1 (migemo-get-pattern (ad-get-arg 1)))))
51 (defun navi2ch-migemo-toggle-enable ()
52 (setq navi2ch-migemo-enable (not navi2ch-migemo-enable)))
54 ;;; navi2ch-migemo.el ends here