Emacs/.emacs/.emacs(2010.11.16) - nkym_memo @ ウィキ

;; .emacs                                        ;;
;; Last Updated : 2010/11/16 Tue 08:26:57        ;;
















;;auto-install.elのインストール手順
;; $mkdir -p ~/.emacs.d/auto-install
;; cd ~/.emacs.d/auto-install
;; wget http://www.emacswiki.org/emacs/download/auto-install.el
;; emacs --batch -Q -f batch-byte-compile auto-install.el

;;;Emacs Lispインストーラを利用
(add-to-list 'load-path "~/.emacs.d/auto-install")
;;(install-elisp-from-emacswiki "auto-install.el")
(require 'auto-install)
;;起動時にEmacswikiのページを補完候補に加える
(auto-install-update-emacswiki-package-name t)
;;install-elisp.el互換モード
(auto-install-compatibility-setup)
;;ediff関連のバッファを一つのフレームにまとめる
(setq ediff-window-setup-function 'ediff-setup-windows-plain)

;;スタートアップを非表示
(setq inhibit-startup-screen -1)

;;ツールバーを非表示
(tool-bar-mode -1)

;メニューバーを非表示
(menu-bar-mode -1)

;; 現在行に色をつける
(global-hl-line-mode 1)

;; 履歴を次回Emacs起動時にも保存する
(savehist-mode 1)

;;; 対応する括弧を光らせる
(show-paren-mode 1)

;;; カーソルの位置が何文字目かを表示する
(column-number-mode t)

;;; バックアップファイルを作らない
(setq backup-inhibited t)

;;;Xでのクリップボードを共有
(setq x-select-enable-clipboard t)

;;;yes-or-noをy-or-nに省略
(defalias 'yes-or-no-p 'y-or-n-p)

;;; emacsclient
;; ファイルを現在のemacsで開く
(server-start)


;;: キーバインドの変更
;;指定の行に移る
(global-set-key "\M-g" 'goto-line)

;; 行の先頭でC-kを一回押すだけで行全体を消去する
(setq kill-whole-line t)

;; undo
(global-set-key "\C-z" 'undo)

;;動的略語展開
(global-set-key [?\C-;] 'dabbrev-expand)

;; ウィンドウの移動をM-tに
(global-set-key "\M-t" 'other-window)

;;; C-hをBackSpaceに
(global-set-key "\C-h" 'delete-backward-char)

;;; 初期フレームの設定
(setq initial-frame-alist
      (append
       '(	 (width               . 47)    ; フレーム幅(文字数)
	 (height              . 63))   ; フレーム高(文字数)
       initial-frame-alist))

;;; 新規フレームのデフォルト設定
(setq default-frame-alist
      (append
       '((width               . 47)	; フレーム幅(文字数)
	 (height              . 63))	; フレーム高(文字数)	
       default-frame-alist))

;;; ファイル更新日を自動的に書き換える。
;; ファイルの頭に "last updated : "をつけくわえればよい
(require 'time-stamp)

;; 日本語で日付を入れたくないのでlocaleをCにする
(defun time-stamp-with-locale-c ()
  (let ((system-time-locale "C"))
    (time-stamp)
    nil))

(if (not (memq 'time-stamp-with-locale-c write-file-hooks))
    (add-hook 'write-file-hooks 'time-stamp-with-locale-c))

(setq time-stamp-active t)
(setq time-stamp-start "Last Updated : ")
(setq time-stamp-format "%04y/%02m/%02d %3a %02H:%02M:%02S")
(setq time-stamp-end "  ") ;;;Last Updated : の後に空白2つ以上いれると置換

;;; タイトルバーにファイル名を表示する
(setq frame-title-format (format "emacs@%s : %%f" (system-name)))

;;;ファイルの自動挿入
(auto-insert-mode)
;;自動挿入するファイルのあるディレクトリ
;;最後の/は必須
(setq auto-insert-directory "~/.emacs.d/insert/")
;;自動挿入するファイル
(define-auto-insert "\\.c" "c-template.c")

;;; viewer.el view-modeの設定
;; M-x install-elisp-from-emacswiki viewer.el
;;
;; C-x C-rでview-modeでファイルを開く 
(setq view-read-only t)
;; 書き込み不能な場合はview-modeを抜けないように
(require 'viewer)
(viewer-stay-in-setup)
;; .log .out .datファイルをview-modeで開く
(setq view-mode-by-default-regexp "\\.log")
(setq view-mode-by-default-regexp "\\.out")
(setq view-mode-by-default-regexp "\\.dat")

;;;view-mode時にモードラインに色をつける
;;色名を指定
(setq viewer-modeline-color-unwritable "tomato")
(setq viewer-modeline-color-view "orange")
(viewer-change-modeline-color-setup)

;;view-mode時のキーバインド
(define-key view-mode-map "h" 'backward-char)
(define-key view-mode-map "j" 'next-line)
(define-key view-mode-map "k" 'previous-line)
(define-key view-mode-map "l" 'forward-char)
(define-key view-mode-map "J" 'View-scroll-line-forward)
(define-key view-mode-map "K" 'View-scroll-line-backward)
(define-key view-mode-map "b" 'scroll-down)
(define-key view-mode-map " " 'scroll-up)

; view-modeを有効・無効にする
;;; 0.04秒以内に jk を同時押しでview-modeに移行
(require 'key-chord)
(setq key-chord-two-keys-delay 0.04)
(key-chord-mode 1)
(key-chord-define-global "jk" 'view-mode)

;;; redo+.el
(require 'redo+)
(global-set-key "\M-z" 'redo)
(setq undo-no-redo t); 過去のundoがredoされないようにする
;; 大量のundoに耐えられるようにする
(setq undo-limit 600000)
(setq undo-strong-limit 900000)

;;fullscreen.el
(require 'fullscreen)

;;; recentf-ext.el
;; install-elisp-from-emacswiki recentf-ext.el
(setq recentf-max-saved-items 3000)
;; 最近使ったファイルに加えないファイルを正規表現で指定する
(setq recentf-exclude '("/TAGS$" "/var/tmp/"))
(require 'recentf-ext)
;; f8をショートカットキーに
(global-set-key [f8] 'recentf-open-files)

;;; auto-complete.el
;; install-elisp-from-emacswiki auto-complete.el
;(require 'auto-complete)
;(global-auto-complete-mode 1)

;;;col-highlight.el
;; auto-install-batch col-highlight.el
;(require 'col-highlight)
;(column-highlight-mode 1)
;;何もしないでいるとハイライトを始めるようにする場合
;(toggle-highlight-column-when-idle 1)
;(col-highlight-set-interval 3)