1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | (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)
|
x
