技術メモのかけら

内容はもとより調べたことすら忘れてしまうので個人的な技術メモを残しているブログです。Qiitaの記事にするほどでもない細かいネタを投稿します。

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))