;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; åˆæœŸè¡¨ç¤ºä½ç½®ã€ã‚µã‚¤ã‚º
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq initial-frame-alist
'((left . 100) ; ä½ç½® (X)
(top . 50) ; ä½ç½® (Y)
(width . 120) ; サイズ(幅)
(height . 40) ; サイズ(高ã•)
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; スクãƒãƒ¼ãƒ«
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; スクãƒãƒ¼ãƒ«ã—ãŸéš›ã®ã‚«ãƒ¼ã‚½ãƒ«ã®ç§»å‹•è¡Œæ•°
(setq scroll-conservatively 1)
;; スクãƒãƒ¼ãƒ«é–‹å§‹ã®ãƒžãƒ¼ã‚¸ãƒ³ã®è¡Œæ•°
(setq scroll-margin 10)
;; 1 ç”»é¢ã‚¹ã‚¯ãƒãƒ¼ãƒ«æ™‚ã«é‡è¤‡ã•ã›ã‚‹è¡Œæ•°
(setq next-screen-context-lines 10)
;; 1 ç”»é¢ã‚¹ã‚¯ãƒãƒ¼ãƒ«æ™‚ã«ã‚«ãƒ¼ã‚½ãƒ«ã®ç”»é¢ä¸Šã®ä½ç½®ã‚’ãªã‚‹ã¹ã変ãˆãªã„
(setq scroll-preserve-screen-position t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; ã‚ーè¨å®š
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Windows ã®å ´åˆã€
;; IME ã®å¤‰æ›ã§ã‚¨ãƒ©ãƒ¼ãŒã§ã‚‹ã®ã§ã€ä½•ã‚‚ã—ãªã„関数を割り当ã¦ã‚‹
(when (eq system-type 'windows-nt)
(global-set-key [M-kanji] 'ignore)
(global-set-key [kanji] 'ignore)
)
;; ターミナルã®å ´åˆ(window-system ㌠nil)ã€
;; ㌠C-h ã«ãªã‚‹ã®ã§ã€C-h 㧠(C-?) ãŒæŠ¼ã•ã‚ŒãŸã“ã¨ã«ã™ã‚‹
(unless window-system
(keyboard-translate ?\C-h ?\C-?))
;; C-h 以外もヘルプã‚ーã«å‰²ã‚Šå½“ã¦
(global-set-key (kbd "M-?") 'help-command)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; 検索ã€ç½®æ›æ™‚ã®å¤§æ–‡å—ã€å°æ–‡å—ã®åŒºåˆ¥
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; オプション㮠"Ignore Case for Search" ã§è¨å®šå¯
;;
;; ;; 検索(全般)
;; (setq case-fold-search t)
;;
;; ;; インクリメンタルサーãƒ
;; (setq isearch-case-fold-search nil)
;; ãƒãƒƒãƒ•ã‚¡ãƒ¼åã®æ¤œç´¢
(setq read-buffer-completion-ignore-case t)
;; ファイルåã®æ¤œç´¢
(setq read-file-name-completion-ignore-case t)
;;;ç½®æ›(全般)
;; (setq case-replace t)
;; dabbrev 時ã®ç½®æ›
(setq dabbrev-case-replace nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; 自動作æˆãƒ•ã‚¡ã‚¤ãƒ«
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; backup ファイルオープン時ã®ãƒãƒƒã‚¯ã‚¢ãƒƒãƒ— (xxx~)
;; ================================================================
;; 実行ã®æœ‰ç„¡
(setq make-backup-files t)
;; æ ¼ç´ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªãƒ¼ã®å¤‰æ›´
;; (対象ディレクトリー . æ ¼ç´ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªãƒ¼) ã®ãƒªã‚¹ãƒˆ
(setq backup-directory-alist '((".*" . "~/.ehist")))
;; 番å·ä»˜ã‘ã«ã‚ˆã‚‹è¤‡æ•°ä¿å˜
(setq version-control t) ;; 実行ã®æœ‰ç„¡
(setq kept-new-versions 5) ;; 最新ã®ä¿æŒæ•°
(setq kept-old-versions 1) ;; 最å¤ã®ä¿æŒæ•°
(setq delete-old-versions t) ;; 範囲外を削除
;; auto-save 自動ä¿å˜ãƒ•ã‚¡ã‚¤ãƒ« (#xxx#)
;; ================================================================
;; ;; 実行ã®æœ‰ç„¡
;; (setq auto-save-default nil)
;; ;; æ ¼ç´ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªãƒ¼ã®å¤‰æ›´
;; ;; (対象ファイルã®ãƒ‘ターン . ä¿å˜ãƒ•ã‚¡ã‚¤ãƒ«ãƒ‘ス) ã®ãƒªã‚¹ãƒˆ
;; (setq auto-save-file-name-transforms
;; (append auto-save-file-name-transforms
;; '((".*" "~/tmp/" t))))
;; ä¿å˜ã®é–“éš”
(setq auto-save-timeout 10) ;; 秒 (デフォルト : 30)
(setq auto-save-interval 100) ;; æ‰“éµ (デフォルト : 300)
;; auto-save-list 自動ä¿å˜ã®ãƒªã‚¹ãƒˆ (~/.emacs.d/auto-save-list/.saves-xxx)
;; ================================================================
;; 実行ã®æœ‰ç„¡
(setq auto-save-list-file-prefix nil)
;; ;; æ ¼ç´ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªãƒ¼ã®å¤‰æ›´
;; (setq auto-save-list-file-prefix "~/tmp/.saves-")
;; lock ãƒãƒƒã‚¯ãƒ•ã‚¡ã‚¤ãƒ« (.#xxx)
;; ================================================================
;; 実行ã®æœ‰ç„¡
(setq create-lockfiles nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; パッケージ
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(when (require 'package nil t)
(setq package-archives
(append package-archives '(("melpa" . "http://melpa.milkbox.net/packages/")
("marmalade" . "http://marmalade-repo.org/packages/"))))
(package-initialize))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; auto-complete
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(when (require 'auto-complete-config nil t)
(ac-config-default))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; ãƒãƒ¼ãƒ‰ãƒ‘スã®è¨å®š
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'load-path "~/.emacs.d/site-lisp")
;; ;; load-path ã«ç™»éŒ²ã•ã‚ŒãŸãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªãƒ¼ã‚’ subdir 扱ã„
;; ;; 注:アクセス件ã§ã‚¨ãƒ©ãƒ¼ã«ãªã‚Šã‚„ã™ã„
;; (normal-top-level-add-subdirs-to-load-path)
;; ;; ã‚ーè¨å®šãƒ•ã‚¡ã‚¤ãƒ«ã®ãƒãƒ¼ãƒ‰
;; (load "my-keyset-light")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; プãƒã‚°ãƒ©ãƒŸãƒ³ã‚°
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 共通
;; ================================================================
;; 左端(æ–‡å—ã®å‰)ã§ã¯ã‚¤ãƒ³ãƒ‡ãƒ³ãƒˆã€ãれ以外ã¯ã‚¿ãƒ–ã®æŒ¿å…¥
(setq tab-always-indent nil)
(setq c-tab-always-indent nil)
;; 空白を一度ã«å‰Šé™¤
(if (fboundp 'global-hungry-delete-mode)
(global-hungry-delete-mode 1))
;; 改行時ãªã©ã«è‡ªå‹•ã§ã‚¤ãƒ³ãƒ‡ãƒ³ãƒˆ
;; (C-j 㨠C-m ã®å…¥ã‚Œæ›¿ãˆ)
(if (fboundp 'electric-indent-mode)
(electric-indent-mode 0))
;; 特定ã®æ–‡å—を入力ã™ã‚‹ã¨è‡ªå‹•ã§æ”¹è¡Œã€ã‚¤ãƒ³ãƒ‡ãƒ³ãƒˆ
;; (electric-layout-mode 1)
;; C 系共通
;; ================================================================
(defun my-all-cc-mode-init ()
;; C ç³»(cc-mode を継承ã—ãŸ)モード共通ã®è¨å®šã‚’記述
;; 空白ãªã©ã‚’一度ã«å‰Šé™¤
(c-toggle-hungry-state 1)
;; 改行時ãªã©ã§è‡ªå‹•ã‚¤ãƒ³ãƒ‡ãƒ³ãƒˆ
;; (c-toggle-electric-state 1)
;;
;; ";", "}" ãªã©ã‚’入力ã—ãŸã¨ãã«è‡ªå‹•æ”¹è¡Œ
;; 自動インデントも一緒㫠ON ã«ãªã‚‹
;; (c-toggle-auto-newline 1)
)
(add-hook 'c-mode-common-hook 'my-all-cc-mode-init)
;; C, C++
;; ================================================================
(autoload 'vs-set-c-style "vs-set-c-style"
"Set the current buffer's c-style to Visual Studio like style. ")
(defun my-c-c++-mode-init ()
;; C, C++ 用ã®è¨å®šã‚’記述
;; Visual Studio 風ã®è¨å®š
;; (vs-set-c-style)
)
(add-hook 'c-mode-hook 'my-c-c++-mode-init)
(add-hook 'c++-mode-hook 'my-c-c++-mode-init)
;; .h ã§ã‚‚ C++
(add-to-list 'auto-mode-alist '("\\.h\\'" . c++-mode))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Tips
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ビープ音ç¦æ¢
(setq ring-bell-function 'ignore)
;; スタート画é¢(メッセージ)を表示ã—ãªã„
(setq inhibit-startup-screen t)
;; é¸æŠžé ˜åŸŸã‚’削除ã‚ーã§ä¸€æ‹¬å‰Šé™¤
(delete-selection-mode t)
;; shift + 矢å°ã‚ーã§é ˜åŸŸé¸æŠž
(if (fboundp 'pc-selection-mode)
(pc-selection-mode))
;; è¡Œé kill-line (C-k) ã§è¡Œå…¨ä½“をカット
(setq kill-whole-line t)
;; èªã¿å–り専用ãƒãƒƒãƒ•ã‚¡ãƒ¼ã§ã‚‚カット系ã§ã‚³ãƒ”ーå¯èƒ½
(setq kill-read-only-ok t)
;; ediff 時ã«ãƒ•ãƒ¬ãƒ¼ãƒ を使ã‚ãªã„
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
;; png, jpg ãªã©ã®ãƒ•ã‚¡ã‚¤ãƒ«ã‚’ç”»åƒã¨ã—ã¦è¡¨ç¤º
(setq auto-image-file-mode t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; カスタマイズ
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; カスタマイズ用ã®ãƒ•ã‚¡ã‚¤ãƒ«ã‚’è¨å®š
(setq custom-file "~/.emacs.d/custom_setttings.el")
;; カスタマイズ用ファイルをãƒãƒ¼ãƒ‰
(load custom-file t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; 日本語ã®è¨å®š
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 環境ã«åˆã‚ã›ãŸæ—¥æœ¬èªžæ–‡å—コードã«è¨å®š
;; Windows => SJIS
;; Linux => 環境変数 LANG ã‹ã‚‰
(set-language-environment "Japanese")
;; set-language-environment ã§ã†ã¾ãã„ã‹ãªã„å ´åˆã«è¨å®š
;; (prefer-coding-system 'utf-8)
;; ファイルã®æ–‡å—コードã ã‘別ã«æŒ‡å®šã—ãŸã„å ´åˆã«è¨å®š
;; (setq-default buffer-file-coding-system 'utf-8-with-signature) ; BOM 付ã UTF-8