我的.emacs文件，用于C/C++及shell编程

阳光boyer

我的.emacs文件，用于C/C++及shell编程。参考了互联网上很多教程，在注释里都有网址。注意，有的设置还要下载相应的插件文件并复制到emacs安装目录相应位置，直接用可能会出错。

1. ;;我的配置
   
2. ;;1.基本配置
   
3. ;;外观配置***************
   
4. ;;禁用启动画面
   
5. (setq inhibit-startup-message t)
   
6. 
   
7. ;;设置字体大小 参考http://www.linuxsir.org/bbs/thread326299.html
   
8. (set-default-font "-unknown-DejaVu Sans Mono-normal-normal-normal-*-13-*-*-*-m-0-iso10646-1")
   
9. (add-to-list 'default-frame-alist '(font, "-unknown-DejaVu Sans Mono-normal-normal-normal-*-15-*-*-*-m-0-iso10646-1"))
   
10. 
    
11. ;;设定启动时窗口大小
    
12. (setq default-frame-alist
    
13. '((height . 20) (width . 85) (top . 20) (left . 20) (menu-bar-lines . 0) (tool-bar-lines . 0)))
    
14. 
    
15. ;;去掉工具栏
    
16. (tool-bar-mode nil)
    
17. 
    
18. ;;去掉滚动条
    
19. (scroll-bar-mode nil)
    
20. 
    
21. ;;键绑定****************
    
22. ;;WIN+s进入shell
    
23. (global-set-key (kbd "s-s") 'shell)
    
24. 
    
25. ;;缓冲区****************
    
26. ;;设定行距
    
27. (setq default-line-spacing 4)
    
28. 
    
29. ;;页宽
    
30. (setq default-fill-column 80)
    
31. 
    
32. ;;缺省模式
    
33. (setq default-mojor-mode 'text-mode)
    
34. 
    
35. ;;语法加亮
    
36. (global-font-lock-mode t)
    
37. 
    
38. ;;高亮显示区域选择
    
39. (transient-mark-mode t)
    
40. 
    
41. ;;页面平滑滚动
    
42. (setq scroll-margin 3
    
43. scroll-conservatively 10000)
    
44. 
    
45. ;;高亮显示成对括号，但不来回弹跳
    
46. (show-paren-mode t)
    
47. (setq show-paren-style 'parentheses)
    
48. 
    
49. ;;鼠标指针规避光标
    
50. (mouse-avoidance-mode 'animate)
    
51. 
    
52. ;;在标题栏提示目前我的位置
    
53. (setq frame-title-format "zym@%b")
    
54. 
    
55. ;;状态栏******************
    
56. ;;标题栏显示%f缓冲区完整路径%p页面百分数%l行号
    
57. (setq frame-title-format "%f")
    
58. 
    
59. ;;编辑器设定***************
    
60. ;;使用X剪贴板
    
61. (setq x-select-enable-clipboard t)
    
62. ;;设定剪贴板内容格式 适应firefox
    
63. (set-clipboard-coding-system 'ctext)
    
64. 
    
65. ;;其它设置****************
    
66. ;;打开图片显示功能
    
67. (auto-image-file-mode t)
    
68. 
    
69. ;;.颜色设置 参考http://www.nongnu.org/color-theme/
    
70. (add-to-list 'load-path' "/usr/share/emacs/23.1/site-lisp/emacs-goodies-el")
    
71. (require 'color-theme) ;导入主题
    
72. ;(eval-after-load "color-theme"
    
73. ;  '(progn
    
74. ;   (color-theme-initialize)
    
75. ;   (color-theme-hober)))
    
76. ;(color-theme-initialize);初始化
    
77. ;(load-file "/usr/share/emacs/23.1/lisp/color-theme.el")
    
78. (color-theme-calm-forest);选用的主题
    
79. (custom-set-variables
    
80.   ;; custom-set-variables was added by Custom.
    
81.   ;; If you edit it by hand, you could mess it up, so be careful.
    
82.   ;; Your init file should contain only one such instance.
    
83.   ;; If there is more than one, they won't work right.
    
84. '(ecb-primary-secondary-mouse-buttons (quote mouse-1--mouse-2)))
    
85. (custom-set-faces
    
86.   ;; custom-set-faces was added by Custom.
    
87.   ;; If you edit it by hand, you could mess it up, so be careful.
    
88.   ;; Your init file should contain only one such instance.
    
89.   ;; If there is more than one, they won't work right.
    
90. )
    
91. 
    
92. ;;以下参考http://www.douban.com/group/topic/12115962/
    
93. ;;退出gdb,term,compilation时关闭对应的buffer
    
94. ;;关闭函数
    
95. (defun kill-buffer-when-shell-command-exit ()
    
96. "Close current buffer when `shell-command' exit."
    
97. (let ((process (ignore-errors (get-buffer-process (current-buffer)))))
    
98. (when process
    
99. (set-process-sentinel process
    
100. (lambda (proc change)
     
101. (when (string-match "\\(finished\\|exited\\)" change)
     
102. (kill-buffer (process-buffer proc))))))))
     
103. 
     
104. (add-hook 'gdb-mode-hook 'kill-buffer-when-shell-command-exit)  
     
105. (add-hook 'term-mode-hook 'kill-buffer-when-shell-command-exit)
     
106. (defun kill-buffer-when-compile-success (process)
     
107. "Close current buffer when `shell-command' exit."
     
108. (set-process-sentinel process
     
109. (lambda (proc change)
     
110. (when (string-match "finished" change)
     
111. (delete-windows-on (process-buffer proc))))))
     
112. ;;编译成功后自动关闭"compilation* buffer
     
113. (add-hook 'compilation-start-hook 'kill-buffer-when-compile-success)
     
114. 
     
115. ;;2.C/C++编程设置，参考:http://www.caole.net/diary/emacs_write_cpp.html
     
116. 
     
117. ;;CC-mode配置***************
     
118. (require 'cc-mode)
     
119. (c-set-offset 'inline-open 0)
     
120. (c-set-offset 'friend '-)
     
121. (c-set-offset 'substatement-open 0)
     
122. 
     
123. ;;C/C++语言编辑策略**********
     
124. (defun my-c-mode-common-hook()
     
125.    (setq tab-width 4 indent-tabs-mode nil)
     
126.    (setq c-basic-offset 4)
     
127.    ;;饥饿删除(hungry-delete)和自动新行
     
128.    ;;(c-toggle-auto-hungry-state 1)
     
129.    ;;按键定义
     
130.    (define-key c-mode-base-map [(control \`)] 'hs-toggle-hiding)
     
131.    (define-key c-mode-base-map [(return)] 'newline-and-indent)
     
132.    (define-key c-mode-base-map [(f9)] 'compile)
     
133.    (define-key c-mode-base-map [(f10)] 'gdb)
     
134.    (define-key c-mode-base-map [(meta \`)] 'c-indent-command)
     
135.    ;;预处理设置
     
136.    (setq c-macro-shrink-window-flag t)
     
137.    (setq c-macro-preprocessor "cpp")
     
138.    (setq c-macro-cppflags " ")
     
139.    (setq c-macro-prompt-flag t)
     
140.    (setq hs-minor-mode t)
     
141.    (setq abbrev-mode t)
     
142. )
     
143. 
     
144. ;;C/C++语言编辑策略**********
     
145. (defun my-c-mode-common-hook()
     
146.    (setq tab-width 4 indent-tabs-mode nil)
     
147.    (setq c-basic-offset 4)
     
148.    (setq gdb-many-windows t)
     
149.    ;;饥饿删除(hungry-delete)和自动新行
     
150.    ;;(c-toggle-auto-hungry-state 1)
     
151.    ;;按键定义
     
152.    (define-key c-mode-base-map [(control \`)] 'hs-toggle-hiding)
     
153.    (define-key c-mode-base-map [(return)] 'newline-and-indent)
     
154.    (define-key c-mode-base-map [(f3)] 'gdb-many-windows)
     
155.    (define-key c-mode-base-map [(f9)] 'compile)
     
156.    (define-key c-mode-base-map [(f10)] 'gdb)
     
157.    (define-key c-mode-base-map [(meta \`)] 'c-indent-command)
     
158.    ;;预处理设置
     
159.    (setq c-macro-shrink-window-flag t)
     
160.    (setq c-macro-preprocessor "cpp")
     
161.    (setq c-macro-cppflags " ")
     
162.    (setq c-macro-prompt-flag t)
     
163.    (setq hs-minor-mode t)
     
164.    (setq abbrev-mode t)
     
165. )
     
166. (add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
     
167. 
     
168. ;;gdb按键绑定 参考http://emacser.com/emacs-gdb.htm
     
169. (add-hook 'gdb-mode-hook '(lambda()
     
170.                          (define-key c-mode-base-map [(f4)] 'gud-go)
     
171.                          (define-key c-mode-base-map [(f5)] 'gud-next)
     
172.                          (define-key c-mode-base-map [(f6)] 'gud-step)
     
173.                          (define-key c-mode-base-map [(f7)] 'gud-finish)
     
174.                          (define-key c-mode-base-map [(f8)] 'gud-until)))
     
175. 
     
176. ;;C++语言编辑策略**********
     
177. (defun my-c++-mode-hook()
     
178.   (setq tab-width 4 indent-tabs-mode nil)
     
179.   (c-set-style "BSD")
     
180. )
     
181. 
     
182. ;;自动补全设置*************
     
183. (add-to-list 'load-path "/usr/share/emacs/23.1/lisp/company"
     
184. "/usr/share/emacs/23.1/lisp/cedet-1.0/common") ;拓展文件（插件）目录
     
185. (load "/usr/share/emacs/23.1/lisp/cedet-1.0/common/cedet" nil t)
     
186. (autoload 'company-mode "company" nil t)
     
187. (setq company-idle-delay t)
     
188. 
     
189. ;;semantic配置
     
190. (setq semanticdb-default-save-director "~/.emacs.d/semanticdb")
     
191. (semantic-load-enable-code-helpers)
     
192. (semantic-load-enable-gaudy-code-helpers)
     
193. 
     
194. ;自动补全快捷键
     
195. (define-key c-mode-base-map (kbd "M-n") 'semantic-ia-complete-symbol-menu)
     
196. ;代码跳转快捷键
     
197. (global-set-key [f12] 'semantic-ia-fast-jump)
     
198. ;跳转后再跳回原来的地方
     
199. (global-set-key [f11]
     
200.       (lambda()
     
201.         (interactive)
     
202.         (if (ring-empty-p (oref semantic-mru-bookmark-ring ring))
     
203.             (error "Semantic Bookmark ring is currently empty"))
     
204.         (let* ((ring (oref semantic-mru-bookmark-ring ring))
     
205.                (alist (semantic-mrub-ring-to-assoc-list ring))
     
206.                (first (cdr (car alist))))
     
207.         (if (semantic-equivalent-tag-p (oref first tag)
     
208.                                        (semantic-current-tag))
     
209.             (setq first (cdr (car (cdr alist)))))
     
210.         (semantic-mrub-switch-tags first))))
     
211. ;设置semantic检索范围
     
212. (setq semanticdb-project-roots
     
213.       (list
     
214.        (expand-file-name "/")))
     
215. ;;设置semantic cache临时文件的路径
     
216. (setq semanticdb-default-save-directory "~/.emacs.d/")
     
217. ;;避免semantic占用CPU过多
     
218. (setq-default semantic-idle-scheduler-idle-time 432000)
     
219. 
     
220. ;;配置cscope
     
221. (require 'xcscope)
     
222. ;;跳转到全局定义
     
223. (global-set-key "\C-xg" 'cscope-find-global-definition-no-prompting)
     
224. 
     
225. ;;配置ecb
     
226. (add-to-list 'load-path "/usr/share/emacs/23.1/site-lisp/ecb-2.40/")
     
227. ;(load-file "/usr/share/emacs/23.1/site-lisp/ecb-2.40/ecb.el")
     
228. (require 'ecb)
     
229. (setq ecb-auto-activate nil
     
230.       ecb-tip-of-the-day nil
     
231.       ecb-free-indent 4
     
232.       ecb-windows-height 0.5
     
233.       ecb-windows-width 0.20)
     
234. ecb-auto-compatibility-check nil
     
235. ecb-version-check nil
     
236. inhibit-startup-message t

复制代码

xiaopan3322

不怎么用emacs，只用vim