My Emacs configuration

My Emacs configuration

(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.
 '(show-paren-mode t)
 '(text-mode-hook (quote (text-mode-hook-identify))))
(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.

 )
(setenv "HOME" "e:/emacs")
(setenv "PATH" "e:/emacs")
;;set the default file path
(setq default-directory "~/")
;;google-maps usage
;;M-x emacs-wiki-find-file RET
(add-to-list 'load-path "~/.emacs.d/emacs-wiki")
(require 'emacs-wiki)
;;google-maps usage
;;M-x google-maps RET
(add-to-list 'load-path "~/.emacs.d/google-maps")
(require 'google-maps)

;;color-theme usage
;;M-x color-theme-<TAB> RET
(add-to-list 'load-path "~/.emacs.d/color-theme")
(require 'color-theme)
(eval-after-load "color-theme"
  '(progn
     (color-theme-initialize)
     (color-theme-hober)))

;;用C-z i 打开配置文件 ~/.emacs
(defun open-config-file()
  (interactive)
  (find-file "~/.emacs"))
(global-set-key "\C-cc" 'open-config-file)

;;启用ibuffer支持，增强*buffer*  
(require 'ibuffer)  
(global-set-key (kbd "C-x C-b") 'ibuffer)  

(global-linum-mode 1)

;;关闭toolbar
(tool-bar-mode 0)

;;设置窗口透明
(set-frame-parameter (selected-frame) 'alpha (list 90 50))
(add-to-list 'default-frame-alist (cons 'alpha (list 90 50)))

;;调用auto-complete
;;If you want to use add-to-list' on a variable that is not defined until a certain package is loaded, 
;;you should put the call toadd-to-list' into a hook function that will be run only after loading the package.
;; `eval-after-load' provides one way to do this. In some cases other hooks, such as major mode hooks, can do the job.
(add-to-list 'load-path "~/.emacs.d/auto-complete")
(require 'auto-complete-config)
(add-to-list 'ac-dictionary-directories "~/.emacs.d/ac-dict")
;;(eval-after-load "auto-complete-config"
;;  '(add-to-list 'ac-dictionary-directories "~/auto-complete/dict"))
(ac-config-default)

(add-to-list 'load-path "~/.emacs.d/python-mode")

;;(add-to-list 'load-path "~/slime/")  ; your SLIME directory
;;(setq inferior-lisp-program "E:/Program Files/SBCL/sbcl.exe") ; your Lisp system
;;(add-to-list 'load-path "E:/Program Files/SBCL")
(add-to-list 'load-path "~/.emacs.d/slime")
(setq inferior-lisp-program "sbcl.exe")
(require 'slime-autoloads);;load slime
(slime-setup '(slime-fancy))
;;(setq slime-lisp-implementations
;;      '((sbcl ("sbcl" "--core" "sbcl.core"))))

;;set org-log-done to mark DONE date&time for the TODO items

(add-hook 'messag-mode-hook 'turn-on-orgtbl)

;;
;;config org 7.7
;;
(add-to-list 'load-path "~/.emacs.d/org/")
(require 'org-install)
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
;;(global-set-key "\C-col" 'org-store-link)
;;(global-set-key "\C-coc" 'org-capture)
;;(global-set-key "\C-coa" 'org-agenda)
;;(global-set-key "\C-cob" 'org-iswitchb)
;; Find the Org documentation
(setq Info-default-directory-list 
  (cons "~/.emacs.d/org/doc/" Info-default-directory-list)) 
(require 'org-info)
(setq org-log-done t)