Emacs configure file

init.el

;; PATH
(setq exec-path (cons "/opt/local/bin" exec-path))
(setenv "PATH"
	(concat '"/opt/local/bin:" (getenv "PATH")))

;; load-path
(add-to-list 'load-path "~/.emacs.d/")
(add-to-list 'load-path "~/.emacs.d/share/emacs/site-lisp/")
(add-to-list 'load-path "~/.emacs.d/ruby/")

;; Keyboard
; Back Slash
(define-key global-map [?¥] [?\\])
(define-key global-map (kbd "C-M-¥") 'indent-region)

; Mac Command Key as Meta Key
(setq ns-command-modifier (quote meta))
(setq ns-alternate-modifier (quote super))

;; spell check
(setq ispell-program-name "/opt/local/bin/aspell")

;; Display
;(load "color-theme")
;(color-theme-initialize)
;;(color-theme-robin-hood)
;(color-theme-blue-sea)

(set-face-background 'region "SkyBlue")
(set-face-foreground 'region "black")

(if (boundp 'window-system)
    (setq initial-frame-alist
          (append (list
                   '(foreground-color . "azure3")
                   '(background-color . "black")
                   '(border-color     . "black")
                   '(mouse-color      . "white")
                   '(cursor-color     . "white")
                   '(cursor-type      . box)
                   '(menu-bar-lines . 1)
                   '(vertical-scroll-bars . nil)
                   '(width . 100)
                   '(height . 48)
                   '(top . 28)
                   '(left . 70)
                   )
                  initial-frame-alist)))
(setq default-frame-alist initial-frame-alist)

(add-to-list 'default-frame-alist '(alpha . 95))

(setq transient-mark-mode t)
(setq truncate-lines nil)
(setq truncate-partial-width-windows nil)

;;(show-paren-mode)

;; Git
(require 'magit)

;; Ruby
(autoload 'ruby-mode "ruby-mode" "Major mode for ruby files" t)
(add-to-list 'auto-mode-alist '("\\.rb$" . ruby-mode))
(add-to-list 'interpreter-mode-alist '("ruby" . ruby-mode))

;;php-mode
;;(load-library "php-mode-102")
(require 'php-mode)

;; install-elisp
(require 'install-elisp)
(setq install-elisp-repository-directory "~/.emacs.d/")

;; auto-install
(require 'auto-install)
(setq auto-install-directory "~/.emacs.d/")
(auto-install-update-emacswiki-package-name t)
(auto-install-compatibility-setup)

;; anything
(require 'anything)
(define-key global-map (kbd "C-;") 'anything)

(setq recentf-max-saved-items 500)