借C++版块为下关于emacs的事情

wzlxx_

在咱们C++版块混的时间也不短了，一直没有发过贴子，今天发个，不过就关于emacs的，前几天一时冲动想从vim转到emacs，可以发现emacs的用户太少了，在我的几个QQ群了问了都不会用，想请教也不行，郁闷，在网上拼凑了一个.emacs文件，现在贴出来希望大家看看哪里不妥的地方指出来，或者分享下您的emacs配置也行（主要是针对程序员的使用方便），先谢谢大家了。。。
//.emacs

1. 
   
2. ;;;;自动保存关闭前的环境变量
   
3. (require 'session)
   
4.   (add-hook 'after-init-hook 'session-initialize)
   
5. ;;;;打开上次的文件
   
6. (load "desktop")
   
7. (desktop-load-default)
   
8. (desktop-read)
   
9. ;;;;buffer选项
   
10. (require 'ibuffer)
    
11. (global-set-key (kbd "C-x C-b") 'ibuffer)
    
12. ;;;;方便在kill-ring里寻找需要的东西
    
13. (require 'browse-kill-ring)
    
14. (global-set-key [(control c)(k)] 'browse-kill-ring)
    
15. (browse-kill-ring-default-keybindings)
    
16. ;;;;切换buffer
    
17. (require 'ido)
    
18. (ido-mode t)
    
19. ;;;;最近buffer切换
    
20. (require 'swbuff)
    
21. (global-set-key (kbd "") 'swbuff-switch-to-previous-buffer)
    
22. (global-set-key (kbd "") 'swbuff-switch-to-next-buffer)
    
23. (setq swbuff-exclude-buffer-regexps
    
24.      '("^ " "\\*.*\\*"))
    
25. 
    
26. (setq swbuff-status-window-layout 'scroll)
    
27. (setq swbuff-clear-delay 1)
    
28. (setq swbuff-separator "|")
    
29. (setq swbuff-window-min-text-height 1)
    
30. ;;;;标签
    
31. (require 'tabbar)
    
32. (tabbar-mode)
    
33. (global-set-key (kbd "") 'tabbar-backward-group)
    
34. (global-set-key (kbd "") 'tabbar-forward-group)
    
35. (global-set-key (kbd "") 'tabbar-backward)
    
36. (global-set-key (kbd "") 'tabbar-forward)
    
37. 
    
38. (setq tabbar-buffer-groups-function 'tabbar-buffer-ignore-groups)
    
39. 
    
40. (defun tabbar-buffer-ignore-groups (buffer)
    
41.   "Return the list of group names BUFFER belongs to.
    
42. Return only one group for each buffer."
    
43.   (with-current-buffer (get-buffer buffer)
    
44.     (cond
    
45.      ((or (get-buffer-process (current-buffer))
    
46.           (memq major-mode
    
47.                 '(comint-mode compilation-mode)))
    
48.       '("Process")
    
49.       )
    
50.      ((member (buffer-name)
    
51.               '("*scratch*" "*Messages*"))
    
52.       '("Common")
    
53. )
    
54.      ((eq major-mode 'dired-mode)
    
55.       '("Dired")
    
56.       )
    
57.      ((memq major-mode
    
58.             '(help-mode apropos-mode Info-mode Man-mode))
    
59.       '("Help")
    
60.       )
    
61.      ((memq major-mode
    
62.             '(rmail-mode
    
63.               rmail-edit-mode vm-summary-mode vm-mode mail-mode
    
64.               mh-letter-mode mh-show-mode mh-folder-mode
    
65.               gnus-summary-mode message-mode gnus-group-mode
    
66.               gnus-article-mode score-mode gnus-browse-killed-mode))
    
67.       '("Mail")
    
68.       )
    
69.      (t
    
70.       (list
    
71.        "default"  ;; no-grouping
    
72.        (if (and (stringp mode-name) (string-match "[^ ]" mode-name))
    
73.            mode-name
    
74.          (symbol-name major-mode)))
    
75.       )
    
76.      
    
77.      )))
    
78. 
    
79. ;;;;插入表格
    
80. (autoload 'table-insert "table" "WYGIWYS table editor")
    
81. ;;;;保存最近打开的文件的列表
    
82. (require 'recentf)
    
83. (recentf-mode 1)
    
84. 
    
85. (defun recentf-open-files-compl ()
    
86.   (interactive)
    
87.   (let* ((all-files recentf-list)
    
88.          (tocpl (mapcar (function
    
89.                          (lambda (x) (cons (file-name-nondirectory x) x))) all-files))
    
90.          (prompt (append '("File name: ") tocpl))
    
91.          (fname (completing-read (car prompt) (cdr prompt) nil nil)))
    
92.     (find-file (cdr (assoc-ignore-representation fname tocpl)))))
    
93. 
    
94. (global-set-key [(control x)(control r)] 'recentf-open-files-compl)
    
95. ;;;;自动补全
    
96. (global-set-key [(meta ?/)] 'hippie-expand)
    
97. 
    
98. (setq hippie-expand-try-functions-list
    
99.      '(try-expand-dabbrev
    
100.         try-expand-dabbrev-visible
     
101.         try-expand-dabbrev-all-buffers
     
102.         try-expand-dabbrev-from-kill
     
103.         try-complete-file-name-partially
     
104.         try-complete-file-name
     
105.         try-expand-all-abbrevs
     
106.         try-expand-list
     
107.         try-expand-line
     
108.         try-complete-lisp-symbol-partially
     
109.         try-complete-lisp-symbol))
     
110. ;;;;括号匹配
     
111. (global-set-key "%" 'match-paren)
     
112.          
     
113. (defun match-paren (arg)
     
114.   "Go to the matching paren if on a paren; otherwise insert %."
     
115.   (interactive "p")
     
116.   (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
     
117.         ((looking-at "\\s\)") (forward-char 1) (backward-list 1))
     
118.         (t (self-insert-command (or arg 1)))))
     
119. ;;;;临时标记
     
120. (global-set-key [(control ?\.)] 'ska-point-to-register)
     
121. (global-set-key [(control ?\,)] 'ska-jump-to-register)
     
122. (defun ska-point-to-register()
     
123.   "Store cursorposition _fast_ in a register.
     
124. Use ska-jump-to-register to jump back to the stored
     
125. position."
     
126.   (interactive)
     
127.   (setq zmacs-region-stays t)
     
128.   (point-to-register 8))
     
129. 
     
130. (defun ska-jump-to-register()
     
131.   "Switches between current cursorposition and position
     
132. that was stored with ska-point-to-register."
     
133.   (interactive)
     
134.   (setq zmacs-region-stays t)
     
135.   (let ((tmp (point-marker)))
     
136.         (jump-to-register 8)
     
137.         (set-register 8 tmp)))
     
138. ;;;;C+c+a+字符，移动到下一个字符
     
139. (defun wy-go-to-char (n char)
     
140.   "Move forward to Nth occurence of CHAR.
     
141. Typing `wy-go-to-char-key' again will move forwad to the next Nth
     
142. occurence of CHAR."
     
143.   (interactive "p\ncGo to char: ")
     
144.   (search-forward (string char) nil nil n)
     
145.   (while (char-equal (read-char)
     
146.                      char)
     
147.     (search-forward (string char) nil nil n))
     
148.   (setq unread-command-events (list last-input-event)))
     
149. 
     
150. (define-key global-map (kbd "C-c a") 'wy-go-to-char)
     
151. ;;;;隐藏行
     
152. ;;hide region
     
153. (require 'hide-region)
     
154. (global-set-key (kbd "C-c r") 'hide-region-hide)
     
155. (global-set-key (kbd "C-c R") 'hide-region-unhide)
     
156. 
     
157. 
     
158. ;; hide lines
     
159. (require 'hide-lines)
     
160. (global-set-key (kbd "C-c l") 'hide-lines)
     
161. (global-set-key (kbd "C-c L") 'show-all-invisible)
     
162. ;;;;代码折叠
     
163. (load-library  "folding")
     
164. (declare (special fold-fold-on-startup
     
165.                   fold-keys-already-setup
     
166.                   ))
     
167.    
     
168. (setq fold-fold-on-startup t)
     
169. (folding-mode-add-find-file-hook)
     
170. 
     
171. (setq fold-keys-already-setup nil)
     
172. (add-hook 'folding-mode-hook
     
173.           (function (lambda()
     
174.                       (unless fold-keys-already-setup
     
175.                         (setq fold-keys-already-setup t)
     
176.                         (define-prefix-command 'ctl-f-folding-mode-prefix)
     
177.                         (define-key 'ctl-f-folding-mode-prefix "f" 'fold-fold-region)
     
178.                         (define-key  'ctl-f-folding-mode-prefix "e" 'fold-enter)
     
179.                         (define-key 'ctl-f-folding-mode-prefix "x" 'fold-exit)
     
180.                         (define-key  'ctl-f-folding-mode-prefix "b" 'fold-whole-buffer)
     
181.                         (define-key 'ctl-f-folding-mode-prefix "o" 'fold-open-buffer)
     
182.                         (define-key 'ctl-f-folding-mode-prefix "h" 'fold-hide)
     
183.                         (define-key 'ctl-f-folding-mode-prefix "s" 'fold-show)
     
184.                         (define-key 'ctl-f-folding-mode-prefix "t" 'fold-top-level)
     
185.                         (define-key 'ctl-f-folding-mode-prefix "f" 'fold-fold-region)
     
186.                         )
     
187.                       (local-set-key "\C-f" 'ctl-f-folding-mode-prefix))))
     
188. 
     
189. (fold-add-to-marks-list 'sgml-mode
     
190.                         "<!-- {"
     
191.                         "<!-- } -->" " --> ")
     
192. (fold-add-to-marks-list 'c-mode "/* <" "/* > */" "*/")
     
193. (fold-add-to-marks-list 'c++-mode
     
194.                         "//<" "//>" "")
     
195. (fold-add-to-marks-list 'LaTeX-mode "%%% {{{" "%%% }}}" " ")
     
196. (fold-add-to-marks-list 'latex2e-mode "%%% {{{" "%%% }}}" " ")
     
197. (fold-add-to-marks-list 'latex-mode "%%%% {{{" "%%%% }}}" " ")
     
198. (fold-add-to-marks-list 'BibTeX-mode "%%% {{{" "%%% }}}" " ")
     
199. (fold-add-to-marks-list 'lisp-mode ";;; {" ";;; }" "")
     
200. (fold-add-to-marks-list 'lex-mode" /* {{{ " " /* }}} */ " "*/")
     
201. (fold-add-to-marks-list 'html-mode "<!-- { " "<!-- } -->" "-->")
     
202. (fold-add-to-marks-list 'shell-script-mode "# {{{" "# }}}" nil)
     
203. (fold-add-to-marks-list 'sh-mode "# {{{ " "# }}}" nil)
     
204. ;;;;主题
     
205. (require 'color-theme)
     
206. ;;;;模式自动选择
     
207. (autoload 'mmm-mode "mmm-mode" "Multiple Major Modes" t)
     
208. (autoload 'mmm-parse-buffer "mmm-mode" "Automatic MMM-ification" t)
     
209. ;;;;typedef 自定义命名高亮
     
210. (require 'ctypes)
     
211. (ctypes-auto-parse-mode 1)
     
212. ;;;;文泉驿字体
     
213. (set-fontset-font "fontset-default" 'gb18030 '("文泉驿正黑" . "unicode-bmp"))
     
214. ;;;; 显示行号：
     
215. (add-to-list 'load-path "/usr/share/emacs/site-lisp")
     
216. (require 'linum)
     
217. (global-linum-mode t)
     
218. 
     
219. 
     
220. ;;;;杂项
     
221. (setq mouse-yank-at-point t);支持中键粘贴
     
222. (show-paren-mode t);显示匹配括号
     
223. (setq show-paren-style 'parentheses)
     
224. (set-scroll-bar-mode 'right);滚动条在右侧
     
225. 
     
226. ;;滚动页面时比较舒服，不要整页的滚动
     
227. (setq scroll-step 1
     
228. scroll-margin 3
     
229. scroll-conservatively 10000)
     
230. ;;;;快捷键
     
231. (global-set-key [f5] 'eshell)
     
232. (global-set-key [f7] 'compile)
     
233. (global-set-key (kbd "C-z") 'undo);撤消
     
234. ;;设置缩进长度
     
235. (define-key c-mode-map [return] 'newline-and-indent)
     
236. (setq c-basic-offset 4)
     

复制代码

没本

看到那么多圆括号头都大了，呼叫LISP强人出手。

rain_fish

为什么要从vim-》emacs？

wzlxx_

回复 3# rain_fish


    无语，找不到用emacs的，我还是老老实实用我的vim吧，想转emacs的原因是感觉写的程序文件一多用vim开的太多，照顾不过来了

rain_fish

用vim的插件啊，NERD_tree

没本

回复 4# wzlxx_


    不想vim多窗口可以用 :tabnew 开tab标签。

p4apple

emacs 就是gdb 时方便。

wzlxx_

回复 6# 没本


   多谢没本 ，我也没本，以后有钱了一起买哈

wzlxx_

回复 7# p4apple


    嗯，不转了，还是vim吧，按照没本说的再加上代码折叠效果还不错

linoom

vim 有象emacs autocomplete那种自动提示么？？
比如 有个变量 fifoConditionImpl 当你开始输入fxxx开始就自动的提示所有fxx打头的变量名称,
包括fifoConditionImpl