root/dotfiles/emacs/oinume/.emacs.unix.el @ 14815

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Emacs Unix�Ķ�������ե�����;
;; $Id$
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;(setq default-frame-alist
;      (append (list
;                   '(foreground-color . "black")
;                   '(background-color . "LemonChiffon")
;                    '(background-color . "gray")
;                    '(border-color . "black")
;                    '(mouse-color . "white")
;                    '(cursor-color . "black")
;               '(width . 90) '(height . 52))
;              default-frame-alist))

;; gnuserv��ư
(server-start)

;; anthy
(setq default-input-method "japanese-anthy")

;; migemo
;(setq migemo-directory "/usr/share/migemo")
(load-library "migemo")

;; ange-ftp
(setq ange-ftp-ftp-program-name "/usr/bin/ftp")

;; psvn
;(require 'psvn)
;(add-hook 'dired-mode-hook
;          '(lambda ()
;             (require 'dired-x)
;             ;;(define-key dired-mode-map "V" 'cvs-examine)
;             (define-key dired-mode-map "V" 'svn-status)
;             (turn-on-font-lock)
;             ))
;(setq svn-status-hide-unmodified t)
;(setq process-coding-system-alist
;      (cons '("svn" . utf-8) process-coding-system-alist))

;; rails
;(setq load-path (cons "~/.emacs.d/emacs-rails" load-path))
;(defun try-complete-abbrev (old)
;  (if (expand-abbrev) t nil))

;(setq hippie-expand-try-functions-list
;      '(try-complete-abbrev
;        try-complete-file-name
;        try-expand-dabbrev))
;(setq rails-use-mongrel t)

;(require 'rails)
;(define-key rails-minor-mode-map "\C-c\C-p" 'rails-lib:run-primary-switch)
;(define-key rails-minor-mode-map "\C-c\C-n" 'rails-lib:run-secondary-switch)