emacs configure home

.emacs

;;load path
(add-to-list 'load-path "/home/gestapolur/.emacs.d/lisp/")
;;tree view
(autoload 'dirtree "dirtree" "Add directory to tree view" t)
(require 'dirtree)
(require 'tree-mode)
(require 'windata)
(require 'twittering-mode)

(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.
 '(display-time-mode t)
 '(fancy-splash-image "/home/gestapolur/图片/test.png")
 '(inhibit-default-init t)
 ;;'(inhibit-startup-buffer-menu t)
 ;;'(inhibit-startup-screen nil)
 '(show-paren-mode 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 "#2e3436" :foreground "#eeeeec" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 120 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))))

(global-set-key [f9] 'compile)
;;(normal-top-level-add-subdirs-to-load-path)
;;(progn (cd "~/.elisp") (normal-top-level-add-subdirs-to-load-path))
;;loading directory
;;(color-theme-feng-shui)
;;(color-theme-dark-blue)
;;(color-theme-aalto-dark)
;;color theme of emacs
(require 'color-theme)
(color-theme-initialize)
;;(setq color-theme-is-global t)
;;(setq color-theme-is-cumulative t)
;;(setq color-theme-load-all-themes nil)
;;(color-theme-gnome)
(color-theme-tangotango)
(add-hook 'message-mode-hook 'color-theme-tangotango)
(add-hook 'gnus-article-mode-hook 'color-theme-tangotango)

(add-hook 'after-make-frame-functions
	  (lambda (frame)
	    (set-variable 'color-theme-is-global nil)
	    (select-frame frame)
	    (if window-system
		(color-theme-tangotango)
	      (color-theme-tty-dark))))
;;fold code
(add-hook 'c-mode-hook 'hs-minor-mode)
(add-hook 'c++-mode-hook 'hs-minor-mode)  
;;tab-short
(setq-default indent-tabs-mode nil)
(delete-selection-mode t)
;;show line number
(global-linum-mode t)