;;; -*- Coding: iso-2022-7bit -*-
;;;NIPPONGO
(set-language-environment "Japanese")
(cond
 ((equal window-system 'win32)
  (load "win32fontset")
  (load "menu-jp")
))


;;;WINDOW SIZE & COLOR
(setq default-frame-alist
 (append (list '(fontset. "Gothic-8")
               '(width . 55)
               '(height . 20)
               '(foreground-color. "black")
               '(background-color. "NavajoWhite")
         )
         default-frame-alist)
 )


;;;IME
(mw32-ime-initialize)
(setq default-input-method "MW32-IME")
(setq mw32-ime-show-mode-line t)
(setq-default mw32-ime-mode-line-state-indicator "[--]")
(setq mw32-ime-mode-line-state-indicator "[--]")
(setq mw32-ime-mode-line-state-indicator-list
      '("[--]" "[あ]" "[--]"))
(wrap-function-to-control-ime 'y-or-n-p nil nil)
(wrap-function-to-control-ime 'yes-or-no-p nil nil)
;;;C-c C-jで単語登録
;;;登録したい文字列のはじめをマーク(c-@)して、
;;;登録したい部分の最後までカーソルを移動してからC-c C-j
(global-set-key"\C-c\C-j"'mw32-ime-toroku-region)


;;;Time Stamp
(defun taka-timestamp-insert()
 (interactive)
 (insert "\{"(current-time-string)":}")
 (backward-char))
(global-set-key "\C-c\C-d"'taka-timestamp-insert)


;;;Initial dir
(cd "g:/My Documents/")



;; ;;; 印刷の設定
;; ;; この設定で M-x print-buffer RET などでの印刷ができるようになります
;; ;;
;; ;;  notepad に与えるパラメータの形式の設定
;; (define-process-argument-editing "notepad"
;;   (lambda (x) (general-process-argument-editing-function x nil t)))
;;
;; (defun w32-print-region (start end
;; 			       &optional lpr-prog delete-text buf display
;; 			       &rest rest)
;;   (interactive)
;;   (let ((tmpfile (expand-file-name (make-temp-name "w32-print-")
;; 				   temporary-file-directory))
;; 	(coding-system-for-write w32-system-coding-system))
;;     (write-region start end tmpfile nil 'nomsg)
;;     (call-process "notepad" nil nil nil "/p" tmpfile)
;;     (and (file-writable-p tmpfile) (delete-file tmpfile))))
;;
;; (setq print-region-function 'w32-print-region)