Create a gist now

Instantly share code, notes, and snippets.

@yancya /init.el
Last active Dec 10, 2015

今の emacs の設定ファイル
;;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)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment