ホームディレクトリ(/home/(user),~/) 内に配置 または~/.emacs.dl 、~/.emacs.d/initi.el も初期化ファイルにすることができる 優先順位は ~/.emacs.dl > ~/.emacs > ~/.emacs.d/init.el
;;;スタートアップを非表示
(setq inhibit-startup-screen -1)
;;;ビープ音を消す
(setq ring-bell-function 'ignore)
;;;ツールバーを非表示
(tool-bar-mode -1)
;;;メニューバーを非表示
(menu-bar-mode -1)
;;;Xでのクリップボードを共有
(setq x-select-enable-clipboard t)
;;; 行の先頭でC-kを一回押すだけで行全体を消去する
(setq kill-whole-line t)
;;; 対応する括弧を光らせる
(show-paren-mode 1)
;; 現在行に色をつける
(global-hl-line-mode 1)
;; その行の色
(set-face-background 'hl-line "DarkSeaGreen1")
;;; バックアップファイルを作らない
(setq backup-inhibited t)
;;; タイトルバーにファイル名を表示する
(setq frame-title-format (format "emacs@%s : %%f" (system-name)))
;;; カーソルの位置が何文字目かを表示する
(column-number-mode t)
;;; yes-or-noをy-or-nに省略
(defalias 'yes-or-no-p 'y-or-n-p)
;; 履歴を次回Emacs起動時にも保存する
(savehist-mode 1)
;;; 圧縮されたファイルも編集できるようにする
(auto-compression-mode t)
;;; 初期フレームの設定
(setq initial-frame-alist
(append
'( (width . 47) ; フレーム幅(文字数)
(height . 63)) ; フレーム高(文字数)
initial-frame-alist))
;;; 新規フレームのデフォルト設定
(setq default-frame-alist
(append
'((width . 47) ; フレーム幅(文字数)
(height . 63)) ; フレーム高(文字数)
default-frame-alist))
;;; ファイル更新日を自動的に書き換える。 ;;; ファイルの上から8行目以内に "Last Updated : "をつけくわえる ;;; そしてLast Updated : の後に空白2つ以上いれると置換 ;;; 日本語で日付を入れたくないのでlocaleをCにする ;;; 例）2010/06/30 Wed 16:20:12
(require 'time-stamp)
(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 " ")
;;;「Alt-g 行数」で指定の行に移る
(global-set-key "\M-g" 'goto-line)
;;; undoをC-zに
(global-set-key "\C-z" 'undo)
;;; hippie-expandをC-;に
(global-set-key [?\C-;] 'hippie-expand)
;;; M-x compile を C-. に
(global-set-key [?\C-\.] 'compile)
;;; ウィンドウの移動をM-tに
(global-set-key "\M-t" 'other-window)
;;; C-hをBackSpaceに
(global-set-key "\C-h" 'delete-backward-char)
