.emacs

yagihiro.emacs.el

;; Copyright (C) 2007,2008,2009,2010  Hiroki Yagita.


;; ポリシー ----------------------------------------------------------
;; - meadow は捨てました
;; - xemacs は捨てました
;; - なるべくどこでも動くようにしたい
;; - 初期化スクリプトは ~/.emacs.d/init.el にしています
;; - ~/.emacs.d/ の下に分離スクリプトやデータを置くことがあります(それ以外の場所に置かない)

;; 追加でインストールが必要になるもの --------------------------------
;; - install-elisp
;; - auto-install
;; - package-install
;; - sequential-command [M-x auto-install-batch sequential-command]
;; - anything [M-x auto-install-batch anything] via http://d.hatena.ne.jp/rubikitch/20100718/anything
;; - (install-elisp-from-emacswiki "auto-async-byte-compile.el")
;; - php-mode.el
;; - smarty-mode.el

;;  key       command                default   tty
;;  --------  ---------------------- --------- -----
;;  C-:       ---                    o         ---
;;  C-]       abort-recursive-edit   o
;;  C-z       suspend-frame          o
;;  C-t       transpose-chars        o
;;  C-@       set-mark-command       o         ---
;;  C-,       gtags-pop-stack
;;  C-.       ---                    o
;;  f5        ---                    o
;;  f6        ---                    o
;;  f7        ---                    o
;;  f8        ---                    o
;;  f9        ---                    o
;;  f10       menu-bar-open          o
;;  f11       ---                    o
;;  f12       ---                    o
;;  C-a C-a   beginning-of-buffer                          ;; require sequential-command
;;  C-e C-e   end-of-buffer                                ;; require sequential-command



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; for portability
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; http://www.sodan.org/~knagano/emacs/dotemacs.html
(defmacro exec-if-bound (sexplist)
  "関数が存在するときだけ実行する。(car の fboundp を調べるだけ)"
  `(if (fboundp (car ',sexplist))
       ,sexplist))
(defmacro defun-add-hook (hookname &rest sexplist)
  "add-hook のエイリアス。引数を関数にパックして hook に追加する。"
  `(add-hook ,hookname
             (function (lambda () ,@sexplist))))
(defun load-safe (loadlib)
  "安全な load。読み込んで失敗してもそこで止まらない。"
  ;; missing-ok で読んでみて、だめならこっそり message でも出しておく
  (let ((load-status (load loadlib t)))
    (or load-status
        (message (format "[load-safe] failed %s" loadlib)))
    load-status))
(defmacro eval-safe (&rest body)
  "安全な評価。評価に失敗してもそこで止まらない。"
  `(condition-case err
       (progn ,@body)
     (error (message "[eval-safe] %s" err))))
(defun autoload-if-found (function file &optional docstring interactive type)
  "set autoload iff. FILE has found."
  (and (locate-library file)
       (autoload function file docstring interactive type)))

;; 異なる Emacs で設定を共用するための定義
;; http://www.bookshelf.jp/soft/meadow_16.html#SEC157
(defvar run-unix
  (or (equal system-type 'gnu/linux)
      (equal system-type 'usg-unix-v)))
(defvar run-w32
  (and (null run-unix)
       (or (equal system-type 'windows-nt)
           (equal system-type 'ms-dos))))
(defvar run-emacs21
  (and (equal emacs-major-version 21)
       (null (featurep 'xemacs))))
(defvar run-emacs22
  (and (equal emacs-major-version 22)
       (null (featurep 'xemacs))))
(defvar run-emacs23
  (and (equal emacs-major-version 23)
       (null (featurep 'xemacs))))
(defvar run-gnu-emacs 
  (not (or (featurep 'xemacs) (featurep 'meadow))))
(defvar run-gnu-emacs-w32 (and run-gnu-emacs run-w32))
(defvar run-gnu-emacs-22-w32 (and run-emacs22 run-gnu-emacs-w32))
(defvar run-gnu-emacs-23-w32 (and run-emacs23 run-gnu-emacs-w32))
(defvar run-gnu-emacs-unix (and run-gnu-emacs run-unix))
(defvar run-gnu-emacs-22-unix (and run-emacs22 run-gnu-emacs-unix))
(defvar run-gnu-emacs-23-unix (and run-emacs23 run-gnu-emacs-unix))

;; emacs/share をデータディレクトリとする
(defvar site-data-directory "~/.emacs.d/share/")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; initialize
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; http://memo.jj-net.jp/41
;; 初期化スクリプトの分離.
;; 下記ディレクトリ内にあるファイルを /etc/init.d と同じ方式で順番に実行するので
;; 依存関係のある初期化を順番どうりに実行できる.
(let* ((dir "~/.emacs.d/init.d")
       (el-suffix "\\.el\\'")
       (files (mapcar
               (lambda (path) (replace-regexp-in-string el-suffix "" path))
               (directory-files dir t el-suffix))))
  (while files
    (load (car files))
    (setq files (cdr files))))

;; ロードパス追加(~/.emacs.d)
(add-to-list 'load-path "~/.emacs.d")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; installer
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; http://d.hatena.ne.jp/rubikitch/20070726/1186048104
(when (locate-library "install-elisp")
  (require 'install-elisp)
  (setq install-elisp-repository-directory "~/.emacs.d/"))

;; (install-elisp-from-emacswiki "auto-install.el")
;; Emacs テクニックバイブルより
;; Emacs インストーラー, install-elisp の後継
(when (locate-library "auto-install")
  (require 'auto-install)
  (add-to-list 'load-path auto-install-directory)
  (auto-install-update-emacswiki-package-name t)
  (auto-install-compatibility-setup)
  (setq ediff-window-setup-function 'ediff-setup-windows-plain)
  )

;;; This was installed by package-install.el.
;;; This provides support for the package system and
;;; interfacing with ELPA, the package archive.
;;; Move this code earlier if you want to reference
;;; packages in your .emacs.
;; (install-elisp "http://tromey.com/elpa/package-install.el")
;; Emacs テクニックバイブルより
;; Emacs パッケージマネージャー, auto-install と補完しあうもの
(when
    (load
     (expand-file-name "~/.emacs.d/elpa/package.el"))
  (package-initialize))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; documentation
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'Info-default-directory-list "~/.emacs.d/share/info/")
(add-hook 'Info-mode-hook
          (lambda () (setq Info-additional-directory-list Info-default-directory-list)))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; font
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; NTEmacs (emacs 22.x) =>
;;  日本語文字: モトヤシーダまたはモトヤアポロを用意してください.
;;  英文字: consolas を用意してください.(Vista はデフォルトで入ってます. XP は microsoft からダウンロードしてください.)
;; NTEmacs (emacs 23.x) =>
;;  日本語文字: TakaoGothic(https://launchpad.net/takao-fonts/+download)
;;  英文字: Inconsolata(http://www.levien.com/type/myfonts/inconsolata.html)
;; GNU Emacs 23.x on unix =>
;;  ~/.Xresources にて日本語フォントを設定してください.
(cond
 (run-gnu-emacs-22-w32
  (require 'ntemacs-font)
  (setq ntemacs-font-encode-family-list-motoya
        '((ascii . "Consolas")
          (latin-iso8859-1 . "Lucida Console*")
          (japanese-jisx0208 . "*モトヤシータ゛1等幅")
          (katakana-jisx0201 . "*モトヤシータ゛1等幅")
          (chinese-gb2312 . "Arial Unicode MS*")
          (chinese-big5-1 . "Arial Unicode MS*")
          (korean-ksc5601 . "Arial Unicode MS*")
          (mule-unicode-0100-24ff . "Arial Unicode MS*")
          (mule-unicode-e000-ffff . "Arial Unicode MS*")))
  (fixed-width-create-fontset "motoya" ntemacs-font-defined-sizes ntemacs-font-encode-family-list-motoya)
  (fixed-width-set-fontset "motoya" 14))
 (run-gnu-emacs-23-w32
  (set-default-font "Inconsolata-10")
  (set-fontset-font (frame-parameter nil 'font)
		    'japanese-jisx0208
		    '("TakaoGothic" . "unicode-bmp"))
  (set-fontset-font (frame-parameter nil 'font)
		    'katakana-jisx0201
		    '("TakaoGothic" . "unicode-bmp"))
  )
 (run-gnu-emacs-22-unix
  )
 (run-gnu-emacs-23-unix
  )
 (t
  (set-default-font "VL Gothic-8")
  (set-fontset-font (frame-parameter nil 'font)
                    'japanese-jisx0208
                    '("VL Gothic" . "unicode-bmp")))
 )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; IME
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(cond
 (run-gnu-emacs-23-w32
  (setq default-input-method "W32-IME")
  (w32-ime-initialize)
  (set-cursor-color "red")
  (setq w32-ime-buffer-switch-p nil)
  (add-hook 'input-method-activate-hook
	    (lambda() (set-cursor-color "green")))
  (add-hook 'input-method-inactivate-hook
	    (lambda() (set-cursor-color "red")))
  )
 )


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; key bindings
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; M-x auto-install-batch sequential-command
;; Emacs テクニックバイブルより
;; 同じコマンドを連続実行したときの振る舞いを変更する
(when (locate-library "sequential-command.el")
  (require 'sequential-command-config)
  (sequential-command-setup-keys))


(global-set-key (kbd "C-h") 'delete-backward-char) ; BackSpace相当(shellに合わせる)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; frame
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 初期フレーム ------------------------------------------------------
;; 色を変えるときは M-x list-colors-display で確認してください.
(cond
 (run-gnu-emacs
  (if (and run-w32 run-emacs22)
      (set-alpha '(75 20)))
  (setq default-frame-alist
        (append (list '(foreground-color . "white")
                      '(background-color . "black"))
                default-frame-alist)))
 )

;; ツールバー & スクロールバー ------------------------------
(cond
 (run-gnu-emacs-23-w32
  (tool-bar-mode -1)                 ; ツールバーなし
  (scroll-bar-mode -1)		   ; スクロールバーなし
  ))

;; フレームタイトル -----------------------------------------
(setq frame-title-format "%b")          ; ファイル名表示

;; モードライン ---------------------------------------------

;; 時刻表示
(setq display-time-string-forms
      '((substring year -2) "/" month "/" day " " 24-hours ":" minutes))
(display-time)
;; 行/桁表示
(line-number-mode 1)
(column-number-mode 1)
;; Isearch を表示しない
(add-hook 'isearch-mode-hook
          '(lambda () (setcar (cdr (assq 'isearch-mode minor-mode-alist)) "")))
;; Texinfo を短く
(add-hook 'texinfo-mode-hook
          '(lambda () (setq mode-name "Texi")))
;; Lisp Interaction を短く
(add-hook 'lisp-interaction-mode-hook
          '(lambda () (setq mode-name "LispInt")))
;; Emacs-Lisp を短く
(add-hook 'emacs-lisp-mode-hook
          '(lambda () (setq mode-name "Elisp")))

;; 起動画面 --------------------------------------------------
(setq inhibit-startup-message t)   ; なし

;; その他いろいろ --------------------------------------------
(global-hl-line-mode 1)		   ; 現在行に色づけ
(show-paren-mode t)		   ; 対応する括弧をハイライト
(setq gc-cons-threshold (* 10 gc-cons-threshold)) ; GCを減らして動作を軽くする
(setq message-log-max 10000)	   ; ログ記録行数を 10000 に
(setq enable-recursive-minibuffers t) ; ミニバッファを再帰的に呼び出せるようにする

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; regexp / search
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; c/migemo ------------------------------------------------------
;; http://www.kaoriya.net/#CMIGEMO
;; 
;; (when (locate-library "migemo")
;;   (setq migemo-command "cmigemo") ; cmigemo を使っている場合の設定です
;;   (setq migemo-options '("-q" "--emacs"))
;;   (setq migemo-dictionary
;;         (if run-w32
;;             (expand-file-name (concat site-data-directory "migemo/cp932/migemo-dict"))
;;           (expand-file-name (concat site-data-directory "migemo/euc-jp/migemo-dict"))))
;;   (setq migemo-user-dictionary nil)
;;   (setq migemo-regex-dictionary nil)
;;   (setq migemo-use-pattern-alist t)
;;   (setq migemo-use-frequent-pattern-alist t)
;;   (setq migemo-pattern-alist-length 1024)
;;   (if run-w32 (setq migemo-coding-system 'japanese-shift-jis-unix))
;;   (require 'migemo)
;;   (migemo-init))

;; GNU GLOBAL(gtags) ---------------------------------------------
(when (locate-library "gtags")
  (require 'gtags)
  (global-set-key "\M-t" 'gtags-find-tag)  ; 関数定義元へ
  (global-set-key "\M-r" 'gtags-find-rtag) ; 関数の参照元へ
  (global-set-key "\M-s" 'gtags-find-symbol) ; 変数へ(うまくうごかない...)
  (global-set-key "\M-p" 'gtags-find-pattern) ; マッチした行へ
  (global-set-key "\M-f" 'gtags-find-file)    ; マッチしたファイル名へ
  (global-set-key [?\C-,] 'gtags-pop-stack)   ; ジャンプ前の場所へ
  (add-hook 'c-mode-common-hook '(lambda () (gtags-mode 1)))
  (setq gtags-mode-hook '(lambda () (setq gtags-path-style 'relative)))
  ;; http://d.hatena.ne.jp/rubikitch/20080304/gtagscurrentline
  (defun gtags-current-line ()
    (save-excursion
      (save-restriction
        (widen)
        (forward-char 1)
        (count-lines (point-min) (point)))))
  (defadvice gtags-goto-tag (around show-current-position activate)
    "Point to the entry of current file/line."
    (let ((bfn buffer-file-name)
          (curline (gtags-current-line)))
      ad-do-it
      (when (and bfn (eq major-mode 'gtags-select-mode))
        (let ((path (if (looking-at "[^ \t]+[ \t]+[0-9]+[ \t]/[^ \t]+[ \t]")
                        bfn
                      (file-relative-name bfn))))
          (and (or (re-search-forward (format "%d[ \t]+%s" curline (regexp-quote path)) nil t)
                   (search-forward path nil t))
               (beginning-of-line))))))
  )


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; region
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq transient-mark-mode t)           ; 色あり
(setq highlight-nonselected-windows t) ; バッファを切り替えても色がついた状態保持


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; buffer switching
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; anything ------------------------------------------------------
(when (locate-library "anything")
  (require 'anything-startup)
  )

;; iswitchb は anything と相性が悪いのでやめました 2011.02.25
;; ido-mode もいったんやめました 2011.02.25

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; save/load file
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; saveplace.el
;; ファイルを保存したときに前回編集していた場所を記憶する
(load "saveplace")
(setq-default save-place t)

;; recentf
(require 'recentf)
(recentf-mode 1)

;; desktop
(desktop-save-mode 1)

;; (install-elisp-from-emacswiki "auto-async-byte-compile.el")
;; Emacs テクニックバイブルより
;; ファイルを保存したときに自動的にバイトコンパイルする
(when (locate-library "auto-async-byte-compile")
  (require 'auto-async-byte-compile)
  (setq auto-async-byte-compile-exclude-files-regexp "/junk/")
  (add-hook 'emacs-lisp-mode-hook 'enable-auto-async-byte-compile-mode)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; templates
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; auto-complete -------------------------------------------------
(when (locate-library "auto-complete-extension")
  (require 'auto-complete-extension)
  (global-auto-complete-mode t)
  (define-key ac-complete-mode-map "\t" 'ac-complete)
  (setq ac-auto-start t)
  (setq ac-sources '(ac-source-yasnippet ac-source-abbrev ac-source-words-in-buffer ac-source-gtags ac-source-filename))
  (add-hook 'emacs-lisp-mode-hook
            (lambda ()
              (make-local-variable 'ac-sources)
              (setq ac-sources '(ac-source-yasnippet ac-source-abbrev ac-source-words-in-buffer ac-source-symbols))))
  (defconst c++-keywords
    (sort
     (list "and" "bool" "compl" "do" "export" "goto" "namespace" "or_eq" "return"
           "struct" "try" "using" "xor" "and_eq" "break" "const" "double" "extern"
           "if" "new" "private" "short" "switch" "typedef" "virtual" "xor_eq" "asm"
           "case" "const_cast" "dynamic_cast" "false" "inline" "not" "protected"
           "signed" "template" "typeid" "void" "auto" "catch" "continue" "else"
           "float" "int" "not_eq" "public" "sizeof" "this" "typename" "volatile"
           "bitand" "char" "default" "enum" "for" "long" "operator" "register"
           "static" "throw" "union" "wchar_t" "bitor" "class" "delete" "explicit"
           "friend" "mutable" "or" "reinterpret_cast" "static_cast" "true"
           "unsigned" "while") #'(lambda (a b) (> (length a) (length b)))))
  (defvar ac-source-c++
    '((candidates
       . (lambda ()
           (all-completions ac-target c++-keywords))))
    "Source for c++ keywords.")
  (add-hook 'c++-mode-hook
            (lambda ()
              (make-local-variable 'ac-sources)
              (setq ac-sources '(ac-source-c++))))
  )



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; external utilities
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; emacsclient
;(server-start)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; programming
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; C/C++ ---------------------------------------------------------
(add-hook 'c-mode-common-hook
          '(lambda ()                    ; style
             (c-set-style "linux")))
(setq auto-mode-alist
      (cons '("\\.h$" . c++-mode) auto-mode-alist))

;; from http://www.emacswiki.org/emacs/CPlusPlusMode
;; 標準 C++ ライブラリを font-lock する設定
(require 'cl)
(defun file-in-directory-list-p (file dirlist)
  "Returns true if the file specified is contained within one of
the directories in the list. The directories must also exist."
  (let ((dirs (mapcar 'expand-file-name dirlist))
        (filedir (expand-file-name (file-name-directory file))))
    (and
     (file-directory-p filedir)
     (member-if (lambda (x)           ; Check directory prefix matches
                  (string-match (substring x 0 (min(length filedir) (length x))) filedir))
                dirs))))
(defun buffer-standard-include-p ()
  "Returns true if the current buffer is contained within one of
the directories in the INCLUDE environment variable."
  (and (getenv "INCLUDE")
       (file-in-directory-list-p buffer-file-name (split-string (getenv "INCLUDE") path-separator))))
(add-to-list 'magic-fallback-mode-alist '(buffer-standard-include-p . c++-mode))

;; ruby ----------------------------------------------------------
(when (locate-library "ruby-mode")
  (require 'ruby-mode)
  (setq auto-mode-alist
	(cons '("\\.rb$" . ruby-mode) auto-mode-alist)))

;; emacs-rails ---------------------------------------------------
(when (locate-library "rails")
  (add-to-list 'load-path "~/.emacs.d/emacs-rails-0.5.99.5")
  (require 'rails))

;; css-mode ------------------------------------------------------
(when (locate-library "css-mode")
  (autoload 'css-mode "css-mode")
  (setq auto-mode-alist
	(cons '("\\.css\\'" . css-mode) auto-mode-alist))
  (setq cssm-indent-function #'cssm-c-style-indenter))

;; lua -----------------------------------------------------------
(when (locate-library "lua-mode")
  (setq auto-mode-alist (cons '("\\.lua$" . lua-mode) auto-mode-alist))
  (autoload 'lua-mode "lua-mode" "Lua editing mode." t))

;; doxymacs ------------------------------------------------------
(when (locate-library "doxymacs")
  (require 'doxymacs)
  (add-hook 'c-mode-common-hook 'doxymacs-mode)
  (defun my-doxymacs-font-lock-hook ()
    (if (or (eq major-mode 'c-mode) (eq major-mode 'c++-mode))
        (doxymacs-font-lock)))
  (add-hook 'font-lock-mode-hook 'my-doxymacs-font-lock-hook)
  )

;; PHP ------------------------------------------------------
(when (locate-library "php-mode")
  (require 'php-mode)
  (add-to-list 'auto-mode-alist '("\\.php$" . php-mode))
  (setq php-mode-force-pear t)
  (add-hook 'php-mode-hook
	    '(lambda ()
	       (setq indent-tabs-mode t)
	       (setq default-tab-width 4)
	       (setq tab-width 4)
	       (setq c-basic-offset 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))
	       (setq php-manual-path "/usr/local/share/php/doc/html")
	       (setq php-manual-url "http://www.phppro.jp/phpmanual/")))
  )
(when (locate-library "smarty-mode")
  (require 'smarty-mode)
  (setq auto-mode-alist
	(append
	 '(("\\.tpl$" . smarty-mode))
	 auto-mode-alist))
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; no categorize
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; sdic
(autoload 'sdic-describe-word "sdic" "英単語の意味を調べる" t nil)
(autoload 'sdic-describe-word-at-point "sdic" "カーソル位置の英単語の意味を調べる" t nil)
(global-set-key "\C-cw" 'sdic-describe-word)
(setq sdic-window-height 10
      sdic-disable-select-window t)
(setq sdic-eiwa-dictionary-list '((sdicf-client "~/.emacs.d/share/dict/gene.sdic")))
(setq sdic-waei-dictionary-list '((sdicf-client "~/.emacs.d/share/dict/jedict.sdic")))


;; git by egg.el
;(when (locate-library "egg") (require 'egg))



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; experimental
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; yasnippet
(when (locate-library "yasnippet")
  (require 'yasnippet)
  (global-set-key (kbd "C-c y") 'anything-c-yas-complete)
  (yas/initialize)
  (yas/load-directory (concat site-data-directory "snippets"))
  (add-to-list 'yas/extra-mode-hooks 'ruby-mode-hook)
  (add-to-list 'yas/extra-mode-hooks 'c-mode-common-hook))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; applications
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; twittering-mode
;; (when (locate-library "~/.emacs.d/twittering-mode-1.0.0/twittering-mode.el")
;;   (add-to-list 'load-path "~/.emacs.d/twittering-mode-1.0.0")
;;   (require 'twittering-mode)
;;   (setq twittering-auth-method 'xauth)
;;   (setq twittering-username "yagihiro")
;;)


;;; This was installed by package-install.el.
;;; This provides support for the package system and
;;; interfacing with ELPA, the package archive.
;;; Move this code earlier if you want to reference
;;; packages in your .emacs.
(when
    (load
     (expand-file-name "~/.emacs.d/elpa/package.el"))
  (package-initialize))