研究室‎ > ‎卒業生のみなさまへ‎ > ‎岡田 正平‎ > ‎計算機関連‎ > ‎Emacs‎ > ‎

基本的な設定

~/.emacs.d/orig-lisp/orig-settings.el
一部は,先輩の設定から流用.

;; mode-lineに現在位置を表示                                                                                                                 
(column-number-mode t)
(line-number-mode t)

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

;; 起動時メッセージを非表示                                                                                                                  
(setq inhibit-startup-message t)

;; バックアップファイルを作らない                                                                                                            
(setq make-backup-files nil)
(setq auto-save-default nil)

;; C-dでリージョンを削除                                                                                                                     
(delete-selection-mode t)

;; 1行ずつスクロール                                                                                                                         
(setq scroll-step 1)

;; キーバインディングの設定                                                                                                                  
(global-set-key "\C-m" 'newline-and-indent)
(global-set-key "\C-h" 'backward-delete-char)

;; 行番号を表示                                                                                                                               
(require 'linum)
(global-linum-mode t)
(setq linum-format "%4d")

;; タブの代わりのスペース4つを利用                                                                                                                
(setq-default tab-width 4 indent-tabs-mode nil)
(setq indent-line-function 'indent-relative-maybe)

;; 括弧の自動補完
(global-set-key (kbd "(") 'skeleton-pair-insert-maybe)
(global-set-key (kbd "{") 'skeleton-pair-insert-maybe)
(global-set-key (kbd "[") 'skeleton-pair-insert-maybe)
(global-set-key (kbd "\"") 'skeleton-pair-insert-maybe)
(setq skeleton-pair t)

;; \C-aでインデントされた行頭と,インデント含む行頭を行き来する
(global-set-key "\C-a" 'beginning-of-indented-line)
(defun beginning-of-indented-line (current-point)
  (interactive "d")
  (if (string-match
       "^[ \t]+$"
       (save-excursion
        (buffer-substring-no-properties
         (progn (beginning-of-line) (point))
         current-point)))
   (beginning-of-line)
   (back-to-indentation)
))
Comments