.emacs（自宅のvista）（2010/7/14）

; -*- Mode: Emacs-Lisp ; Coding: utf-8 -*-

;; ----------------------------------------------
;; @ basic coding system（コーディング システム）

   ;; 日本語入力のための設定
   (set-keyboard-coding-system 'japanese-shift-jis)


;; -----------
;; @ basic IME

   ;; 標準IMEの設定
   (setq default-input-method "W32-IME")

   ;; IMEの初期化
   (w32-ime-initialize)

   ;; IME ON/OFF時のカーソルカラー
   (add-hook 'input-method-activate-hook

             (lambda() (set-cursor-color "green")))
   (add-hook 'input-method-inactivate-hook
             (lambda() (set-cursor-color "red")))

   ;; バッファ切り替え時にIME状態を引き継ぐ
   (setq w32-ime-buffer-switch-p nil)



;======================================================================
; cuaモード
;======================================================================
(setq cua-enable-cua-keys nil)
(cua-mode t)



;======================================================================
; 言語・文字コード関連の設定
;======================================================================
(when (equal emacs-major-version 21) (require 'un-define))

(set-language-environment "Japanese")
(set-terminal-coding-system 'sjis-dos)
;(set-keyboard-coding-system 'utf-8)
(set-buffer-file-coding-system 'sjis-dos)
(setq default-buffer-file-coding-system 'sjis-dos)

(prefer-coding-system 'sjis-dos)
(set-default-coding-systems 'sjis-dos)
(setq file-name-coding-system 'sjis-dos)


;======================================================================
; Anthy

;    CTRL-\で入力モード切替え
;======================================================================
;;;20100519 Saka Chg Start
;(load-library "anthy")
;(setq default-input-method "japanese-anthy")


; anthy.el のロードパスを追加
;(push "/usr/share/emacs/site-lisp/anthy/" load-path)

; anthy.el をロードする
;(load-library "leim-list")
;(load-library "anthy")

;; 修正とカスタマイズ


; emacs23 の場合レスポンスが遅くなる問題の修正
;(if (>= emacs-major-version 23)
;(setq anthy-accept-timeout 1))

; japanese-anthy をデフォルトの入力システムに設定
;(setq default-input-method "japanese-anthy")

; シフト＋スペースで anthy モードへ移行 (デフォルトは Ctrl-\)

;(global-set-key (kbd "S-SPC") 'anthy-mode)

; 全角スペースを半角スペースに変更
;(setq anthy-wide-space " ")
;;;20100519 Saka Chg End

;;
;=======================================================================

;フレームサイズ・位置・色など
;=======================================================================
(setq initial-frame-alist
    (append (list
           '(foreground-color . "white")        ;; 文字色
           '(background-color . "black")        ;; 背景色

           '(border-color . "black")
           '(mouse-color . "white")
           '(cursor-color . "white")
           '(width . 160)                 ;; フレームの幅
           '(height . 48)                 ;; フレームの高さ

           '(top . 0)                     ;; Y 表示位置
           '(left . 0)                    ;; X 表示位置
           '(alpha . (80 60))             ;; 透明度
           )
        initial-frame-alist))

(setq default-frame-alist initial-frame-alist)

;; 20100531 Saka Add Start
;(set-frame-parameter nil 'fullscreen 'fullboth)  ;; ウインドウマネージャの枠もなくなる完全な最大化(--fullscreenオプションをつけた場合と同じ)
(set-frame-parameter nil 'fullscreen 'maximized)  ;; いわゆる右上の最大化するボタンを押しての最大化

;(set-frame-parameter nil 'fullscreen 'nil)       ;; 最大化してあった場合、元に戻す
;; 20100531 Saka Add End



;=======================================================================
;フォント
;=======================================================================

;(cond (window-system
;    (set-default-font "-*-fixed-medium-r-normal--14-*-*-*-*-*-*-*")
;       (progn
;         (set-face-font 'default
;                        "-shinonome-gothic-medium-r-normal--14-*-*-*-*-*-*-*")

;         (set-face-font 'bold
;                        "-shinonome-gothic-bold-r-normal--14-*-*-*-*-*-*-*")
;         (set-face-font 'italic
;                        "-shinonome-gothic-medium-i-normal--14-*-*-*-*-*-*-*")

;         (set-face-font 'bold-italic
;                        "-shinonome-gothic-bold-i-normal--14-*-*-*-*-*-*-*")
;       )))

;(add-to-list 'default-frame-alist '(font . "IPAゴシック-10"))

(set-default-font "Verdana-9")
(set-fontset-font (frame-parameter nil 'font)
                                    'japanese-jisx0208
                                    '("ＭＳ ゴシック" . "unicode-bmp"))

(set-default-font "ＭＳ ゴシック-10")


;; 20100613 Saka Add (ソースコードのカラー表示) Start
(if window-system
  (progn
    (set-face-foreground 'font-lock-comment-face "cyan")
    (set-face-foreground 'font-lock-string-face  "khaki1")

    (set-face-foreground 'font-lock-keyword-face "LawnGreen")
    (set-face-foreground 'font-lock-function-name-face "blue")
    (set-face-bold-p 'font-lock-function-name-face t)
    (set-face-foreground 'font-lock-variable-name-face "blue")

    (set-face-foreground 'font-lock-type-face "LightSeaGreen")
    (set-face-foreground 'font-lock-builtin-face "purple")
    (set-face-foreground 'font-lock-constant-face "black")

    (set-face-foreground 'font-lock-warning-face "blue")
    (set-face-bold-p 'font-lock-warning-face nil)))
;; 20100613 Saka Add (ソースコードのカラー表示) End


;=======================================================================

; Misc
;=======================================================================
(mouse-wheel-mode t)                         ;;ホイールマウス
(global-font-lock-mode t)                    ;;文字の色つけ
(setq line-number-mode t)                    ;;カーソルのある行番号を表示

(column-number-mode t)                       ;;カーソルのある列番号を表示
(auto-compression-mode t)                    ;;日本語infoの文字化け防止
(set-scroll-bar-mode 'right)                 ;;スクロールバーを右に表示
(global-set-key "\C-z" 'undo)                ;;UNDO

(setq frame-title-format                     ;;フレームのタイトル指定
    (concat "%b - emacs@" system-name))

;(display-time)                            ;;時計を表示
;(global-set-key "\C-h" 'backward-delete-char)            ;;Ctrl-Hでバックスペース

;(setq make-backup-files nil)                    ;;バックアップファイルを作成しない
;(setq visible-bell t)                        ;;警告音を消す
;(setq kill-whole-line t)                    ;;カーソルが行頭にある場合も行全体を削除
;(when (boundp 'show-trailing-whitespace) (setq-default show-trailing-whitespace t))    ;;行末のスペースを強調表示



;=======================================================================
; TAB幅の変更
;=======================================================================
;; 20100617 Saka Chg Start
(setq-default tab-width 4)

;(setq-default tab-width 4 indent-tabs-mode nil)  ;;ソフトタブを使用
(setq-default indent-tabs-mode nil)  ;;ソフトタブを使用

;(setq tab-width 4)
;;タブは2文字ごとに
;;追加　タブの設定は以下のようにしないとだめ
;(setq-default tab-stop-list
;  '(0 1 2 3 4 6 8 12 16 20))

;(setq indent-tabs-mode t)
;;; cc-modeの設定．好みでセミコロンを外してください．
;
;(add-hook 'c-mode-hook '(lambda ()
;                          (setq c-basic-offset 4)
;                          (setq tab-width 4)

;                                        ;      (setq c-auto-newline t)
;                          )
;          t
;          )
(setq-default tab-stop-list
  '(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88))

;; 20100617 Saka Chg End


;=======================================================================
;バックアップファイルを一箇所に
;=======================================================================
(setq make-backup-files t)

(setq backup-directory-alist
  (cons (cons "\\.*$" (expand-file-name "~/.emacs.d/backup"))
    backup-directory-alist))


;=======================================================================

;コマンド
;=======================================================================
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)


;=======================================================================

;ホワイトスペースモード
;=======================================================================
(setq whitespace-style (quote
  ( spaces tabs newline space-mark tab-mark newline-mark)))


;; 20100614 Saka Add Start

;=======================================================================
;Emacsでコピーして外部アプリに貼り付け
;=======================================================================
;; クリップボードにコピー
(global-set-key "\M-w" 'clipboard-kill-ring-save)

;; 切り取ってクリップボードへ
(global-set-key "\C-w" 'clipboard-kill-region)
;; 20100614 Saka Add End


;=======================================================================
;COBOL-MODE
;=======================================================================

(setq load-path (cons "~/.emacs.d/cobol" load-path))
(setq auto-mode-alist (append auto-mode-alist
'(("\\.CAP$" . cobol-mode))))
(autoload 'cobol-mode "cobol-mode"
"Major mode for editing COBOL source files." t nil)



;=======================================================================
;折り返し表示ON/OFF
;=======================================================================
(setq-default truncate-lines t)
(setq-default truncate-partial-width-windows t)

(defun toggle-truncate-lines ()
  "折り返し表示をトグル動作します."
  (interactive)
  (if truncate-lines
      (setq truncate-lines nil)
    (setq truncate-lines t))
  (recenter))
(global-set-key "\C-c\C-l" 'toggle-truncate-lines) ; 折り返し表示ON/OFF

;; 20100609 Saka Add Start
;; 20100610 Saka Chg Start
;;; ウィンドウの右端で文字列を折り返さない
;;通常のウィンドウ用の設定
;(setq-default truncate-lines f)
;;ウィンドウを左右に分割したとき用の設定
;(setq-default truncate-partial-width-windows f)
;; 20100610 Saka Chg End

;; 20100609 Saka Add End


;=======================================================================
;指定行数にジャンプ
;=======================================================================
(global-set-key "\C-c\C-j" 'goto-line)



;=======================================================================
;;; Dired で Windows に関連付けられたファイルを起動する。
;=======================================================================
(defun uenox-dired-winstart ()

  "Type '\\[uenox-dired-winstart]': win-start the current line's file."
  (interactive)
  (if (eq major-mode 'dired-mode)
      (let ((fname (dired-get-filename)))
        (w32-shell-execute "open" fname)

        (message "win-started %s" fname))))
;;; dired のキー割り当て追加
(add-hook 'dired-mode-hook
          (lambda ()
            (define-key dired-mode-map "z" 'uenox-dired-winstart))) ;;; 関連付け

タグ：メモ Emacs