cgit.sxemacs.org Git - packages/blob - mule-packages/skk/skk-develop.el

   1 ;;; skk-develop.el --- support SKK developper.
   2 ;; Copyright (C) 1999 Mikio Nakajima <minakaji@osaka.email.ne.jp>
   3
   4 ;; Author: Mikio Nakajima <minakaji@osaka.email.ne.jp>
   5 ;; Maintainer: Mikio Nakajima <minakaji@osaka.email.ne.jp>
   6 ;; Version: $Id: skk-develop.el,v 1.2 2000-11-08 01:51:43 youngs Exp $
   7 ;; Keywords: japanese
   8 ;; Last Modified: $Date: 2000-11-08 01:51:43 $
   9
  10 ;; This file is not part of SKK yet.
  11
  12 ;; SKK is free software; you can redistribute it and/or modify
  13 ;; it under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation; either versions 2, or (at your option)
  15 ;; any later version.
  16
  17 ;; SKK is distributed in the hope that it will be useful
  18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;; GNU General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with SKK, see the file COPYING.  If not, write to the Free
  24 ;; Software Foundation Inc., 59 Temple Place - Suite 330, Boston,
  25 ;; MA 02111-1307, USA.
  26
  27 ;;; Commentary:
  28
  29 ;;; Code:
  30 (require 'skk)
  31
  32 (defconst skk-ml-address "skk@ring.gr.jp")
  33
  34 ;;;###autoload
  35 (defun skk-submit-bug-report ()
  36   "SKK \e$B$N%P%0%l%]!<%H$r=q$/%a!<%k%P%C%U%!$rMQ0U$9$k!#\e(B
  37 mail-user-agent \e$B$r@_Dj$9$k$3$H$K$h$j9%$_$N%a!<%k%$%s%?!<%U%'%$%9$r;HMQ$9$k$3$H\e(B
  38 \e$B$,$G$-$k!#Nc$($P!"\e(BWanderlust \e$B$r;HMQ$7$?$$>l9g$O2<5-$N$h$&$K@_Dj$9$k!#\e(B
  39
  40     \(setq mail-user-agent 'wl-user-agent\) "
  41   (interactive)
  42   (require 'reporter)
  43   (if (not (skk-y-or-n-p
  44             "SKK \e$B$K$D$$$F$N%P%0%l%]!<%H$r=q$-$^$9$+!)\e(B "
  45             "Do you really want to write a bug report on SKK? " ))
  46       nil
  47     (reporter-submit-bug-report
  48      skk-ml-address
  49      (concat "skk.el " (skk-version)
  50              (if (or (and (boundp 'skk-servers-list) skk-servers-list)
  51                      (or (and (boundp 'skk-server-host) skk-server-host)
  52                          (getenv "SKKSERVER") )
  53                      ;; refer to DEFAULT_JISYO when skk-server-jisyo is nil.
  54                      ;;(or (and (boundp 'skk-server-jisyo) skk-server-jisyo)
  55                      ;;    (getenv "SKK_JISYO") )))
  56                      )
  57                  (progn
  58                    (require 'skk-server)
  59                    (concat ", skkserv; " (skk-server-version)
  60                            (if (getenv "SKKSERVER")
  61                                (concat ",\nSKKSERVER; "
  62                                        (getenv "SKKSERVER") ))
  63                            (if (getenv "SKKSERV")
  64                                (concat ", SKKSERV; "
  65                                        (getenv "SKKSERV") ))))))
  66      (let ((base (list 'window-system
  67                        'skk-auto-okuri-process
  68                        'skk-auto-start-henkan
  69                        'skk-egg-like-newline
  70                        'skk-henkan-okuri-strictly
  71                        'skk-henkan-strict-okuri-precedence
  72                        'skk-kakutei-early
  73                        'skk-process-okuri-early
  74                        'skk-search-prog-list
  75                        'skk-use-face
  76                        'skk-use-viper )))
  77        (and (boundp 'skk-henkan-face)
  78             (setq base (append base '(skk-henkan-face))) )
  79        (and (boundp 'skk-server-host)
  80             (setq base (append base '(skk-server-host))) )
  81        (and (boundp 'skk-server-prog)
  82             (setq base (append base '(skk-server-prog))) )
  83        (and (boundp 'skk-servers-list)
  84             (setq base (append base '(skk-servers-list))) )
  85        base ))))
  86
  87 (eval-after-load "edebug"
  88   '(progn
  89      (def-edebug-spec skk-save-point t)
  90      (def-edebug-spec skk-with-point-move t)
  91      ))
  92
  93 (eval-after-load "hilit19"
  94   '(mapcar (function
  95             (lambda (pattern)
  96               (hilit-add-pattern
  97                (car pattern) (cdr pattern)
  98                (cond ((eq skk-background-mode 'mono)
  99                       'bold )
 100                      ((eq skk-background-mode 'light)
 101                       'RoyalBlue )
 102                      (t 'cyan) )
 103                'emacs-lisp-mode )))
 104            '(("^\\s *(skk-deflocalvar\\s +\\S +" . "")
 105              ("^\\s *(skk-defun-cond\\s +\\S +" . "")
 106              ("^\\s *(skk-defsubst-cond\\s +\\S +" . "") )))
 107
 108 (eval-after-load "font-lock"
 109   '(setq lisp-font-lock-keywords-2
 110          (nconc
 111           '(("^(\\(skk-defun-cond\\)[ \t'\(]*\\(\\sw+\\)?"
 112              (1 font-lock-keyword-face)
 113              (2 font-lock-variable-name-face) )
 114             ("^(\\(skk-defsubst-cond\\)[ \t'\(]*\\(\\sw+\\)?"
 115              (1 font-lock-keyword-face)
 116              (2 font-lock-variable-name-face) )
 117             ("^(\\(skk-deflocalvar\\)[ \t'\(]*\\(\\sw+\\)?"
 118              (1 font-lock-keyword-face)
 119              (2 font-lock-variable-name-face) ))
 120           lisp-font-lock-keywords-2 )))
 121
 122 (provide 'skk-develop)
 123 ;;; Local Variables:
 124 ;;; End:
 125 ;;; skk-develop.el ends here