emacs 配置
个人的Emacs配置，环境是archlinux，参考了不少网上资料，因为太多，就不一一列举了，在这里感谢那些作者的辛苦经验劳动。
(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. '(column-number-mode t) '(ecb-options-version "2.40") '(size-indication-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. ) ;;按F11全屏 (global-set-key [f11] 'my-fullscreen) ;全屏 (defun my-fullscreen () (interactive) (x-send-client-message nil 0 nil "_NET_WM_STATE" 32 '(2 "_NET_WM_STATE_FULLSCREEN" 0)) ) ;最大化 (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-1.1 配置 ;忽略目前cedet的一个issue (setq byte-compile-warnings nil) (load-file "~/.emacs.d/plugins/cedet-1.1/common/cedet.el") (semantic-load-enable-minimum-features) ; 自动分析buffer内容 保存分析后的内容 可以利用ebrowse的结果 (semantic-load-enable-code-helpers) ; 这个feature可以让imenu显示semantic分析出的类，函数等tags。 ;(semantic-load-enable-guady-code-helpers) ; 根据光标位置把当前函数名显示在buffer顶上 semantic会在类/函数等tag上方加一条蓝色的线 (semantic-load-enable-excessive-code-helpers) ; 其中包含上条被注释的功能 (global-ede-mode t) (require 'semantic) (require 'semantic-ia) (global-semantic-stickyfunc-mode 0) (require 'semantic-gcc) (require 'semanticdb) (global-srecode-minor-mode 1) ;;EAssist 配置 文件包含在cedet中 (add-to-list 'load-path "~/.emacs.d/plugins/cedet-1.1/contrib/") (defun my-c-mode-common-hook () (define-key c-mode-base-map (kbd "M-o") 'eassist-switch-h-cpp) (define-key c-mode-base-map (kbd "M-m") 'eassist-list-methods)) (add-hook 'c-mode-common-hook 'my-c-mode-common-hook) ;;ecb-2.4 配置 (add-to-list 'load-path "~/.emacs.d/plugins/ecb-master/") (require 'ecb) (setq ecb-tip-of-the-day nil) ;启动ECB时不显示每日提示 (ecb-activate) ;;cscope 配置 (require 'xcscope) ;;color-theme-6.6.0 (add-to-list 'load-path "~/.emacs.d/plugins/color-theme-6.6.0/") (require 'color-theme) (color-theme-initialize) ;(color-theme-arjen) (color-theme-matrix) ;;YASnippet 配置 (add-to-list 'load-path "~/.emacs.d/plugins/yasnippet") (require 'yasnippet) (yas-global-mode 1) ;;switch-window 配置 (load-file "~/.emacs.d/plugins/switch-window.el") (require 'switch-window) (global-set-key (kbd "C-x o") 'switch-window) ;;auto-complete 配置 (add-to-list 'load-path "~/.emacs.d/plugins/auto-complete/lib/fuzzy/") (add-to-list 'load-path "~/.emacs.d/plugins/auto-complete/lib/popup/") (add-to-list 'load-path "~/.emacs.d/plugins/auto-complete/lib/ert/lisp/emacs-lisp/") (add-to-list 'load-path "~/.emacs.d/plugins/auto-complete/") (require 'auto-complete-config) (ac-config-default) (add-to-list 'ac-dictionary-directories "~/.emacs.d/plugins/auto-complete/dict") ;;highlight-symbol 配置 (add-to-list 'load-path "~/.emacs.d/plugins/highlight-symbol/") (require 'highlight-symbol) (global-set-key [(control f3)] 'highlight-symbol-at-point) (global-set-key [f3] 'highlight-symbol-next) (global-set-key [(shift f3)] 'highlight-symbol-prev) (global-set-key [(meta f3)] 'highlight-symbol-query-replace) ;;tabbar 配置 (add-to-list 'load-path "~/.emacs.d/plugins/tabbar/") (require 'tabbar) (tabbar-mode 1) ;;session 配置 (add-to-list 'load-path "~/.emacs.d/plugins/session/lisp/") (require 'session) (add-hook 'after-init-hook 'session-initialize) ;;desktop 配置 (require 'desktop) (desktop-save-mode 1) ;(setq-default desktop-load-locked-desktop t);;解决pid错误问题 ;;doxymacs 配置 (add-to-list 'load-path "~/.emacs.d/plugins/doxymacs-1.8.0/lisp/") (require 'doxymacs) (doxymacs-mode) (defun my-doxymacs-font-lock-hook () (if (or (eq major-mode 'c-mode) (eq major-mode 'c++-mode)) (doxymacs-font-lock))) (add-hook 'font-lock-mode-hook 'my-doxymacs-font-lock-hook) (setq doxymacs-doxygen-style "C++") (add-hook 'c++-mode-common-hook 'doxymacs-mode) (add-hook 'c++-mode-common-hook 'doxymacs-mode) ;;multi-term 配置 (add-to-list 'load-path "~/.emacs.d/plugins/multi-term/") (require 'multi-term) (setq multi-term-program "/bin/bash") (setq multi-term-buffer-name "term") ;for solve term-sned-raw: Wrong type arguement: charactor,tab (add-hook 'term-mode-hook (lambda() (yas-minor-mode -1))) (global-set-key "\C-x." 'multi-term) (global-set-key "\C-x," 'multi-term-dedicated-open) ;;sourcepair 配置 (add-to-list 'load-path "~/.emacs.d/plugins/sourcepair/") (require 'sourcepair) (define-key global-map "\C-xz" 'sourcepair-jump-to-headerfile) (setq sourcepair-source-path '( "." "../*" "../../*" )) (setq sourcepair-header-path '( "." "include" "../include" "../*" "../../*")) (setq sourcepair-recurse-ignore '( ".git" "Debug" "Release" )) ;;dired+ 配置 (add-to-list 'load-path "~/.emacs.d/plugins/diredPlus/") (require 'dired+) ;;[ 高亮当前行 ] ;;---------------------------------------------------------------------------- (require 'hl-line) (global-hl-line-mode t) ;;[ 其他基本配置 ] ;;---------------------------------------------------------------------------- (iswitchb-mode 1) ;;Buffer便捷提示 (setq-default cursor-type 'bar) ;;光标显示为一竖线 (set-default-font "-unknown-DejaVu Sans Mono-normal-normal-normal-*-16-*-*-*-m-0-iso10646-1") (icomplete-mode t) (global-font-lock-mode t) (fset 'yes-or-no-p 'y-or-n-p) ;;'y'/'n'代替'yes'/'no' (setq x-select-enable-clipboard t) ;;支持emacs和外部程序的粘贴 (show-paren-mode t) ;;设置让光标指到某个括号与它匹配的括号 (setq show-paren-style 'parentheses) (tool-bar-mode nil) (scroll-bar-mode nil) (setq kill-ring-max 1024) (setq max-lisp-eval-depth 40000) ;;lisp最大执行深度 (setq max-specpdl-size 10000) ;;最大容量 (setq undo-outer-limit 5000000) ;;撤销限制 ;;[ 编码设置] ;;---------------------------------------------------------------------------- (setq default-buffer-file-coding-system 'utf-8-unix) ;缓存文件编码 (setq default-file-name-coding-system 'utf-8-unix) ;文件名编码 (setq default-keyboard-coding-system 'utf-8-unix) ;键盘输入编码 (setq default-process-coding-system '(utf-8-unix . utf-8-unix)) ;进程输出输入编 (setq default-sendmail-coding-system 'utf-8-unix) ;发送邮件编码 (setq default-terminal-coding-system 'utf-8-unix) ;终端编码 ;;[ 不产生备份、不自动保存 ] ;;---------------------------------------------------------------------------- (setq make-backup-files nil) (setq auto-save-default nil) (setq auto-save-mode nil) ;;[ 显示行号 ] ;;---------------------------------------------------------------------------- (setq linum-format "%4d ") (require 'linum) (global-linum-mode 1) ;;[ 设置缩进 ] ;;---------------------------------------------------------------------------- (setq indent-tabs-mode t) (setq default-tab-width 4) (setq tab-width 4) ;;隐藏tool bar (tool-bar-mode 0) ;;配置w3m 基础配置 (setq browse-url-browser-function 'w3m-browse-url) (autoload 'w3m-browse-url "w3m" "Ask a WWW browser to show a URL." t) ; optional keyboard short-cut 全局快捷键 (global-set-key "\C-xm" 'browse-url-at-point) ;开启cookies (setq w3m-use-cookies t) ;;干死semantic-stickyfunc-mode 要卸载ecb后，因为ecb启动后才会加载想应功能，此mode与tabber冲突 (global-semantic-stickyfunc-mode nil)
其中需要注意的就是ecb和cedet的加载顺序，ecb必须要写在cedet后面，否则可能出现ecb无法检测到cedet而不能正常启动的问题，但是ecb写在后面会导致ecb加载后依然会加载semantic-stickyfunc-mode，此mode与tabber冲突，所以在最后禁用之，其实不一定要加在最后，主要是加载顺序问题，能解决就好，就这样～新手才用emacs半年左右，这里贴出来是为了帮助其他和我一样的新鸟们～～老鸟们别在意啦～～
