技術メモのかけら

内容はもとより調べたことすら忘れてしまうので個人的なメモです。とにかく短く、結論だけ書いていきます。

init.el

バックアップ的な意味で残しておきます。

(setq tab-width 4)
(setq default-tab-width 4)
(setq tab-stop-list '(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100 104 108 112 116 120))
 
(require 'color-theme)
(color-theme-initialize)
(color-theme-dark-laptop)

(let ((default-directory (expand-file-name "~/.emacs.d/lisp")))
  (add-to-list 'load-path default-directory)
  (if (fboundp 'normal-top-level-add-subdirs-to-load-path)
    (normal-top-level-add-subdirs-to-load-path)))

(require 'auto-install)
(setq auto-install-directory "~/.emacs.d/auto-install/")
(auto-install-update-emacswiki-package-name t)
(add-to-list 'load-path "~/.emacs.d/auto-install")

(setq frame-title-format
  (format "%%f - Emacs@%s" (system-name)))

(setq make-backup-files nil)

(global-linum-mode)

(setq inhibit-startup-screen t)

(tool-bar-mode 0)

(setq show-paren-delay 0)
(show-paren-mode t)
(setq show-parent-sytle 'expression)
(set-face-background 'show-paren-match-face "#800")

(set-language-environment "Japanese")
(prefer-coding-system 'utf-8-unix)
(set-default-coding-systems 'utf-8-unix)
(setq file-name-coding-system 'sjis)
(setq locale-coding-system 'utf-8)

(when (eq window-system 'w32)
  (set-face-attribute 'default nil
                      :family "DejaVu Sans Mono";
                      :height 100)
  (set-fontset-font nil 'japanese-jisx0208 (font-spec :family "Meiryo")))

(require 'anything-config)

(when (require 'auto-complete-config nil t)
  (add-to-list 'ac-dictionary-directories
    "~/.emacs.d/auto-install/")
  (define-key ac-mode-map (kbd "M-TAB") 'auto-complete)
  (ac-config-default))