emacs.conf

;;--------------窗口界面设置------------------
(set-foreground-color "grey")
(set-background-color "black")
(set-cursor-color "gold1")
(set-mouse-color "gold1")

;; 取消滚动栏
(set-scroll-bar-mode nil)
;; 取消工具栏
(tool-bar-mode nil)

;; 启动设置
(setq default-frame-alist
             '((vertical-scroll-bars)
               (top . 0)
               (left . 0)
               (width . 100)
               (height . 50)
               (background-color . "black")
               (foreground-color . "grey")
               (cursor-color . "gold1")
               (mouse-color . "gold1")
               (tool-bar-lines . 0)
               (menu-bar-lines . 0)
               (right-fringe)
               (left-fringe)))

;; 启动自动最大化(数据自己调整，注意格式，如(top . 0)，圆点前后都要留有空格)
;(setq initial-frame-alist '((top . 0) (left . 0) (width . 120) (height . 50)))

;; 设置另外一些颜色：语法高亮显示的背景和主题，区域选择的背景和主题，二次选择的>背景和选择
(set-face-foreground 'highlight "white")
(set-face-background 'highlight "blue")
(set-face-foreground 'region "cyan")
(set-face-background 'region "blue")
(set-face-foreground 'secondary-selection "skyblue")
(set-face-background 'secondary-selection "darkblue")

;; ido的配置,这个可以使你在用C-x C-f打开文件的时候在后面有提示;
;; 这里是直接打开了ido的支持，在emacs23中这个是自带的.
(ido-mode t)

;; ido模式中不保存目录列表,解决退出Emacs时ido要询问编码的问题。
(setq ido-save-directory-list-file nil)

;; 关闭烦人的出错时的提示声
(setq visible-bell t)

;; 关闭emacs启动时的画面
(setq inhibit-startup-message t)

;; 关闭gnus启动时的画面
(setq gnus-inhibit-startup-message t)

;; 改变 Emacs 固执的要你回答 yes 的行为。按 y 或空格键表示 yes，n 表示 no。
(fset 'yes-or-no-p 'y-or-n-p)

;; 显示行列号
(setq column-number-mode t)
(setq line-number-mode t)

;; 语法高亮。除 shell-mode 和 text-mode 之外的模式中使用语法高亮。
(setq font-lock-maximum-decoration t)
(setq font-lock-global-modes '(not shell-mode text-mode))
(setq font-lock-verbose t)
(setq font-lock-maximum-size '((t . 1048576) (vm-mode . 5250000)))

;; close current window
(global-set-key [C-f4] 'kill-this-buffer)

;; comment and uncomment
(global-set-key [?\C-c ?\C-/] 'comment-or-uncomment-region)

;; 不要在鼠标点击的那个地方插入剪贴板内容。我不喜欢那样，经常把我的文档搞的一团糟。我觉得先用光标定位，然后鼠标中键点击要好的多。不管你的光标在文档的那个位置，或是在 minibuffer，鼠标中键一点击，X selection 的内容就被插入到那个位置。
(global-linum-mode t)
(setq mouse-yank-at-point t)

;; 设置粘贴缓冲条目数量.用一个很大的kill ring(最多的记录个数). 这样防止我不小心删掉重要的东西
(setq kill-ring-max 200)

;; Autofill in all modes;;
(setq-default auto-fill-function 'do-auto-fill)

;; 把 fill-column 设为 60. 这样的文字更好读
(setq default-fill-column 120)

;; 防止页面滚动时跳动， scroll-margin 3 可以在靠近屏幕边沿3行时就开始滚动，可以很好的看到上下文。
(setq scroll-margin 3 scroll-conservatively 10000)

;; 打开括号匹配显示模式
(show-paren-mode t)

;; tab键为4个字符宽度
(setq-default indent-tabs-mode nil)
(setq default-tab-width 4)
(setq tab-stop-list ())

;; 括号匹配时可以高亮显示另外一边的括号，但光标不会烦人的跳到另一个括号处。
(setq show-paren-style 'parenthesis)

;; 光标靠近鼠标指针时，让鼠标指针自动让开，别挡住视线。
(mouse-avoidance-mode 'animate)

;; 在标题栏显示buffer的名字，而不是 emacs@wangyin.com 这样没用的提示。
(setq frame-title-format "emacs@%b")

;; 进行语法加亮。
(setq global-font-lock-mode t)

;; 在行首 C-k 时，同时删除该行。
(setq-default kill-whole-line t)

;; 设定不产生备份文件
(setq make-backup-files nil)

;; 不生成临时文件
(setq-default make-backup-files nil)

;; 允许emacs和外部其他程序的粘贴
(setq x-select-enable-clipboard t)

;; 设置有用的个人信息,这在很多地方有用。
(setq user-full-name "songli")

;; 自动的在文件末增加一新行
(setq require-final-newline t)

;; 设置F10为撤销
(global-set-key [f10] 'undo)

(when (>= emacs-major-version 24)
  (require 'package)
  (add-to-list
   'package-archives
   '("melpa" . "http://melpa.org/packages/")
   t)
  (package-initialize))
;; =============== emacs basic config finish ===============

;; =============== ecb ===================  
;(add-to-list 'load-path  "/usr/share/emacs/site-lisp/ecb")
(require 'ecb)
(require 'ecb-autogen)
(setq ecb-version-check nil)
(setq stack-trace-on-error nil)

;; ecb启动的时候会弹出一个提示窗口,如果不想看到它，可以在emacs配置文件(~/.emacs)里加这一句:
(setq ecb-auto-activate t
      ecb-tip-of-the-day nil)
(setq ecb-tip-of-the-day nil)
(ecb-activate)

(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.  
 '(ecb-fix-window-size t)  
 '(ecb-layout-window-sizes nil)  
 '(ecb-options-version "2.40")  
 '(ecb-primary-secondary-mouse-buttons (quote mouse-1--mouse-2))  
 '(ecb-windows-width 0.3))  
(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.  
 )  
(put 'upcase-region 'disabled nil)  
(put 'downcase-region 'disabled nil)  


;; ecb的导航窗口里的东西默认不能用鼠标点选/打开，用键盘回车可以。如果想用鼠标，配置文件里加这一句：
;; (ecb-primary-secondary-mouse-buttons (quote mouse-1--C-mouse-1)

;; ecb相关设置
;; 各窗口间切换
(global-set-key [M-left] 'windmove-left)
(global-set-key [M-right] 'windmove-right)
(global-set-key [M-up] 'windmove-up)
(global-set-key [M-down] 'windmove-down)
 
;; 隐藏和显示ecb窗口
(define-key global-map [(control f1)] 'ecb-hide-ecb-windows)
(define-key global-map [(control f2)] 'ecb-show-ecb-windows)
 
;; 使某一ecb窗口最大化
(define-key global-map [(control c1)] 'ecb-maximize-window-directories)
(define-key global-map [(control c2)] 'ecb-maximize-window-sources)
(define-key global-map [(control c3)] 'ecb-maximize-window-methods)
(define-key global-map [(control c4)] 'ecb-maximize-window-history)
;; 恢复原始窗口布局
;(define-key global-map "/C-c`" 'ecb-restore-default-window-sizes)


;;;;;;;;;;;;;;;;; coding style config ;;;;;;;;;;;;;;;;
;; config org-mode
(require 'org)
(require 'org-publish)
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))

(require 'auto-complete)
(require 'auto-complete-config)
(global-auto-complete-mode t)
(setq-default ac-sources '(ac-source-words-in-same-mode-buffers))
(add-hook 'emacs-lisp-mode-hook (lambda () (add-to-list 'ac-sources 'ac-source-symbols)))
(add-hook 'auto-complete-mode-hook (lambda () (add-to-list 'ac-sources 'ac-source-filename)))
(set-face-background 'ac-candidate-face "lightgray")
(set-face-underline 'ac-candidate-face "darkgray")
(set-face-background 'ac-selection-face "steelblue") ;;; 设置比上面截图中更好看的背景颜色
(define-key ac-completing-map "\M-n" 'ac-next)  ;;; 列表中通过按M-n来向下移动
(define-key ac-completing-map "\M-p" 'ac-previous)
(setq ac-auto-start 2)
(setq ac-dwim t)
(define-key ac-mode-map (kbd "M-TAB") 'auto-complete)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(when (load "flymake" t)
(defun flymake-pyflakes-init ()
(let* ((temp-file (flymake-init-create-temp-buffer-copy
'flymake-create-temp-inplace))
(local-file (file-relative-name
temp-file
(file-name-directory buffer-file-name))))
(list "pyflakes" (list local-file))))

(add-to-list 'flymake-allowed-file-name-masks
'("\\.py\\'" flymake-pyflakes-init)))

(add-hook 'find-file-hook 'flymake-find-file-hook)

;; flymake for html
(defun flymake-html-init ()
(let* ((temp-file (flymake-init-create-temp-buffer-copy
'flymake-create-temp-inplace))
(local-file (file-relative-name
temp-file
(file-name-directory buffer-file-name))))
(list "tidy" (list local-file))))
(add-to-list 'flymake-allowed-file-name-masks
'("\\.html$\\|\\.ctp" flymake-html-init))
(add-to-list 'flymake-err-line-patterns
'("line \\([0-9]+\\) column \\([0-9]+\\) - \\(Warning\\|Error\\): \\(.*\\)"
nil 1 2 4))

(load-file (expand-file-name "~/.emacs.d/web-mode.el"))
(require 'web-mode)
(add-to-list 'auto-mode-alist '("\\.phtml\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.tpl\\.php\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.jsp\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.as[cp]x\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.erb\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.mustache\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.djhtml\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode))

(load-file (expand-file-name "~/.emacs.d/markdown-mode.el"))
(require 'markdown-mode)
(add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode))
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))

;; 最大化
(defun my-maximized ()    
  (interactive)    
  (x-send-client-message    
   nil 0 nil "_NET_WM_STATE" 32    
   '(2 "_NET_WM_STATE_MAXIMIZED_HORZ" 0))    
  (x-send-client-message    
   nil 0 nil "_NET_WM_STATE" 32    
   '(2 "_NET_WM_STATE_MAXIMIZED_VERT" 0)))    
(my-maximized)

;;cedet
;(add-to-list 'load-path  "~/.emacs.d/plugins/cedet-1.1/common")
;(load-file "~/.emacs.d/plugins/cedet-1.1/common/cedet.el")
;(global-ede-mode 1)                      ; Enable the Project management system
;(semantic-load-enable-code-helpers)      ; Enable prototype help and smart completion 
;(global-srecode-minor-mode 1)            ; Enable template insertion menu

;(autoload 'js2-mode "js2" nil t)
;(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))


;(autoload 'pymacs-apply "pymacs")
;(autoload 'pymacs-call "pymacs")
;(autoload 'pymacs-eval "pymacs" nil t)
;(autoload 'pymacs-exec "pymacs" nil t)
;(autoload 'pymacs-load "pymacs" nil t)

;(pymacs-load "ropemacs" "rope-")
;(setq ropemacs-enable-autoimport t)

;(require 'auto-complete)
;(require 'auto-complete-config)
;(global-auto-complete-mode t)
;(setq-default ac-sources '(ac-source-words-in-same-mode-buffers))
;(add-hook 'emacs-lisp-mode-hook (lambda () (add-to-list 'ac-sources 'ac-source-symbols)))
;(add-hook 'auto-complete-mode-hook (lambda () (add-to-list 'ac-sources 'ac-source-filename)))
;(set-face-background 'ac-candidate-face "lightgray")
;(set-face-underline 'ac-candidate-face "darkgray")
;(set-face-background 'ac-selection-face "steelblue") ;;; 设置比上面截图中更好看的背景颜色
;(define-key ac-completing-map "\M-n" 'ac-next)  ;;; 列表中通过按M-n来向下移动
;(define-key ac-completing-map "\M-p" 'ac-previous)
;(setq ac-auto-start 2)
;(setq ac-dwim t)
;(define-key ac-mode-map (kbd "M-TAB") 'auto-complete)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;(autoload 'python-mode "python-mode" "Python Mode." t)
;(add-to-list 'auto-mode-alist '("\\.py\\'" . python-mode))
;(add-to-list 'interpreter-mode-alist '("python" . python-mode))
;(require 'python-mode)
;(add-hook 'python-mode-hook
;(lambda ()
;(set-variable 'py-indent-offset 4)
;(set-variable 'indent-tabs-mode nil)
;(define-key py-mode-map (kbd "RET") 'newline-and-indent)
;(smart-operator-mode-on)
;))
;; pymacs
;(autoload 'pymacs-apply "pymacs")
;(autoload 'pymacs-call "pymacs")
;(autoload 'pymacs-eval "pymacs" nil t)
;(autoload 'pymacs-exec "pymacs" nil t)
;(autoload 'pymacs-load "pymacs" nil t)
;(pymacs-load "ropemacs" "rope-")
;(setq ropemacs-enable-autoimport t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Auto-completion
;;; Integrates:
;;; 1) Rope
;;; 2) Yasnippet
;;; all with AutoComplete.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;(defun prefix-list-elements (list prefix)
;(let (value)
;(nreverse
;(dolist (element list value)
;(setq value (cons (format "%s%s" prefix element) value))))))
;(defvar ac-source-rope
;'((candidates
;. (lambda ()
;(prefix-list-elements (rope-completions) ac-target))))
;"Source for Rope")
;(defun ac-python-find ()
;"Python `ac-find-function'."
;(require 'thingatpt)
;(let ((symbol (car-safe (bounds-of-thing-at-point 'symbol))))
;(if (null symbol)
;(if (string= "." (buffer-substring (- (point) 1) (point)))
;(point)
;nil)
;symbol)))
;(defun ac-python-candidate ()
;"Python `ac-candidates-function'"
;(let (candidates)
;(dolist (source ac-sources)
;(if (symbolp source)
;(setq source (symbol-value source)))
;(let* ((ac-limit (or (cdr-safe (assq 'limit source)) ac-limit))
;(requires (cdr-safe (assq 'requires source)))
;cand)
;(if (or (null requires)
;(>= (length ac-target) requires))
;(setq cand
;(delq nil
;(mapcar (lambda (candidate)
;(propertize candidate 'source source))
;(funcall (cdr (assq 'candidates source)))))))
;(if (and (> ac-limit 1)
;(> (length cand) ac-limit))
;(setcdr (nthcdr (1- ac-limit) cand) nil))
;(setq candidates (append candidates cand))))
;(delete-dups candidates)))
;(add-hook 'python-mode-hook
;(lambda ()
;(auto-complete-mode 1)
;(set (make-local-variable 'ac-sources)
;(append ac-sources '(ac-source-rope) '(ac-source-yasnippet)))
;(set (make-local-variable 'ac-find-function) 'ac-python-find)
;(set (make-local-variable 'ac-candidate-function) 'ac-python-candidate)
;(set (make-local-variable 'ac-auto-start) nil)))
;;Ryan's python specific tab completion
;(defun ryan-python-tab ()
; Try the following:
; 1) Do a yasnippet expansion
; 2) Do a Rope code completion
; 3) Do an indent
;(interactive)
;(if (eql (ac-start) 0)
;(indent-for-tab-command)))
;(defadvice ac-start (before advice-turn-on-auto-start activate)
;(set (make-local-variable 'ac-auto-start) t))
;(defadvice ac-cleanup (after advice-turn-off-auto-start activate)
;(set (make-local-variable 'ac-auto-start) nil))
;(define-key py-mode-map "\t" 'ryan-python-tab)