;;; -*- mode: lisp-interaction; syntax: elisp -*-
;;;

(set-language-environment 'Japanese)  ;read euc-jp,sjis
(set-default-coding-systems 'euc-japan-unix)
(set-terminal-coding-system 'iso-2022-jp) ;console with Nihongo

;; env
(global-font-lock-mode t)
(setq message-log-max nil)
(setq visible-bell t)


;; if window-system=x
;;    you want to specify colors in "/usr/X11R6/lib/X11/rgb.txt",
;;    copy it to "/usr/lib/X11/rgb.txt"
(setq default-frame-alist
      (append (list '(foreground-color . "black")
                    '(background-color . "snow")
		    ;'(background-color . "wheat")
                    '(width . 80)
                    ;'(height . 38)
		    '(height . 29)
                    '(top . 0) 
                    '(left . 0)
                    '(vertical-scroll-bars . nil)
                    ;'(font . "myfontset")
                    )
              default-frame-alist))
; (set-face-background 'modeline "gray30")
; (set-face-foreground 'modeline "black")


;; cc-mode
(defun my-c-mode-common-hook ()
  (c-set-style "java")
  )
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)

(setq auto-mode-alist (append (list
			       '("\\.c\\'" . c++-mode)
			       '("\\.cpp\\'" . c++-mode)
			       '("\\.h\\'" . c++-mode)
			       '("\\.pl\\'" . perl-mode))
			      auto-mode-alist))


;; skk 10.62a
(setq j-delete-backward-char "\C-h" )
(autoload 'skk-mode "skk" nil t)
(global-set-key "\C-x\C-j" 'skk-mode)
(global-set-key "\C-xt" 'skk-undo-kakutei)
 ;(global-set-key "\C-xj" 'skk-auto-fill-mode)
 ;(global-set-key "\C-xt" 'skk-tutorial)

;; skk-incrementSearch when skk-mode only
(add-hook 'isearch-mode-hook
	  (function (lambda ()
		      (and (boundp 'skk-mode) skk-mode
			   (skk-isearch-mode-setup) ))))
(add-hook 'isearch-mode-end-hook
	  (function
	   (lambda ()
	     (and (boundp 'skk-mode) skk-mode (skk-isearch-mode-cleanup))
	     (and (boundp 'skk-mode-invoked) skk-mode-invoked
		  (skk-set-cursor-properly) ))))

(setq skk-large-jisyo "/home/i/bin/skk-jisyo.m")

(setq skk-henkan-okuri-strictly t) ;;\"▽おお*く\" 変換で\"大く\" を出力しない
(setq skk-auto-okuri-process t)  ;;\"▽あつかう\"で 送り仮名つけた"扱う"を出力

(setq skk-rom-kana-rule-list
      '(
	("hh" "h" ("ッ" . "っ"))  ;;"ohhohho"->"おおほおほ"ではなく"おっほっほ"
	("mm" "m" ("ン" . "ん"))
	("di" nil ("ディ" . "でぃ"))
	(":" nil ":")             ;;全角文字の"："にしない
	(";" nil ";")             ;; (skk-rom-kana-base-rule-list の上書き)
	("?" nil "?")
	))
(setq skk-use-look t) ;;英単語の補完
;(setq skk-search-prog-list
;      '((skk-search-jisyo-file skk-jisyo 0 t)
;	(skk-lookup-search)))     ;skk lookup


;; lookup
(autoload 'lookup "lookup" nil t)
(autoload 'lookup-region "lookup" nil t)
(autoload 'lookup-pattern "lookup" nil t)

(define-key ctl-x-map "l" 'lookup)              ; C-x l - lookup
(define-key ctl-x-map "y" 'lookup-region)       ; C-x y - lookup-region
(define-key ctl-x-map "\C-y" 'lookup-pattern)   ; C-x C-y - lookup-pattern
(setq lookup-search-agents
      '(
	(ndeb "/dos/usr/dict/daijirin" :appendix "/dos/usr/dict/appendix/daijirin-2.0")
	(ndeb "/dos/usr/dict/chujiten" :appendix "/dos/usr/dict/appendix/chujiten6-2.3")
	;(ndeb "/home/i/bin/daijirin")
	))
(setq lookup-default-dictionary-options
      '((:stemmer .  stem-english)))
;(setq lookup-use-kakasi t) ;ポイント位置の日本語の単語もそれなりに切り出します
;(setq lookup-default-method 'prefix) ;前方一致検索; not `exact'


;; mew 1.94.2
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-mail-domain-list '("xxxx.or.jp"))
(setq mew-mail-address "itouh@xxxx.or.jp")
;(setq mew-icon-directory "a directory where Mew's image files are installed.")

(autoload 'mew-user-agent-compose "mew" nil t)
(if (boundp 'mail-user-agent)
    (setq mail-user-agent 'mew-user-agent))
(if (fboundp 'define-mail-user-agent)
    (define-mail-user-agent
      'mew-user-agent
      'mew-user-agent-compose
      'mew-draft-send-letter
      'mew-draft-kill
      'mew-send-hook))

(setq mew-fcc "+Backup")




;; japanese word specific dabbrev
         ;Message-Id: <20000807.102524.60851386.gotoh@taiyo.co.jp>
         ;To: meadow-users-jp@meadow.scphys.kyoto-u.ac.jp
         ;Date: Mon, 07 Aug 2000 10:25:24 +0900 (JST)
(defadvice dabbrev-expand (around jword (arg) activate)
  (interactive "*P")
  (let* ((regexp dabbrev-abbrev-char-regexp)
	 (dabbrev-abbrev-char-regexp regexp)
	 char ch)
    (if (bobp)
	()
      (setq char (char-before)
	    ch (char-to-string char))
      (cond
       ((string-match "[ァ-ヶー]" ch)
	(setq dabbrev-abbrev-char-regexp "[ァ-ヶー]"))
       ((string-match "[ぁ-んー]" ch)
	(setq dabbrev-abbrev-char-regexp "[ぁ-んー]"))
       ((string-match "[A-Za-z0-9]" ch)
	(setq dabbrev-abbrev-char-regexp "[A-Za-z0-9]"))
       ((eq (char-charset char) 'japanese-jisx0208)
	(setq dabbrev-abbrev-char-regexp 
	      (concat "["
		      (char-to-string (make-char 'japanese-jisx0208 48 33))
		      "-"
		      (char-to-string (make-char 'japanese-jisx0208 126 126))
		      "]")))))
    ad-do-it))




;; auto-insert LAST-MODIFIED-DATE
(if (not (memq 'time-stamp write-file-hooks))
    (setq write-file-hooks
          (cons 'time-stamp write-file-hooks)))
(setq time-stamp-line-limit 15)
(setq time-stamp-format "%3b %02d %:y")
;(setq time-stamp-start "Time-stamp:[ 	]+\\\\?[\"<]+")
;(setq time-stamp-end "\\\\?[\">]")


(skk-mode)
(buffer-menu)



;; end of file