root/dotfiles/emacs/yappo-emacs

(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$B%b!<%I(B
(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 () ; $BF|IUF~$l$k4X?t!#(Bperl$B%b%8%e!<%k$N(BChanges$B=q$/$H$-$K<g$K;HMQ(B
  (interactive)
  (insert (format-time-string "%Y-%m-%dT%R:%S+09:00" (current-time))))

(global-set-key "\C-ct" 'perltidy-region)

; colors ; $B$3$C$+$i%+%i!<$N@_Dj$@$1$I$3$l$O(BMeadow$B;H$C$F$?$H$-$N@_Dj!#%3%s%=!<%k$G$O0UL#$J$$(B(256$B?'%b!<%I;H$C$F$J$$$N$G(B)
;;(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)

; $B%?%V$HA43Q%9%Z!<%9$N?'$+$($k(B
(defadvice font-lock-mode (before my-font-lock-mode ())
  (font-lock-add-keywords
   major-mode
   '(
//     ("\t" 0 my-face-u-2 append)
     ("$B!!(B" 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)


; $B%$%s%/%j%a%s%?%k$K%P%C%U%!$-$j$+$($i$l$k$d$D!#I,?\$9$.(B
(iswitchb-default-keybindings) ; emacs21$B$N?M$O$3$C$A(B

; $BF1$8L>A0$N%P%C%U%!$,$"$C$?>l9g>e$N3,AX$N%G%#%l%/%H%j$H$+$b0l=o$K=P$7$F6hJL$G$-$k$h$&$K%f%K!<%/$J%P%C%U%!L>$K$7$F$/$l$k$d$D(B
; $B%3%l$bI,?\(B
(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 $B%f!<%6!<L>(B
(setq mew-pop-server "localhost")       ; POP $B%5!<%PL>(B
(setq mew-pop-auth 'pass)               ; POP $BG'>ZJ}<0(B ( default $B$O(B APOP )
(setq mew-pop-port "pop3")              ; POP $B%]!<%HL>(B
;(setq mew-smtp-server "mail.example.ne.jp")  ; SMTP $B%5!<%PL>(B
(setq mew-mail-path "~/Mail")       ; mailbox $B$N>l=j(B ( default $B$O(B ~/Mail )

(setq mew-mail-domain-list '("example.ne.jp"))
(setq mew-auto-get nil)                 ; $B5/F0;~$K(B get $B$5$;$J$$(B
(setq mew-fcc "+outbox")                ; $BAw?.%a!<%k$N%P%C%/%"%C%W3JG<>l=j(B ( default $B$O(B +backup )

; Summary $B$N7A<0(B ( Default $B$O(B $B!V(B'(type (5 date) " " (14 from) " " (0 subj))$B!W(B)
(setq mew-scan-form 
      '(-5 type (-4 year ) "/" (5 date) " " (5 time) " " (12 from) " " (0 subj)))

; Reply-To $B$,$"$k>l9g$O!"(BReply-To $B$K$N$_JV?.$9$k(B
(setq mew-replyto-to-list '("Reply-To:"))
(setq mew-replyto-cc-list nil)

; $B$=$NB>(B
(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)