gistfile1.txt

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

;;; key-bind for cake
;; C-h をバックスペースに変更。
(define-key global-map [8] 'delete-backward-char)
(define-key global-map "\M-?" 'help-command)
(define-key global-map "\M-g" 'goto-line)

;; 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)

;; 行数と文字数を表示する
(line-number-mode t)
(column-number-mode t)

;; 詰め込みの文字数を決める

;; 動的なリージョン指定にする
(transient-mark-mode t)

;; マウスカーソルを消す設定
(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 "~")

;; tool-barは表示しない
(tool-bar-mode nil)

;; カーソルは点滅させない
(blink-cursor-mode nil)

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

;; paren.el
(show-paren-mode t)
;; (setq show-paren-style 'expression)
;; (set-face-background 'show-paren-match-face "ivory")
;; (set-face-bold-p 'show-paren-match-face t)

;; ;;; Mule-UCS の設定
;; ;; ftp://ftp.m17n.org/pub/mule/Mule-UCS/ が オフィシャルサイトですが、
;; ;; http://www.meadowy.org/~shirai/elisp/mule-ucs.tar.gz に既知のパッチ
;; ;; をすべて適用したものがおいてあります。
;; ;; (set-language-environment) の前に設定します
(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)


;;; font-lockの設定
(global-font-lock-mode t)

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

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


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

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

;;; howm
(setq howm-directory (expand-file-name "~/howm/"))
(require 'howm)

;;; elscreen
;;; http://www.morishima.net/~naoto/software/elscreen/index.php.ja
(require 'elscreen-howm)
(require 'elscreen-dnd)
(setq howm-view-summary-persistent nil)

;; calendarから日付を入力
(eval-after-load "calendar"
  '(progn
     (define-key calendar-mode-map
       "\C-m" 'my-insert-day)
     (defun my-insert-day ()
       (interactive)
       (let* ((calendar-date-display-form
               '("[" year "-" (format "%02d" (string-to-int month))
                 "-" (format "%02d" (string-to-int day)) "]"))
              (day (calendar-date-string
                    (calendar-cursor-to-date t))))
         (exit-calendar)
         (insert day)))))

;; skk package work-around
(let ((netinstall-pkg-dir "c:/Meadow3/packages/"))
  (setq skk-large-jisyo (expand-file-name "etc/skk/SKK-JISYO.L" 
					  netinstall-pkg-dir))
  (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)))