emacs

init.el

(set-language-environment 'Japanese)
(prefer-coding-system 'utf-8)

(define-key global-map [ns-drag-file] 'ns-find-file)
(global-set-key "\C-h" 'backward-delete-char)
(setq backup-inhibited t)

;(require 'linum)
;(global-linum-mode)
;(setq linum-format "%3d ")

(setq exec-path
      (append
       (list "/usr/texbin" "/usr/local/bin") exec-path))
(setenv "PATH"
        (concat '"/usr/texbin:/usr/local/bin:" (getenv "PATH")))

(add-to-list 'load-path "~/.emacs.d/color-theme-6.6.0")
(add-to-list 'load-path "~/.emacs.d/")
(require 'color-theme)
;(require 'zenburn)
(require 'color-theme-wombat)
;(require 'color-theme-solarized)
(eval-after-load "color-theme"
  '(progn
     (color-theme-initialize)
;     (color-theme-solariz)))
     (color-theme-wombat)))
;     (color-theme-zenburn)))

;(require 'auto-install)
;(setq auto-install-directory "~/.emacs.d/auto-install/")
;(auto-install-update-emacswiki-package-name t)
;(auto-install-compatibility-setup)

(set-frame-parameter (selected-frame) 'alpha '(100 40))

(create-fontset-from-ascii-font "Menlo-9:weight=normal:slant=normal" nil "menlokakugo")
(set-fontset-font "fontset-menlokakugo"
                  'unicode
                  (font-spec :family "Hiragino Kaku Gothic ProN" :size 10)
                  nil
                  'append)
(add-to-list 'default-frame-alist '(font . "fontset-menlokakugo"))

;;(defface my-face-r-1 '((t (:background "gray15"))) nil)
;(defface my-face-b-1 '((t (:background "gray"))) nil)
(defface my-face-b-2 '((t (:background "gray26"))) nil)
(defface my-face-u-1 '((t (:foreground "SteelBlue" :underline t))) nil)
;;(defvar my-face-r-1 'my-face-r-1)
;(defvar my-face-b-1 'my-face-b-1)
(defvar my-face-b-2 'my-face-b-2)
(defvar my-face-u-1 'my-face-u-1)

(defadvice font-lock-mode (before my-font-lock-mode ())
  (font-lock-add-keywords
   major-mode
   '(("\t" 0 my-face-b-2 append)
     ("[ \t]+$" 0 my-face-u-1 append)
     ;;("[\r]*\n" 0 my-face-r-1 append)
     )))
(ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode)
(ad-activate 'font-lock-mode)

;; tex
(require 'tex-site)
(add-hook 'LaTeX-mode-hook 'TeX-PDF-mode)
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)
(setq reftex-toc-split-windows-horizontally t)
;(setq-default TeX-master nil)
(setq TeX-view-program-selection '((output-pdf "Skim")))
(setq TeX-view-program-list '(("Skim" "/Applications/Skim.app/Contents/SharedSupport/displayline %n %o %b")))
(custom-set-variables
 '(LaTeX-command "latex -synctex=1"))
(custom-set-faces)