gistfile1.scm

;; This buffer is for notes you don't want to save, and for Lisp evaluation.
;; If you want to create a file, visit that file with C-x C-f,
;; then enter the text in that file's own buffer.

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

(define-key global-map [8] 'delete-backward-char)
(define-key global-map "\M-?" 'help-command)
(define-key global-map "\M-g" 'goto-line)

(line-number-mode t)
(column-number-mode t)
(transient-mark-mode t)
(tool-bar-mode nil)
(show-paren-mode)
(global-font-lock-mode t)
(blink-cursor-mode nil)

;; buffer list表示後カーソルをそこに移動する。
(define-key ctl-x-map  "\C-b" 'buffer-menu)

;; モードラインに時間表示 月/日 曜日 の場合
(setq display-time-string-forms
      '(24-hours ":" minutes ":" seconds " " month "/" day " " dayname " "))
(display-time)

;; マウスカーソルを消す設定
(setq w32-hide-mouse-on-key t)
(setq w32-hide-mouse-timeout 5000)

;; タブではなくスペースを使う
(setq-default indent-tabs-mode nil)
(setq indent-line-function 'indent-relative-maybe)

;; HOMEに移動する
(cd (expand-file-name "~"))

;; Diredでファイル名の書き換え	
(require 'wdired)
(define-key dired-mode-map "r" 'wdired-change-to-wdired-mode)

;; ;;; Mule-UCS の設定
(require 'jisx0213)

;;; 日本語環境設定
(set-language-environment "Japanese")

;;; IMEの設定
(add-hook 'mw32-ime-on-hook
          (function (lambda () (set-cursor-color "DarkRed"))))
(add-hook 'mw32-ime-off-hook
          (function (lambda () (set-cursor-color "black"))))
(mw32-ime-initialize)
(setq default-input-method "MW32-IME")

;; ;;; カーソルの設定
(set-cursor-type 'box)            ; Meadow-1.10互換 (SKK等で色が変る設定)

;;; マウスカーソルを消す設定
(setq w32-hide-mouse-on-key t)
(setq w32-hide-mouse-timeout 5000)

;; 初期フレームの設定
(setq default-frame-alist
      (append (list '(foreground-color . "black")
		    '(background-color . "white")
		    '(border-color . "black")
		    '(mouse-color . "white")
		    '(cursor-color . "black")
                    '(font . "MS Gothic 18")
		    '(width . 80)
		    '(height . 36)
		    '(top . 0)
		    '(left . 80))
	      default-frame-alist))

(set-face-background 'modeline "RoyalBlue4")
(set-face-foreground 'modeline "yellow2")

;; mini-bufferをリサイズしない
(setq resize-mini-windows nil)

;;; argument-editing の設定
(require 'mw32script)
(mw32script-init)

;;; browse-url の設定
(global-set-key [S-mouse-2] 'browse-url-at-mouse)

;; Meadow-packageのエラーを回避
(setq netinstall-pkg-dir "c:/Meadow/packages")
(setq skk-large-jisyo (expand-file-name "etc/skk/SKK-JISYO.L" 
					  netinstall-pkg-dir))
(setq skk-tut-file (expand-file-name "etc/skk/SKK.tut" 
				       netinstall-pkg-dir))