我的emacs配置文件 ~/.emacs

liuhengloveyou

1. (custom-set-variables
   
2.   ;; custom-set-variables was added by Custom.
   
3.   ;; If you edit it by hand, you could mess it up, so be careful.
   
4.   ;; Your init file should contain only one such instance.
   
5.   ;; If there is more than one, they won't work right.
   
6. '(ecb-options-version "2.32")
   
7. '(ecb-primary-secondary-mouse-buttons (quote mouse-1--C-mouse-1))
   
8. '(scroll-bar-mode nil)
   
9. '(tool-bar-mode nil))
   
10. 
    
11. (defun sg-mode-hook-func ()
    
12. (set-process-sentinel
    
13.    (get-buffer-process (current-buffer))
    
14.    'kill-buffer-on-exit))
    
15. (add-hook 'shell-mode-hook 'sg-mode-hook-func)
    
16. (add-hook 'gdb-mode-hook 'sg-mode-hook-func)
    
17. (custom-set-faces
    
18.   ;; custom-set-faces was added by Custom.
    
19.   ;; If you edit it by hand, you could mess it up, so be careful.
    
20.   ;; Your init file should contain only one such instance.
    
21.   ;; If there is more than one, they won't work right.
    
22. '(default ((t (:inherit nil :stipple nil :background "black" :foreground "grey" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))))
    
23. 
    
24. ;; 全屏
    
25. ;;(defun my-fullscreen ()
    
26. ;;(interactive)
    
27. ;;(x-send-client-message
    
28. ;;  nil 0 nil "_NET_WM_STATE" 32
    
29. ;;   '(2 "_NET_WM_STATE_FULLSCREEN" 0)))
    
30. 
    
31. ;; 水平最大化
    
32. ;;(defun my-maximized-horz ()
    
33. ;;(interactive)
    
34. ;;(x-send-client-message
    
35. ;;   nil 0 nil "_NET_WM_STATE" 32
    
36. ;;   '(1 "_NET_WM_STATE_MAXIMIZED_HORZ" 0)))
    
37. 
    
38. ;; 垂直最大化
    
39. ;;(defun my-maximized-vert ()
    
40. ;;(interactive)
    
41. ;;(x-send-client-message
    
42. ;;   nil 0 nil "_NET_WM_STATE" 32
    
43. ;;   '(1 "_NET_WM_STATE_MAXIMIZED_VERT" 0)))
    
44. 
    
45. ;; 最大化
    
46. ;;(defun my-maximized ()
    
47. ;;(my-maximized-vert)
    
48. ;;(my-maximized-horz))
    
49. 
    
50. ;; 启动时最大化
    
51. ;;(cond
    
52. ;;((eq window-system 'x)
    
53. ;;(my-maximized)
    
54. ;;)
    
55. ;;)
    
56. 
    
57. ;;设置C语言编译命令
    
58. ;;(set 'compile-command' "gcc -g ")
    
59. 
    
60. ;;以 y/n代表 yes/no
    
61. (fset 'yes-or-no-p 'y-or-n-p)
    
62. 
    
63. ;;光标靠近鼠标指针时，让鼠标指针自动让开，别挡住视线
    
64. (mouse-avoidance-mode 'animate)
    
65. 
    
66. ;;支持emacs和外部程序的粘贴
    
67. (setq x-select-enable-clipboard t)
    
68. 
    
69. ;;设置背景色和字体色
    
70. (set-foreground-color "grey")
    
71. (set-background-color "black")
    
72. 
    
73. ;;显示列号
    
74. (setq column-number-mode t)
    
75. 
    
76. ;;关闭启动画面
    
77. (setq inhibit-startup-message t)
    
78. 
    
79. ;;设置 sentence-end 可以识别中文标点
    
80. (setq sentence-end "\\([。！？]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*")
    
81. (setq sentence-end-double-space nil)
    
82. 
    
83. ;;括号匹配时显示另外一边的括号，而不是烦人的跳到另一个括号
    
84. (show-paren-mode t)
    
85. (setq show-paren-style 'parentheses)
    
86. 
    
87. ;;在标题栏显示buffer的名字，而不是 emacs@wangyin.com 这样没用的提示
    
88. (setq frame-title-format "emacs@%b")
    
89. 
    
90. ;;让 Emacs 可以直接打开和显示图片
    
91. ;;(auto-image-file-mode)
    
92. 
    
93. ;; 高亮显示要拷贝的区域
    
94. (transient-mark-mode t)
    
95. 
    
96. ;;光标显示为一竖线
    
97. (setq-default cursor-type 'bar)
    
98. 
    
99. ;;进行语法加亮
    
100. (global-font-lock-mode t)
     
101. 
     
102. ;;不产生备份文件
     
103. (setq make-backup-files nil)            
     
104. 
     
105. ;;临时文件放到同一个目录下
     
106. (setq backup-directory-alist '(("." . "/tmp")))
     
107. 
     
108. ;;用空格代替tab
     
109. (setq-default indent-tabs-mode nil)
     
110. 
     
111. ;; 解决emacs shell显示问题
     
112. (setq ansi-color-for-comint-mode t)
     
113. (customize-group 'ansi-colors)
     
114. (kill-this-buffer) ; 关闭设置所产生的定制窗口        
     
115. 
     
116. ;;不显示ecbTip
     
117. (setq ecb-tip-of-the-day nil)
     
118. 
     
119. ;; CC-mode配置 http://cc-mode.sourceforge.net/
     
120. (require 'cc-mode)
     
121. (require 'xcscope)
     
122. (c-set-offset 'inline-open 0)
     
123. (c-set-offset 'friend '-)
     
124. (c-set-offset 'substatement-open 0)
     
125. 
     
126. ;;C/C++语言编辑策略
     
127. (setq tab-width 4 indent-tabs-mode nil)
     
128. ;; hungry-delete and auto-newline
     
129. (c-toggle-auto-hungry-state 1)
     
130. ;;按键定义
     
131. (define-key c-mode-base-map [(control \`)] 'hs-toggle-hiding)
     
132. (define-key c-mode-base-map [(return)] 'newline-and-indent)
     
133. (define-key c-mode-base-map [(f9)] 'compile)
     
134. (define-key c-mode-base-map [(meta \`)] 'c-indent-command)
     
135. ;;(define-key c-mode-base-map [(tab)] 'hippie-expand)
     
136. (define-key c-mode-base-map [(tab)] 'my-indent-or-complete)
     
137. (define-key c-mode-base-map [(meta ?/)] 'semantic-ia-complete-symbol-menu)
     
138. 
     
139. 
     
140. ;; 配置Semantic的检索范围:
     
141. (setq semanticdb-project-roots
     
142.     (list
     
143.         (expand-file-name "/")))
     
144. 
     
145. ;; 自定义自动补齐命令,如果在单词中间就补齐，否则就是tab。
     
146. (defun my-indent-or-complete ()
     
147.    (interactive)
     
148.    (if (looking-at "\\>")
     
149.      (hippie-expand nil)
     
150.      (indent-for-tab-command))
     
151. )
     
152. 
     
153. (global-set-key [(control tab)] 'my-indent-or-complete)
     
154. 
     
155. ;; 补全优先级
     
156. (autoload 'senator-try-expand-semantic "senator")
     
157. (setq hippie-expand-try-functions-list
     
158.      '(
     
159.       senator-try-expand-sematic
     
160.       try-expand-dabbrev
     
161.       try-expand-dabbrev-visible
     
162.       try-expand-dabbrev-all-buffers
     
163.       try-expand-dabbrev-from-kill
     
164.       try-complete-file-name-partially
     
165.       try-complete-file-name
     
166.       try-expand-all-abbrevs
     
167.       try-expand-list
     
168.       try-expand-line
     
169.       try-complete-lisp-symbol-partially
     
170.       try-complete-lisp-symbol))
     
171. 
     
172. ;;多窗口gdb
     
173. (setq gdb-many-windows t)
     
174. (load-library "multi-gud.el")
     
175. (load-library "multi-gdb-ui.el")
     
176. 
     
177. ;;shell,gdb退出后，自动关闭该buffer
     
178. (defun kill-buffer-on-exit (process state)
     
179. (message "%s" state)
     
180. (if (or
     
181.        (string-match "exited abnormally with code.*" state)
     
182.        (string-match "finished" state))
     
183.       (kill-buffer (current-buffer))))

复制代码

我也不太了解这些，欢迎大家指点！有好东东也共享出来啊。。。

liuhengloveyou

自己顶一个, 大家共享好东西啊.

diffo

LZ你这配置还远远不够啊
我也是个emacs新手，与LZ共勉

http://xahlee.org/emacs/emacs.html
http://www.nongnu.org/emacs-tiny-tools/
http://planet.emacsen.org/
顺便推荐三个网站

fender0107401

我就讨厌emacs，总是不停的配置配置，然后还是长的那么难看。

gtkmm

;_____settings___________
(setq inhibit-splash-screen t)
(tool-bar-mode nil)
(menu-bar-mode nil)
(scroll-bar-mode nil)
(column-number-mode t)
(setq-default make-backup-files nil)
(fset 'yes-or-no-p 'y-or-n-p)
;______muse_______________
(require 'muse-mode)
(require 'muse-html)
(require 'muse-project)

;______color theme_________
(require 'smart-compile+)
(fset 'cc 'smart-compile)

(require 'color-theme)
(color-theme-initialize)
(color-theme-midnight)

;______file template________
(require 'file-template)
(add-hook 'find-file-not-found-hooks 'file-template-auto-insert 'append)

;______key__________________
(global-set-key "\M-g"                 'goto-line)
(global-set-key "\M-s"                 'isearch-forward-regexp)
(global-set-key "\M-r"                 'isearch-backward-regexp)
(global-set-key "\M-h"                 'backward-kill-word)
(global-set-key "\C-h"                 'backward-delete-char)
(global-set-key "\C-\M-y"        'x-clipboard-yank)
(fset 'r   'replace-string)
(fset 'qr  'query-replace)
(fset 'rr  'replace-regexp)
(fset 'qrr 'query-replace-regexp)
;
;_______ c++  _____________
(defun traxex-mode()
  (linum-mode t)
  (define-key c-mode-base-map        "("                'skeleton-pair-insert-maybe)
  (define-key c-mode-base-map        "{"                'skeleton-pair-insert-maybe)
  (local-set-key                "\M-j"                'semantic-complete-analyze-inline)
  (local-set-key                [(control /)]        'semantic-ia-complete-symbol-menu)
  (local-set-key                [(meta /)]        'semantic-ia-fast-jump)
  (c-set-style "bsd")
(add-hook 'c++-mode-hook 'traxex-mode)

(require 'xcscope+)
(add-to-list 'auto-mode-alist '("\\.h\\'"    . c++-mode))
(add-to-list 'auto-mode-alist '("\\.c\\'"    . c++-mode))
(add-to-list 'auto-mode-alist '("\\.cc\\'"   . c++-mode))
(add-to-list 'auto-mode-alist '("\\.cpp\\'"  . c++-mode))
(add-to-list 'auto-mode-alist '("\\.ipp\\'"  . c++-mode))
(add-to-list 'auto-mode-alist '("\\.hpp\\'"  . c++-mode))
(add-to-list 'auto-mode-alist '("\\.cu\\'"   . c++-mode))
(add-to-list 'auto-mode-alist '("SConstruct" . python-mode))

(setq skeleton-pair t)
(global-set-key  "("           'skeleton-pair-insert-maybe)
(global-set-key  "{"           'skeleton-pair-insert-maybe)
(global-set-key  "\'"          'skeleton-pair-insert-maybe)
(global-set-key  "\""          'skeleton-pair-insert-maybe)
(global-set-key  "["           'skeleton-pair-insert-maybe)
(global-set-key  "\C-j"        'dabbrev-expand)



(custom-set-faces
'(default ((t (:inherit nil :stipple nil :background "black" :foreground "grey85" :inverse-video nil :box nil :strike-through nil verline nil :underline nil :slant normal :weight normal :height 102 :width normal :foundry "microsoft" :family "YaHei Consolas Hybrid"))))

gtkmm

Semantic 那个自动补全功能我觉得很鸡肋。。  不如不用。。

雨过白鹭洲

不会用emacs和vim的人飘过

不过以前确实很努力的尝试过

wenjianhn

我觉得不难看啊

gtkmm

左边那堆东西不好看，挺占屏幕的，而且好像没啥用。 不如一个一个的buffer自己切。

diffo

原帖由 gtkmm 于 2009-12-8 15:40 发表
左边那堆东西不好看，挺占屏幕的，而且好像没啥用。 不如一个一个的buffer自己切。

用宽屏显示器的话，我需要左边的那堆，眼睛可以直视代码

emacs用来写代码再好不过了，缩进，对齐，补全。实在太爽了