;;; -*- mode: lisp-interaction; syntax: elisp -*-
;;;
;;; for `Mule for Win32 v1.22'


(load "win32dropfiles")

;; display time
;(setq display-time-day-and-date t)
;(setq display-time-24hr-format nil) ;24hr-format==20:00 or nil==8:00pm
;(display-time)

;; font
; 95toXfont
(win32-add-fontset "myfontset" 9 18 0 0)     ;included all of same size
(win32-add-font "default" *sjis* "myfontset") ;a part of the fontset
(win32-change-font-property "default" 0
			    '("FixedSys" 0 -19 400 0 nil nil 128 1 1 1)
			    "myfontset")               ;normal Logfont
(win32-change-font-property "default" 1
			    '("FixedSys" 0 -19 700 0 nil nil 128 1 1 1)
			    "myfontset")               ;bold Logfont
(win32-change-font-property "default" 2
			    '("FixedSys" 0 -19 400 0 nil nil 128 1 1 1)
			    "myfontset")               ;italic Logfont
(win32-change-font-property "default" 3
			    '("FixedSys" 0 -19 700 0 nil nil 128 1 1 1)
			    "myfontset")               ;bold&italic  Logfont

; Lucida console 11
(win32-add-fontset "lucida11" 9 16 0 0)
(win32-add-font "default" *sjis* "lucida11")
(win32-change-font-property "default" 0
			    '("Lucida Console" 0 -15 400 0 nil nil 0 1 3 49)
			    "lucida11")           ;normal Logfont
(win32-change-font-property "default" 1
			    '("Lucida Console" 0 -15 700 0 nil nil 0 1 3 49)
			    "lucida11")           ;bold Logfont
(win32-change-font-property "default" 2
			    '("Lucida Console" 0 -15 400 0 nil nil 0 1 3 49)
			    "lucida11")           ;italic Logfont
(win32-change-font-property "default" 3
			    '("Lucida Console" 0 -15 700 0 nil nil 0 1 3 49)
			    "lucida11")           ;bold&italic  Logfont

;; 95knmfont
(win32-add-fontset "term10pt" 6 14 0 0)
(win32-add-font "default" *sjis* "term10pt")
(win32-change-font-property "default" 0
			    '("Terminal" 0 -13 400 0 nil nil 128 1 1 49)
			    "term10pt") ;normal
(win32-change-font-property "default" 1
			    '("Terminal" 0 -13 700 0 nil nil 128 1 1 49)
			    "term10pt") ;bold
(win32-change-font-property "default" 2
			    '("Terminal" 0 -13 400 0 nil nil 128 1 1 49)
			    "term10pt") ;(italic)normal
(win32-change-font-property "default" 3
			    '("Terminal" 0 -13 700 0 nil nil 128 1 1 49)
			    "term10pt") ;(italic & )bold



(setq default-frame-alist (append (list
				   '(width . 80)
				   '(height . 34)
				   '(top . 1)
				   '(left . 1)
				   '(font . "default")
				   '(vertical-scroll-bars . nil)
				        ;'(fontset . "myfontset")
				   '(fontset . "term10pt")
					;'(cursor-type . bar)
				   '(cursor-color . "white")
					;'(cursor-color . "black")
				   '(background-color . "black")
					;'(background-color . "LightGrey")
					;'(foreground-color . "black")
				   '(foreground-color . "lightgrey")
				   ) default-frame-alist))
(set-face-background 'modeline "grey")
(set-face-foreground 'modeline "black")

;; skk
(setq load-path
      (cons (expand-file-name
	     (concat exec-directory "../site-lisp/skk"))
	    load-path))
(setq j-delete-backward-char "\C-h")
(global-set-key "\C-x\C-j" 'skk-mode)
	;(global-set-key "\C-xj" 'skk-auto-fill-mode)
	;(global-set-key "\C-xt" 'skk-tutorial)
(autoload 'skk-mode "skk" nil t)
	;(autoload 'skk-tutorial "skk-tut" nil t)
	;(autoload 'skk-check-jisyo "skk-tools" nil t)
	;(autoload 'skk-merge "skk-tools" nil t)
	;(autoload 'skk-diff "skk-tools" nil t)
	;(setq skk-tut-file "/usr/mule2/site-lisp/skk/SKK.tut")
(autoload 'skk-isearch-mode-setup "skk-isearch" nil t)
(autoload 'skk-isearch-mode-cleanup "skk-isearch" nil t)
(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)
			   (skk-set-cursor-color-properly)))))

(setq skk-large-jisyo "C:/bin/mule2/site-lisp/skk/SKK-JISYO.M")
;(setq skk-large-jisyo "/usr/mule2/site-lisp/skk/SKK-JISYO.L")
(setq skk-roma-kana-i
  '(("" . ("い" . "イ"))
    ("b" . ("び" . "ビ")) ("by" . ("びぃ" . "ビィ"))
    ("ch" . ("ち" . "チ")) ("cy" . ("ちぃ" . "チィ"))
    ("d" . ("でぃ" . "ディ")) ("dh" . ("でぃ" . "ディ"))
    ("dy" . ("でぃ" . "ディ"))
    ("f" . ("ふぃ" . "フィ")) ("fy" . ("ふぃ" . "フィ"))
    ("g" . ("ぎ" . "ギ")) ("gy" . ("ぎぃ" . "ギィ"))
    ("h" . ("ひ" . "ヒ")) ("hy" . ("ひぃ" . "ヒィ"))
    ("j" . ("じ" . "ジ")) ("jy" . ("じぃ" . "ジィ"))
    ("k" . ("き" . "キ")) ("ky" . ("きぃ" . "キィ"))
    ("m" . ("み" . "ミ")) ("my" . ("みぃ" . "ミィ"))
    ("n" . ("に" . "ニ")) ("ny" . ("にぃ" . "ニィ"))
    ("p" . ("ぴ" . "ピ")) ("py" . ("ぴぃ" . "ピィ"))
    ("r" . ("り" . "リ")) ("ry" . ("りぃ" . "リィ"))
    ("s" . ("し" . "シ")) ("sh" . ("し" . "シ"))
    ("sy" . ("しぃ" . "シィ"))
    ("t" . ("てぃ" . "ティ")) ("th" . ("てぃ" . "ティ"))
    ("ty" . ("ちぃ" . "チィ"))
    ("v" . ("う゛ぃ" . "ヴィ")) ("w" . ("うぃ" . "ウィ"))
    ("x" . ("ぃ" . "ィ")) ("xw" . ("ゐ" . "ヰ"))
    ("z" . ("じ" . "ジ")) ("zy" . ("じぃ" . "ジィ"))))
(setq skk-rom-kana-rule-list
      '(("nn" nil ("ン" . "ん"))   ;;defalut
	("n'" nil ("ン" . "ん"))   ;;defalut
	("oh" "h" ("" . "")) ))    ;;hohhohho  ==> ほっほっほ(not ほおほおほ)
(setq skk-input-vector
  [nil  nil  nil  nil  nil  nil  nil  nil  ;7
   nil  nil  nil  nil  nil  nil  nil  nil  ;15
   nil  nil  nil  nil  nil  nil  nil  nil  ;23
   nil  nil  nil  nil  nil  nil  nil  nil  ;31
   nil  nil  nil  nil  nil  nil  nil  nil  ;39
   nil  nil  nil  nil  "、" "ー" "。" nil  ;47
   nil  nil  nil  nil  nil  nil  nil  nil  ;55
   nil  nil  nil  nil  nil  nil  nil  nil  ;63
   nil  nil  nil  nil  nil  nil  nil  nil  ;71
   nil  nil  nil  nil  nil  nil  nil  nil  ;79
   nil  nil  nil  nil  nil  nil  nil  nil  ;87
   nil  nil  nil  "「" nil  "」" nil  nil  ;95
   nil  nil  nil  nil  nil  nil  nil  nil  ;103
   nil  nil  nil  nil  nil  nil  nil  nil  ;111
   nil  nil  nil  nil  nil  nil  nil  nil  ;119
   nil  nil  nil  nil  nil  nil  nil  nil] ;127
)                                  ;; "！" "：" "；" "？"を全角文字にしない
(setq skk-henkan-okuri-strictly t) ;;\"▽おお*く\" 変換で\"大く\" を出力しない
;(skk-undo-kakutei "\C-")   ;;いったん確定した'高校'を選択しなおす
(setq skk-auto-okuri-process t)  ;;\"▽あつかう\"で、送り仮名つけた"扱う"を出力


;; skk color (document is in skk-e19.el)
;(skk-make-face 'white/black) ;; 変換途中
(setq skk-henkan-face 'white/black) ;; 変換途中
;(setq skk-kana-cursor-color "blue") ;; かな
;(setq skk-katakana-cursor-color "darkgreen") ;;カナ
;(setq skk-ascii-cursor-color "gray") ;;ascii



;;; cpp-mode
;; putting -*- cpp -*- on the first two lines, automatically
;; this mode is derived from linux-c-mode
(defun cpp-mode ()
  "C mode with K&R-style and tab-width 8"
  (interactive)
  (c++-mode)
  (setq c-indent-level 8)
  (setq c-brace-imaginary-offset 0)
  (setq c-brace-offset -8)
  (setq c-argdecl-indent 8)
  (setq c-label-offset -8)
  (setq c-continued-statement-offset 8)
;  (setq indent-tabs-mode nil) ; linux-c-mode
  (setq indent-tabs-mode t)
  (setq tab-width 8))
	;(setq auto-mode-alist

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

;;; highlight
(cond (window-system
      (setq hilit-mode-enable-list  '(not text-mode)
	    hilit-background-mode   'dark  ;light
	    hilit-inhibit-hooks     nil
	    hilit-inhibit-rebinding nil)
      (require 'hilit19)
))

;;; calender / diary _ ja
(setq load-path
      (cons (expand-file-name
	     (concat exec-directory "../site-lisp"))
	    load-path))
(setq calendar-load-hook
'(lambda nil
   (load "japanese-holidays" t)
   (setq calendar-holidays japanese-holidays)
   ))


;;; lookup
(setq load-path
      (cons (expand-file-name
	     (concat exec-directory "../site-lisp/lookup"))
	    load-path))
(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
(define-key global-map "\C-ce" 'lookup-pattern)
(setq lookup-search-agents
           '((ndeb "d:/dic/chujiten" :appendix "d:/dic/appendix/chujiten")
             (ndeb "d:/dic/daijirin" :appendix "d:/dic/appendix/daijirin")
))
(setq lookup-default-dictionary-options
      '((:stemmer .  stem-english)))




;;; Mew Easy Settings (generated automatically)
(if (file-exists-p
     (concat exec-directory "../site-lisp/mew"))
    (setq load-path		; Mule for Windows and site-lisp exists
	  (cons (expand-file-name (concat exec-directory "../site-lisp/mew"))
		load-path))
  (setq load-path		; Mule for Windows and site-lisp do not exist
	(cons (expand-file-name (concat exec-directory "../lisp")) load-path)))

(setq mew-mail-address "itouh@xxx.or.jp")
(setq mew-mail-domain-list '("xxx.or.jp"))

(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(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-cc nil)
(setq mew-fcc "+Backup")

;; modify Cc:
;(setq mew-replyto-to-list '("Reply-To:"))
;(setq mew-replyto-cc-list '("To:" "Apparently-To:"))

(setq mew-from "Itou Hiroki <itouh@xxx.or.jp>")

;; offline mode
;(setq mew-auto-get nil)
(setq mew-auto-get t)
;(setq mew-auto-flush-queue t)


;; caesar decryption
;(add-hook 'mew-init-hook (lambda () (require 'mew-caesar)))

;; virtual threading
;(eval-after-load "mew" '(require 'mew-virtual-thread))

;; colorful highlighting
;(eval-after-load "mew" '(require 'mew-cite-color))

;; Another Mew search method, powered by Namazu.
;(eval-after-load "mew" '(require 'mew-nmz))
;(setq mew-nmz-use-backslash t) ; for Win32 environment

;; browse-url
;(require 'mew-browse)
;(define-key global-map [S-mouse-2] 'browse-url-at-mouse)

;; illegal subject (CAUTION : This behavior is OUT OF RFC SPECIFICATION!)
(setq mew-decode-quoted t)

;; fake CDP: (CAUTION: This behavior is OUT OF RFC SPECIFICATION!)
;;(eval-after-load "mew" '(load "mew-fake-cdp"))

;; password caching
;(setq mew-use-cached-passwd t) ; imget's password
;(setq mew-use-pgp-cached-passphrase t) ; PGP/GPG's passphrase
(setq mew-passwd-timer-unit 100) ; timer-unit x lifetime
(setq mew-passwd-lifetime 200)    ;    = interval(sec) of flushing cache.


;; end of file