Index: /dotfiles/emacs/yappo-emacs
===================================================================
--- /dotfiles/emacs/yappo-emacs (revision 19)
+++ /dotfiles/emacs/yappo-emacs (revision 19)
@@ -0,0 +1,175 @@
+(setq load-path (cons "~/lisp/" load-path))
+
+(autoload 'javascript-mode "javascript" "JavaScript mode" t)
+(autoload 'riece "riece" "Start Riece" t)
+
+(require 'yaml-mode)
+
+(setq auto-mode-alist
+      (append '(("\\.js\\'" . javascript-mode)
+        ("\\.tt\\'" . xml-mode)
+        ("\\.pod\\'" . pod-mode)
+        ("\\.ya?ml\\'" . yaml-mode))
+        auto-mode-alist))
+
+(global-set-key "\C-h" 'backward-delete-char)
+(define-key global-map "\C-o" 'dabbrev-expand)
+(menu-bar-mode 0)
+(column-number-mode t)
+(line-number-mode t)
+(recentf-mode)
+(display-time)
+(setq scroll-step 1)
+;(add-hook 'text-mode-hook 'ruler-mode)
+;(add-hook 'cperl-mode-hook 'ruler-mode)
+
+(global-font-lock-mode t)
+(setq font-lock-support-mode 'jit-lock-mode)
+(setq-default transient-mark-mode t)
+
+(setq auto-save-default nil)
+(setq auto-save-list-file-prefix "~/.autosave/")
+
+(defun make-backup-file-name (filename)
+  (expand-file-name
+   (concat "~/.emacs.backup/" (file-name-nondirectory filename) "~")
+   (file-name-directory filename)))
+
+(setq cssm-indent-function #'cssm-c-style-indenter)
+(setq javascript-indent-level 8)
+
+(defalias 'perl-mode 'cperl-mode) ; cperlモード
+(setq cperl-indent-level 4)
+(setq cperl-continued-statement-offset 4)
+(setq cperl-brace-offset -4)
+(setq cperl-label-offset -4)
+(setq cperl-indent-parens-as-block t)
+(setq cperl-close-paren-offset -4)
+(setq cperl-tab-always-indent t)
+;(setq cperl-invalid-face nil)
+(setq cperl-highlight-variables-indiscriminately t)
+
+(defun perltidy-region ()
+  "Run perltidy on the current region."
+  (interactive)
+  (save-excursion
+    (shell-command-on-region (point) (mark) "perltidy -q" nil t)))
+(defun perltidy-defun ()
+  "Run perltidy on the current defun."
+  (interactive)
+  (save-excursion (mark-defun)
+  (perltidy-region)))
+(defun my-insert-date () ; 日付入れる関数。perlモジュールのChanges書くときに主に使用
+  (interactive)
+  (insert (format-time-string "%Y-%m-%dT%R:%S+09:00" (current-time))))
+
+(global-set-key "\C-ct" 'perltidy-region)
+
+; colors ; こっからカラーの設定だけどこれはMeadow使ってたときの設定。コンソールでは意味ない(256色モード使ってないので)
+;;(require 'font-lock)
+;;(set-face-foreground 'font-lock-comment-face "red")
+
+; colors for Tab and Space
+(defface my-face-b-1 '((t (:background "gray"))) nil)
+(defface my-face-u-2 '((t (:foreground "blue" :underline t))) nil)
+(defface my-face-u-1 '((t (:foreground "SteelBlue" :underline t))) nil)
+(defvar my-face-b-1 'my-face-b-1)
+(defvar my-face-u-2 'my-face-u-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-u-2 append)
+     ("　" 0 my-face-b-1 append)
+     ("[ \t]+$" 0 my-face-u-1 append)
+     )))
+(ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode)
+;;(ad-activate 'font-lock-mode)
+
+
+; インクリメンタルにバッファきりかえられるやつ。必須すぎ
+(iswitchb-default-keybindings) ; emacs21の人はこっち
+
+; 同じ名前のバッファがあった場合上の階層のディレクトリとかも一緒に出して区別できるようにユニークなバッファ名にしてくれるやつ
+; コレも必須
+(require 'uniquify)
+(setq uniquify-buffer-name-style 'post-forward-angle-brackets)
+
+
+
+
+; mew
+;(autoload 'mew "mew" nil t)
+(autoload 'mew-send "mew" nil t)
+(setq mew-name "Kazuhiro Osawa")
+(setq mew-user "user")
+(setq mew-mail-domain "example.ne.jp")
+(setq mew-pop-user "user@example.ne.jp")             ; POP ユーザー名
+(setq mew-pop-server "localhost")       ; POP サーバ名
+(setq mew-pop-auth 'pass)               ; POP 認証方式 ( default は APOP )
+(setq mew-pop-port "pop3")              ; POP ポート名
+;(setq mew-smtp-server "mail.example.ne.jp")  ; SMTP サーバ名
+(setq mew-mail-path "~/Mail")       ; mailbox の場所 ( default は ~/Mail )
+
+(setq mew-mail-domain-list '("example.ne.jp"))
+(setq mew-auto-get nil)                 ; 起動時に get させない
+(setq mew-fcc "+outbox")                ; 送信メールのバックアップ格納場所 ( default は +backup )
+
+; Summary の形式 ( Default は 「'(type (5 date) " " (14 from) " " (0 subj))」)
+(setq mew-scan-form 
+      '(-5 type (-4 year ) "/" (5 date) " " (5 time) " " (12 from) " " (0 subj)))
+
+; Reply-To がある場合は、Reply-To にのみ返信する
+(setq mew-replyto-to-list '("Reply-To:"))
+(setq mew-replyto-cc-list nil)
+
+; その他
+(defvar mew-field-completion-switch
+'(("To:"       . mew-complete-address)
+  ("Cc:"       . mew-complete-address)
+  ("Dcc:"      . mew-complete-address)
+  ("Bcc:"      . mew-complete-address)
+  ("Reply-To:" . mew-complete-address)
+  ("From:"     . mew-complete-address)
+  ("Fcc:"      . mew-complete-folder)
+  ("Config:"   . mew-complete-config)))
+
+(if (boundp 'mail-user-agent)
+    (setq mail-user-agent 'mew-user-agent))
+
+(if (boundp 'define-mail-user-agent)
+    (define-mail-user-agent
+      'mew-user-agent)
+    (define-mail-user-agent
+      'mew-user-agent
+      'mew-user-agent-compose
+      'mew-draft-send-letter
+      'mew-draft-kill
+      'mew-send-hook))
+
+(setq mew-mime-multipart-alternative-list '("Text/Html" "Text/Plain" "*."))
+(condition-case nil
+    (require 'mew-w3m)
+  (file-error nil))
+;(setq w3m-type 'w3m-m17n)
+
+(defvar mew-forward-string "Forward: ")
+
+(setq mew-spam: "X-Spam-Flag:")
+(setq mew-biff t)
+
+(setq mew-prog-pgp "gpg")
+(setq mew-prog-gpg "gpg-emacs")
+
+;(defun my-mew-set-spam ()
+;  (interactive)
+;  (insert "ospam/spam\C-m"))
+
+(fset 'my-mew-set-spam
+   "ospam/spam\C-m")
+(define-key mew-summary-mode-map "zz"    'my-mew-set-spam)
+
+