いわぶろ（ろてん）

;; del: 2010-08-29T07:10+09:00
;(setq load-path (cons "~/.emacs.d/site-lisp/" load-path)
;      load-path (cons "~/.emacs.d/auto-install/" load-path)
;
;      load-path (cons "~/.emacs.d/site-lisp/migemo-0.40/" load-path)
;      ;load-path (cons "~/.emacs.d/site-lisp/apel-10.7/" load-path)
;      load-path (cons "~/.emacs.d/site-lisp/apel/" load-path) ; cvs で 10.8 を checkout
;      load-path (cons "~/.emacs.d/site-lisp/elscreen-1.4.6/" load-path)
;      load-path (cons "~/.emacs.d/site-lisp/wp-emacs/" load-path) ; これは使わなさげ
;      load-path (cons "~/.emacs.d/site-lisp/ac/" load-path)
;      load-path (cons "~/.emacs.d/site-lisp/twittering-mode/" load-path)
;      load-path (cons "~/.emacs.d/site-lisp/zencoding/" load-path)
;      )
 
;; ins: 2010-08-29T07:10+09:00
(add-to-list 'load-path "~/.emacs.d/site-lisp")
(add-to-list 'load-path "~/.emacs.d/auto-install")
 
(add-to-list 'load-path "~/.emacs.d/site-lisp/migemo-0.40")
;(add-to-list 'load-path "~/.emacs.d/site-lisp/apel-10.7")
(add-to-list 'load-path "~/.emacs.d/site-lisp/apel") ; cvs で 10.8 を checkout
(add-to-list 'load-path "~/.emacs.d/site-lisp/elscreen-1.4.6")
(add-to-list 'load-path "~/.emacs.d/site-lisp/wp-emacs") ; これは使わなさげ
(add-to-list 'load-path "~/.emacs.d/site-lisp/ac")
(add-to-list 'load-path "~/.emacs.d/site-lisp/twittering-mode")
(add-to-list 'load-path "~/.emacs.d/site-lisp/zencoding")

(global-set-key "\C-@" 'previous-line)  ; C-p 押しっぱなしだとモッサリするため
(global-set-key "\C-z" nil)             ; 最小化うざい

;; バッファ切り替えを簡単に
;(global-set-key "\M-n" 'next-buffer)
;(global-set-key "\M-p" 'previous-buffer)

(setq blink-cursor-interval 0.15)

;; insert spaces when TAB
;; ref: WEB+DB PRESS vol.58 p.78
(setq-default indent-tabs-mode nil)

;; ref: WEB+DB PRESS vol.58 p.78
(setq show-paren-delay 0)
(setq show-paren-style 'expression)
(set-face-background 'show-paren-match-face nil)
(set-face-underline-p 'show-paren-match-face "#99ff00")
(set-face-background 'show-paren-mismatch-face "#ff0000")
(set-face-underline-p 'show-paren-mismatch-face nil)

;;
;; xml-mode
;;
;; (setq auto-mode-alist (append '(("\\.html$" . xml-mode)) auto-mode-alist))
;; (setq auto-mode-alist (append '(("\\.tpl$" . xml-mode)) auto-mode-alist))
;;;; Text::MicroTemplate
;;(setq auto-mode-alist (append '(("\\.mt$" . xml-mode)) auto-mode-alist))
 
;;
;; sgml-mode
;;
(setq auto-mode-alist (append '(("\\.html$" . sgml-mode)) auto-mode-alist))
(setq auto-mode-alist (append '(("\\.tpl$" . sgml-mode)) auto-mode-alist))
(add-hook 'sgml-mode-hook
          '(lambda ()
             (define-key sgml-mode-map [?¥] "\\")))

;;
;; install-elisp
;;
(require 'install-elisp)
(setq install-elisp-repository-directory "~/.emacs.d/site-lisp/")
 
;;
;; auto-install
;;
(require 'auto-install)
(setq auto-install-directory "~/.emacs.d/auto-install/")
(auto-install-update-emacswiki-package-name t)
(auto-install-compatibility-setup)             ; install-elisp との互換性確保

;;
;; sequential-command
;;   ref:「Emacsテクニックバイブル」 p.76
;;
(require 'sequential-command-config)
(sequential-command-setup-keys)

;;
;; key-chord.el
;;   ref:「Emacsテクニックバイブル」 p.78
;;
(require 'key-chord)
(setq key-chord-two-keys-delay 0.04)
(key-chord-mode 1)
 
;; jk: 'view-mode
(key-chord-define-global "jk" 'view-mode)

;;
;; ffap
;;   ref:「Emacsテクニックバイブル」 p.83
;;
(ffap-bindings)

;;
;; uniquify
;;   ref:「Emacsテクニックバイブル」 p.84
;;
(require 'uniquify)
;; filename<dir> 形式のバッファ名にする
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)
;; * で囲まれたバッファ名は対象外にする
(setq uniquify-ignore-buffers-re "*[^*]+*")
</dir>

;;
;; iswitchb
;;   ref:「Emacsテクニックバイブル」 p.85
;;
(iswitchb-mode 1)
;; バッファ読み取り関数を iswitchb にする
(setq read-buffer-function 'iswitchb-read-buffer)
;; 部分文字列の代わりに正規表現を使う場合は t に設定する
(setq iswitchb-regexp nil)
;; 新しいバッファを作成するときにいちいち聞いてこない
(setq iswitchb-prompt-newbuffer nil)

;;
;; redo+
;;   ref:「Emacsテクニックバイブル」 p.123
;;
(require 'redo+)
(global-set-key (kbd "C-M-/") 'redo)
(setq undo-no-redo t) ; 過去のundoがredoされないようにする
;; 大量のundoに耐えられるようにする
(setq undo-limit 600000)
(setq undo-strong-limit 900000)

;;
;; sense-region
;;   ref:「Emacsテクニックバイブル」 p.124
;;
(require 'sense-region)
(sense-region-on)

;;
;; auto-complete
;;
(require 'auto-complete-config)
(add-to-list 'ac-dictionary-directories "~/.emacs.d/site-lisp/ac/ac-dict")
(ac-config-default)
 
(add-hook 'cperl-mode-hook
          '(lambda ()
             (progn
               (setq indent-tabs-mode nil)
               (setq tab-width nil)
 
               ; perl-completion
               (require 'auto-complete)
               (require 'perl-completion)
               (add-to-list 'ac-sources 'ac-source-perl-completion)
               (perl-completion-mode t)
              )))

;;
;; twittering-mode
;;   ref:「Emacsテクニックバイブル」 p.173
;;
(require 'twittering-mode)
;(setq twittering-status-format
;      "%C{%Y/%m/%d %H:%M:%S} %s > %T // from %f%L%r%R")
(setq twittering-status-format
      "%i %s\n%T\n\t%C{%Y-%m-%d %H:%M:%S} [%f] %r%R\n")
(setq twittering-username "issm")
;; つぶやくとき，ミニバッファではなくて通常のバッファがポップアップしてほしい場合はこれを加える
(setq twittering-update-status-function 'twittering-update-status-from-pop-up-buffer)

;;
;; rcirc
;;   ref:「Emacsテクニックバイブル」 p.178
;;
(setq rcirc-server-alist
      '(
        ("chat.freenode.net" :channels ("#perl-casual" "#yuruperl"))
        ))
(setq rcirc-log-flag t)

;;
;; migemo
;;   ref:「Emacsテクニックバイブル」 p.113
;;
(require 'migemo)

;;
;; anything
;;   ref:「Emacsテクニックバイブル」 pp.302-
;;
(require 'anything-startup)
(require 'anything-migemo)
(global-set-key (kbd "S-M-SPC") 'anything)
(define-key anything-map "\C-@" 'anything-previous-line)