;;;; -*- mode: emacs-lisp; coding: iso-2022-7bit -*-

 ;; meadow/cygwin

 (setq exec-path (append exec-path

                         '("c:/cygwin/bin"

                           "c:/cygwin/sbin"

                           "c:/cygwin/usr/local/bin"

                           "c:/Progra~2/Maxima-5.25.1/bin")))

 (setq load-path (append load-path '("c:/cygwin/home/swk/lib/elisp"

                                     "c:/cygwin/home/swk/lib/elisp/imaxima")))

 ;; MULE-UCS; must be put before set-language-environment

 (require 'jisx0213)

 ;; lang

 (set-language-environment "Japanese")

 ;; ime

 (setq default-input-method "MW32-IME")

 (setq-default mw32-ime-mode-line-state-indicator "[--]")

 (setq mw32-ime-mode-line-state-indicator-list '("[--]" "[$B$"(B]" "[--]"))

 (mw32-ime-initialize)

 (add-hook 'mw32-ime-on-hook '(lambda () (set-cursor-color "green")))

 (add-hook 'mw32-ime-off-hook '(lambda () (set-cursor-color "black")))

 (wrap-function-to-control-ime 'y-or-n-p nil nil)

 (wrap-function-to-control-ime 'yes-or-no-p nil nil)

 (global-set-key "\C-o" 'toggle-input-method)

 ;; mouse cursor

 (setq w32-hide-mouse-on-key t)

 (setq w32-hide-mouse-timeout 5000)

 ;; initial frame

 (setq default-frame-alist

       (append (list '(foreground-color . "black")

 		    '(background-color . "white")

 		    '(border-color . "black")

 		    '(mouse-color . "white")

 		    '(cursor-color . "black")

 		    '(width . 80)

 		    '(height . 40)

 		    '(top . 10)

 		    '(left . 380))

 	      default-frame-alist))

 ;; fakecygpty

 (setq mw32-process-wrapper-alist

      '(("/\\(ssh\\|bash\\|tcsh\\|gpg[esvk]?\\)\\.exe" .

 	 (nil . "fakecygpty.exe"))))

 ;;; argument-editing

 (require 'mw32script)

 (mw32script-init)

 ;; printing: use ps-print-{buffer,region}[-with-faces]

 (setq ps-multibyte-buffer 'non-latin-printer)

 (setq ps-lpr-command "c:/Program Files (x86)/Ghostgum/gsview/gsview32.exe")

 (setq ps-lpr-switches nil)

 (setq ps-printer-name nil)

 (setq ps-printer-name-option nil)

 (setq ps-paper-type 'a4)

 (setq ps-line-number t

       ps-print-header t

       ps-landscape-mode t

       ps-number-of-columns 2)

 ;;printing in mew: use mew-summary-print (# key)

 (setq mew-print-function 

       '(lambda (&rest args) 

          (let ((ps-left-header (list "(Mail Message)" nil)))

            (apply 'ps-print-buffer-with-faces args))))

 ;; imaxima

 (autoload 'imaxima "imaxima" "Image support for Maxima." t)

 (autoload 'imath-mode "imath" "Interactive Math minor mode." t)

 (setq imaxima-gs-program "gswin32c.exe")

 (setq imaxima-tmp-dir "C:/Tmp")

 (setq imaxima-use-maxima-mode-flag t)

 (setq imaxima-image-type 'png)

 (eval-after-load "maxima"

   '(define-key inferior-maxima-mode-map "\C-c\t" 

                'inferior-maxima-complete))

 ;; basic preferences

 (require 'gnuserv)

 (gnuserv-start)

 (setq gnuserv-frame (selected-frame))

 (tool-bar-mode -1)

 (menu-bar-mode -1)

 (column-number-mode t)

 (global-font-lock-mode t)

 (show-paren-mode nil)

 (set-face-background 'show-paren-match-face "lightpink")

 (setq text-mode-hook '(lambda () (auto-fill-mode 1)))

 (setq-default fill-column 70)

 (setq-default indent-tabs-mode nil)

 (setq kill-whole-line nil)

 (define-key minibuffer-local-completion-map "\C-w" 'backward-kill-word)

 (require 'uniquify)

 (setq uniquify-buffer-name-style 'post-forward-angle-brackets)

 ;; sdic

 (setq sdic-eiwa-dictionary-list

       '((sdicf-client "c:/local/eijiro/sdic_sufary/eiji.sdic")

         (sdicf-client "c:/local/eijiro/sdic_sufary/reiji.sdic")

         (sdicf-client "c:/local/eijiro/sdic_sufary/ryaku.sdic")))

 (setq sdic-waei-dictionary-list

       '((sdicf-client "c:/local/eijiro/sdic_sufary/waei.sdic")))

 (if (or (boundp 'sdic-eiwa-dictionary-list)

         (boundp 'sdic-waei-dictionary-list))

     (progn

       (autoload 'sdic-describe-word "sdic" "sdic" t nil)

       (autoload 'sdic-describe-region "sdic" "sdic" t nil)

       (global-set-key "\C-cw" 'sdic-describe-word)

       (global-set-key "\C-cr" 'sdic-describe-region)

       (setq sdic-default-coding-system 'euc-japan-unix)

       (setq sdic-window-height 20)

       (setq sdic-face-style 'bold)

       (setq sdic-face-color "firebrick4")

       (defadvice sdic-describe-word 

         (after highlight-phrase-sdic (word &optional search-function) activate)

         (let ((w (replace-regexp-in-string "[/*']" "" word)))

           (unhighlight-regexp w)

           (highlight-phrase w "hi-yellow")))))

 ;; shell

 (setq explicit-shell-file-name "zsh")

 (setq shell-file-name "zsh")

 (setq shell-command-switch "-c") 

 ;; dev env

 (global-set-key "\C-c\C-i" 'complete-symbol)

 (global-set-key "\C-cc" 'compile)

 (setq compile-command "make ")

 (setq compilation-scroll-output t)

 (add-hook 'c-mode-common-hook

 	  '(lambda ()

 	     (c-set-style "K&R")

              (setq c-basic-offset 4)))

 ;; sig

 (load "sig.el")

 (setq signature-file-list

   '("~/.sig-shortest"

     "~/.sig-O"

     "~/.sig-Oe"

     "~/.sig-o-short"))

 (wrap-function-to-control-ime 'mail-signature-interactive t "P")

 ;; mhc

 (load (expand-file-name "~/.mhc.el"))

 ;; comment

 (global-set-key "\C-c>" 'comment-region)

 (global-set-key "\C-c<" 'uncomment-region)

 (setq comment-style 'multi-line)

 ;; time

 (defun insert-current-date-string (arg)

   (interactive "P")

   (insert (let ((system-time-locale "C"))

    (format-time-string (if arg "%Y-%m-%d" "%a %b %e, %Y") (current-time)))))

 (global-set-key "\e&" 'insert-current-date-string)

 ;; latex

 (add-hook 'latex-mode-hook 

           '(lambda () 

              (setq tex-verbatim-face nil) 

              (defun tex-font-lock-suscript () nil)))