(define-key global-map "\C-h" 'backward-delete-char)
(define-key global-map "\M-?" 'help)
(define-key global-map "\M-[ h" 'move-beginning-of-line)
(define-key global-map "\M-[ f" 'move-end-of-line)
;; (autoload 'php-mode "php-mode.el" "Php mode." t)
;; (setq auto-mode-alist (append '(("/*.\.php[345]?$" . php-mode)) auto-mode-alist))
(setq backup-directory-alist `(("." . "~/.backup")))
;; (add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(inhibit-startup-screen t))

(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(default ((t (:inherit nil :stipple nil :background "#121212" :foreground "#ffffff" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :foundry "unknown" :family "Inconsolata")))))
(setq auto-mode-alist (cons '("\.lua$" . lua-mode) auto-mode-alist))
(autoload 'lua-mode "lua-mode" "Lua editing mode." t)
(setq auto-mode-alist (cons '("\.hs$" . haskell-mode) auto-mode-alist))
(autoload 'haskell-mode "haskell-mode" "Haskell editing mode." t)

(add-to-list 'load-path "~/.emacs.d/site-lisp/")
;; (require 'color-theme)
;; (color-theme-retro-green)