Emacs配置文件1：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
|
;;请在~/下创建.saves和.semanticdb文件夹
;;将此文件拷贝至~/下并更名为.emacs即可
;--------------设置有用的个人信息---------------
(setq user-full-name
"aron"
)
(setq user-mail-address
"shuxiao9058@qq.com"
)
;-------------------设置基本信息----------------
;;设置背景颜色
(
set
-background-color
"black"
)
;;设置字体颜色
(
set
-foreground-color
"white"
)
;;设置tab宽度为4
(setq-default indent-tabs-mode nil)
(setq tab-width 4 c-basic-offset 4)
;;(setq tab-width 4 indent-tabs-mode nil)
;;设置光标不闪
(blink-cursor-mode 1)
;;设置光标为线条状
(setq-default cursor-
type
'bar)
;;设置是否显示光标所在列号
(column-number-mode t)
;;设置是否显示光标所在行号(默认显示)
(line-number-mode t)
;显示匹配括号
(show-paren-mode t)
(setq show-paren-style 'parentheses)
;;以 y
/n
代表
yes
/no
(fset
'yes-or-no-p '
y-or-n-p)
;;滚动条在右侧
(
set
-scroll-bar-mode 'right)
;滚动页面时比较舒服，不要整页的滚动
(setq scroll-step 1
scroll-margin 3
scroll-conservatively 10000)
;;滚动页面时比较舒服，不要整页的滚动
(setq scroll-step 1
scroll-margin 3
scroll-conservatively 10000)
;;显示时间
(display-
time
-mode t)
;;启动Emacs Server
(server-start)
;;高亮当前行
(require 'hl-line)
(global-hl-line-mode t)
;;在buffer左侧显示行号
(dolist (hook (list
'c-mode-hook
'c++-mode-hook
'emacs-lisp-mode-hook
'lisp-interaction-mode-hook
'lisp-mode-hook
'emms-playlist-mode-hook
'java-mode-hook
'asm-mode-hook
'haskell-mode-hook
'rcirc-mode-hook
'emms-lyrics-mode-hook
'erc-mode-hook
'sh-mode-hook
'makefile-gmake-mode-hook
))
(add-hook hook (lambda () (linum-mode 1))))
;;高亮当前行
(require 'hl-line)
(global-hl-line-mode t)
;;在标题栏显示buffer的名字(默认不显示)
(setq frame-title-
format
"%b@emacs"
)
;;支持emacs和外部程序的粘贴
(setq x-
select
-
enable
-clipboard t)
;;设置备份策略
(setq
make
-backup-files t) ;;启用备份功能
(setq vc-
make
-backup-files t) ;;使用版本控制系统的时候也启用备份功能
(setq version-control t) ;;启用版本控制，即可以备份多次
(setq kept-old-versions 2) ;;备份最原始的版本两次，即第一次编辑前的文档，和第二次编
;;辑前的文档
(setq kept-new-versions 6) ;;备份最新的版本6次，理解同上
(setq delete-old-versions t) ;;删掉不属于以上3种版本的版本
(setq backup-directory-alist '((
"."
.
"~/.saves"
)));;设置备份文件的路径到~/.saves中
(setq backup-by-copying t) ;;备份设置方法，直接拷贝
(setq backup-
enable
-predicate 'ecm-backup-
enable
-predicate);;设置备份条件
;;关闭匹配下列目录或文件的备份功能
(defun ecm-backup-
enable
-predicate (filename)
(and (not (string=
"/tmp/"
(substring filename 0 5)))
(not (string-match
"semanticdb"
filename))
))
;;关闭自动保存模式
;(setq auto-save-mode nil)
;;不生成
#filename# 临时文件
(setq auto-save-default nil)
;;自动的在文件末增加一新行
(setq require-final-newline t)
;;当光标在行尾上下移动的时候，始终保持在行尾。
(setq track-eol t)
;－－－－－－－－－－－－－－快捷键设置－－－－－－－－－－－－－－－－
;编译和调试
(global-
set
-key [f7] 'compile) ;;编译
(global-
set
-key [C-f7] '
gdb
) ;;调试
(setq-default compile-
command
"make"
) ;;
(global-
set
-key [C-f8] 'previous-error) ;;上一个错误
(global-
set
-key [f8] 'next-error) ;;下一个错误
;;F9:格式化代码，以使代码缩进清晰，容易阅读
(global-
set
-key [f9] 'c-indent-line-or-region)
;;F10:注释 / 取消注释
(global-
set
-key [f10] 'comment-or-uncomment-region)
;Ctrl+F11:复制区域到寄存器
(global-
set
-key [C-f11] 'copy-to-register)
;;F11:粘贴寄存器内容
(global-
set
-key [(f11)] 'insert-register)
;;C-x c 复制整行, 而
"C-u 5 C-x c"
复制 5 行 没用呀！！！
(global-
set
-key (kbd
"C-x c"
) 'copy-lines) ;;复制一行或者多行
(global-
set
-key (kbd
"C-x d"
) 'zl-delete-line) ;;删除一行
;(global-
set
-key (kbd
"C-x a"
) '
kill
-match-paren) ;;删除匹配括号间内容
;;撤消
(global-
set
-key (kbd
"C-z"
) 'undo)
;;全选
(global-
set
-key (kbd
"C-a"
) 'mark-whole-buffer)
;;保存
(global-
set
-key (kbd
"C-s"
) 'save-buffer)
;;跳转到某行
(global-
set
-key [(meta g)] 'goto-line)
;;Tab补全或缩进
(global-
set
-key [(tab)] 'my-indent-or-complete)
;－－－－－－－－－－－－－－编程相关－－－－－－－－－－－－－－－－
;;打开代码折叠功能
(add-hook
'c-mode-hook '
hs-minor-mode)
(add-hook
'c++-mode-hook '
hs-minor-mode)
;;定义C
/C
++风格
;(add-hook
'c-mode-hook '
my-c-cpp-mode)
(add-hook
'c++-mode-hook '
my-c-cpp-mode)
;(defun my-c-cpp-mode();该行使用会出错
;;出错
;;将回车代替C-j的功能，换行的同时对齐
;(define-key c-mode-map [
return
] 'newline-and-indent)
;(interactive)
;(define-key c++-mode-map [
return
] 'newline-and-indent)
;(interactive)
;(define-key c-mode-base-map [(
return
)] 'newline-and-indent)
;;出错
;;设置程序的对齐风格
;(c-
set
-style
"K&R"
)
;;在模式栏中显示当前光标所在函数
(
which
-
function
-mode)
;;自动缩进的宽度设置为4
(setq c-basic-offset 4)
;;预处理设置
(setq c-macro-shrink-window-flag t)
(setq c-macro-preprocessor
"cpp"
)
(setq c-macro-cppflags
" "
)
(setq c-macro-prompt-flag t)
(setq hs-minor-mode t)
(setq abbrev-mode t)
(add-hook
'c-mode-common-hook '
my-c-mode-common-hook)
;;我的C++语言编辑策略
(defun my-c++-mode-hook()
(c-
set
-style
"stroustrup"
)
;;(define-key c++-mode-map [f3] 'replace-regexp)
)
;－－－－－－－－－－－－－－自动补全－－－－－－－－－－－－－－－－
;;;自定义hippie-
expand
补全或缩进函数
(defun my-indent-or-complete ()
(interactive)
(
if
(looking-at
"\\>"
)
(hippie-
expand
nil)
(indent-
for
-tab-
command
)
)
)
;; hippie-
expand
自动补全策略
(setq hippie-
expand
-try-functions-list
'(
senator-try-
expand
-semantic ;优先调用senator的分析结果
try-
expand
-dabbrev-visible ;dabbrev策略, 可见窗口优先
try-
expand
-dabbrev ;dabbrev策略
try-
expand
-dabbrev-all-buffers ;dabbrev策略, 包括所有窗口(除了当前窗口)
try-
expand
-dabbrev-from-
kill
;dabbrev策略, 从所有删除记录里搜索
try-complete-
file
-name ;补全文件名
try-complete-
file
-name-partially ;补全文件名, 匹配优先
try-
expand
-list ;补全list
try-
expand
-list-all-buffers ;补全list, 包括所有窗口(除了当前窗口)
try-
expand
-line ;整行补全
try-
expand
-line-all-buffers ;整行补全, 包括所有窗口(除了当前窗口)
try-complete-lisp-symbol ;补全符号, 符号太多了, 设置低优先级利于高效补全
try-complete-lisp-symbol-partially ;补全符号, 包括所有窗口(除了当前窗口)
try-
expand
-whole-
kill
;
kill
-ring里面补全
))
;;配置semantic,代码分析,智能补全
(setq semanticdb-default-save-directory (
expand
-
file
-name
"~/.semanticdb"
))
;设置semantic.cache路径
(setq semanticdb-project-roots (list (
expand
-
file
-name
"/"
)))
;配置Semantic的检索范围
(autoload 'senator-try-
expand
-semantic
"senator"
)
;优先调用了senator的分析结果
(add-hook
'semantic-init-hooks '
semantic-idle-completions-mode)
;空闲时进行补全分析
(setq-default semantic-idle-scheduler-idle-
time
432000)
;避免semantic占用CPU过多
;;C
/C
++语言启动时自动加载semantic对
/usr/include
的索引数据库
(setq semanticdb-search-system-databases t)
(add-hook 'c-mode-common-hook
(lambda ()
(setq semanticdb-project-system-databases
(list (semanticdb-create-database
semanticdb-new-database-class
"/usr/include"
)))))
(add-hook 'c++-mode-common-hook
(lambda ()
(setq semanticdb-project-system-databases
(list (semanticdb-create-database
semanticdb-new-database-class
"/usr/include"
)))))
|
1034
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
