読者です 読者をやめる 読者になる 読者になる

僕の.emacs.d

  • init.el
;; 日本語環境設定
(set-language-environment "Japanese")
(setq default-file-name-coding-system 'utf-8-unix)

;; メニューバーを消す
(menu-bar-mode 0)

;; ツールバーを消す
(tool-bar-mode nil)

;; カーソルの点滅を止める
(blink-cursor-mode 0)

;; カラム数を表示する
(column-number-mode t)

;; ファイルの読み直し
(define-key global-map "\C-c\C-c\ r" 'revert-buffer)

;; リージョン内の段落を詰め込む
(define-key global-map "\C-c\C-c\ q" 'fill-region)

;; 詰め込みカラム数は80
(custom-set-variables '(fill-column 80))

;; shell
(autoload 'ansi-color-for-comint-mode-on "ansi-color" nil t)

(add-hook
 'shell-mode-hook
 '(lambda () (set-buffer-process-coding-system 'utf-8-unix 'utf-8-unix)))

(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

;; C-h
(keyboard-translate ?\C-h ?\C-?)

;; window-system
(cond (window-system
       ;; フォント
       (load-file (expand-file-name "~/.emacs.d/font.el"))

       ;; クリップボード
       (setq x-select-enable-clipboard t)

       ;; 高さ
       (add-to-list 'default-frame-alist '(height . 40))))
  • font.el
(create-fontset-from-fontset-spec
 "-mplus-*-*-r-semicondensed--12-*-*-*-*-*-fontset-mplus")

(add-to-list 'default-frame-alist '(font . "fontset-mplus"))