今の emacs の設定ファイル

init.el

;;scratch の初期メッセージを消す
(setq initial-scratch-message "")

;;ツールバー不要
(tool-bar-mode -1)

;;スタートアップ画面を表示しない
(setq inhibit-startup-message t)

;; 対応するカッコを強調表示
(show-paren-mode t)

;;言語設定
(set-language-environment 'Japanese)
(prefer-coding-system 'utf-8)

;; ￥の代わりにバックスラッシュ
(define-key global-map [?¥] [?\\])  

;;フレーム透過
(set-frame-parameter (selected-frame) 'alpha '(95 50))

;;タブインデント禁止
(setq-default indent-tabs-mode nil)

;; C-k で行全体を削除（改行を含む）
(setq kill-whole-line t)

;;プレフィクスキー
(global-unset-key (kbd "C-l"))
(global-set-key (kbd "C-l C-l") 'recenter-top-bottom)

;;改行後、インデントを挿入
(global-set-key (kbd "C-m") 'newline-and-indent)

;;矩形選択関連
(cua-mode t)
(setq cua-enable-cua-keys nil) ; そのままだと C-x が切り取りになってしまったりするので無効化

;;Ctrl+TAB で次のバッファーへ移動する
(global-set-key (kbd "<C-tab>") 'next-buffer)
(global-set-key (kbd "<C-S-tab>") 'previous-buffer)

;; "C-t" でウィンドウを切り替える
(define-key global-map (kbd "C-t") 'other-window)

;;行数・桁数表示
(require 'linum)
(global-linum-mode)
(global-set-key (kbd "C-x C-g") 'goto-line)
(setq linum-format "%3d")
(column-number-mode t)

;;ファイルサイズを表示
(size-indication-mode t)

;;時刻表示
(display-time-mode t)
(setq display-time-24hr-format t)

;;タイトルバーにファイルのフルパスを表示
(setq frame-title-format "%b %f %& %Z")

;;tabの表示幅
(setq-default tab-width 4)

;;起動時のウィンドウサイズ、色など
(if (boundp 'window-system)
  (setq default-frame-alist
    (append (list
      '(foreground-color . "white") ;文字色：白
      '(background-color . "black") ;背景色：黒
      '(top . 100) ;ウィンドウの表示位置(Y座標)
      '(left . 150) ;ウィンドウの表示位置(X座標）
      '(width . 105) ;ウィンドウ幅
      '(height . 35) ;ウィンドウ高
    )
    default-frame-alist)
  )
)
(setq initial-frame-alist default-frame-alist)

;;ウィンドウ位置を画面の中央にして、縦サイズを伸ばす関数
;;WQHD 画面を使ってるときに、使いたい
(defun frame-to-center ()
  (interactive)
  "frame to center"
  (set-frame-size (selected-frame) 130 65)
  (set-frame-position (selected-frame) 800 30))
(global-set-key (kbd "C-l c") 'frame-to-center)

;;SQL-mode
(eval-after-load "sql"
  '(progn
     (load-library "sql-indent")
     (load-library "sql-complete")
     (load-library "sql-transform")))

;;Font 設定
(when (>= emacs-major-version 23)
 (set-face-attribute 'default nil
                     :height 150)
 ;;ASCII
 (set-fontset-font
  (frame-parameter nil 'font)
  'mule-unicode-0100-24ff
  '("Source Code Pro" . "iso10646-1"))
 ;;日本語
 (set-fontset-font
  nil 'japanese-jisx0208
  (font-spec :family "Hiragino Maru Gothic Pro"))
 ;;半角カタカナ
 (set-fontset-font
  nil 'katakana-jisx0201
  (font-spec :family "Hiragino Maru Gothic Pro")))

;;package
(require 'package)
(add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/"))
(add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/") t)
(package-initialize)

;;helm
(require 'helm-config)
(global-set-key (kbd "C-l h") 'helm-mini)

;;鬼軍曹.el
(add-to-list 'load-path (expand-file-name (concat user-emacs-directory "elisp")))
(require 'drill-instructor)
(setq drill-instructor-global t)

;;Auto Complete Mode
(require 'auto-complete-config)
(add-to-list 'ac-dictionary-directories "~/.emacs.d/dict")
(ac-config-default)

;;Replace
(global-set-key (kbd "C-l r") 'query-replace)
(global-set-key (kbd "C-l R") 'query-replace-regexp)