ubuntu 下emacs 配置

编程知识更新时间:2023-04-17 11:44:06

1. (set-language-environment 'Chinese-GB)
2. (set-keyboard-coding-system 'utf-8)
3. (set-clipboard-coding-system 'utf-8)
4. (set-terminal-coding-system 'utf-8)
5. (set-buffer-file-coding-system 'utf-8)
6. (set-default-coding-systems 'utf-8)
7. (set-selection-coding-system 'utf-8)
8. (modify-coding-system-alist 'process "*" 'utf-8)
9. (setq default-process-coding-system '(utf-8 . utf-8))
10. (setq-default pathname-coding-system 'utf-8)
11. (set-file-name-coding-system 'utf-8)
12. (setq ansi-color-for-comint-mode t)
13. ;;处理shell-mode乱码,好像没作用
15. ;;------语言环境字符集设置结束------------
17. ;;--------------窗口界面设置------------------
19. (set-foreground-color "grey")
20. (set-background-color "black")
21. (set-cursor-color "gold1")
22. (set-mouse-color "gold1")
24. (set-scroll-bar-mode nil)
25. ;;取消滚动栏
27. ;;(customize-set-variable 'scroll-bar-mode 'right))
28. ;;设置滚动栏在窗口右侧，而默认是在左侧
30. (tool-bar-mode nil)
31. ;;取消工具栏
33. ;;启动设置
34. (setq default-frame-alist
35. '((vertical-scroll-bars)
36. (top . 25)
37. (left . 45)
38. (width . 120)
39. (height . 40)
40. (background-color . "black")
41. (foreground-color . "grey")
42. (cursor-color . "gold1")
43. (mouse-color . "gold1")
44. (tool-bar-lines . 0)
45. (menu-bar-lines . 1)
46. (right-fringe)
47. (left-fringe)))
49. ;;启动自动最大化(数据自己调整，注意格式，如(top . 0)，圆点前后都要留有空格)
50. ;;(setq initial-frame-alist '((top . 0) (left . 0) (width . 142) (height . 49)))
53. ;; 设置另外一些颜色：语法高亮显示的背景和主题，区域选择的背景和主题，二次选择的背景和选择
54. (set-face-foreground 'highlight "white")
55. (set-face-background 'highlight "blue")
56. (set-face-foreground 'region "cyan")
57. (set-face-background 'region "blue")
58. (set-face-foreground 'secondary-selection "skyblue")
59. (set-face-background 'secondary-selection "darkblue")
61. ;;------------窗口界面设置结束-----------------
63. ;;------------显示时间设置------------------------------
65. (display-time-mode 1);;启用时间显示设置，在minibuffer上面的那个杠上
66. (setq display-time-24hr-format t);;时间使用24小时制
67. (setq display-time-day-and-date t);;时间显示包括日期和具体时间
68. (setq display-time-use-mail-icon t);;时间栏旁边启用邮件设置
69. (setq display-time-interval 10);;时间的变化频率，单位多少来着？
71. ;;------------显示时间设置结束--------------
73. ;;------------定制操作习惯--------------------
75. ;;设置打开文件的缺省路径
76. (setq default-directory "~/")
78. ;;ido的配置,这个可以使你在用C-x C-f打开文件的时候在后面有提示;
79. ;;这里是直接打开了ido的支持，在emacs23中这个是自带的.
80. (ido-mode t)
82. (setq ido-save-directory-list-file nil)
83. ;;ido模式中不保存目录列表,解决退出Emacs时ido要询问编码的问题。
85. (setq visible-bell t)
86. ;;关闭烦人的出错时的提示声
88. (setq inhibit-startup-message t)
89. ;;关闭emacs启动时的画面
91. (setq gnus-inhibit-startup-message t)
92. ;;关闭gnus启动时的画面
94. (fset 'yes-or-no-p 'y-or-n-p)
95. ;; 改变 Emacs 固执的要你回答 yes 的行为。按 y 或空格键表示 yes，n 表示 no。
97. (setq font-lock-maximum-decoration t)
98. (setq font-lock-global-modes '(not shell-mode text-mode))
99. (setq font-lock-verbose t)
100. (setq font-lock-maximum-size '((t . 1048576) (vm-mode . 5250000)))
101. ;; 语法高亮。除 shell-mode 和 text-mode 之外的模式中使用语法高亮。
103. (setq column-number-mode t)
104. (setq line-number-mode t)
105. ;;显示行列号
106. (global-linum-mode t)
107. (setq mouse-yank-at-point t)
108. ;;不要在鼠标点击的那个地方插入剪贴板内容。我不喜欢那样，经常把我的文档搞的一团糟。我觉得先用光标定位，然后鼠标中键点击要好的多。不管你的光标在文档的那个位置，或是在 minibuffer，鼠标中键一点击，X selection 的内容就被插入到那个位置。
110. (setq kill-ring-max 200)
111. ;;设置粘贴缓冲条目数量.用一个很大的kill ring(最多的记录个数). 这样防止我不小心删掉重要的东西
113. (setq-default auto-fill-function 'do-auto-fill)
114. ; Autofill in all modes;;
115. (setq default-fill-column 120)
116. ;;把 fill-column 设为 60. 这样的文字更好读
118. (setq-default indent-tabs-mode nil)
119. (setq default-tab-width 8);;tab键为8个字符宽度
120. (setq tab-stop-list ())
121. ;;不用 TAB 字符来indent, 这会引起很多奇怪的错误。编辑 Makefile 的时候也不用担心，因为 makefile-mode 会把 TAB 键设置成真正的 TAB 字符，并且加亮显示的。
123. (setq sentence-end "\$[。！？]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\$\\)[ \t\n]*")
124. (setq sentence-end-double-space nil)
125. ;;设置 sentence-end 可以识别中文标点。不用在 fill 时在句号后插入两个空格。
127. (setq enable-recursive-minibuffers t)
128. ;;可以递归的使用 minibuffer
130. (setq scroll-margin 3 scroll-conservatively 10000)
131. ;;防止页面滚动时跳动， scroll-margin 3 可以在靠近屏幕边沿3行时就开始滚动，可以很好的看到上下文。
133. (setq default-major-mode 'text-mode)
134. (add-hook 'text-mode-hook 'turn-on-auto-fill)
135. ;;设置缺省主模式是text，,并进入auto-fill次模式.而不是基本模式fundamental-mode
137. (show-paren-mode t)
138. ;;打开括号匹配显示模式
140. (setq show-paren-style 'parenthesis)
141. ;;括号匹配时可以高亮显示另外一边的括号，但光标不会烦人的跳到另一个括号处。
143. (mouse-avoidance-mode 'animate)
144. ;;光标靠近鼠标指针时，让鼠标指针自动让开，别挡住视线。
146. (setq frame-title-format "emacs@%b")
147. ;;在标题栏显示buffer的名字，而不是 emacs@wangyin 这样没用的提示。
149. (setq uniquify-buffer-name-style 'forward);;好像没起作用
150. ;; 当有两个文件名相同的缓冲时，使用前缀的目录名做 buffer 名字，不用原来的foobar 形式。
152. (setq auto-image-file-mode t)
153. ;;让 Emacs 可以直接打开和显示图片。
155. ;(auto-compression-mode 1)
156. ;打开压缩文件时自动解压缩。
158. (setq global-font-lock-mode t)
159. ;;进行语法加亮。
161. (setq-default kill-whole-line t)
162. ;; 在行首 C-k 时，同时删除该行。
164. (add-hook 'comint-output-filter-functions
165. 'comint-watch-for-password-prompt)
166. ;;当你在shell、telnet、w3m等模式下时，必然碰到过要输入密码的情况,此时加密显出你的密码
168. ;;(setq version-control t);;启用版本控制，即可以备份多次
169. ;; (setq kept-old-versions 2);;备份最原始的版本两次，及第一次编辑前的文档，和第二次编辑前的文档
170. ;; (setq kept-new-versions 1);;备份最新的版本1次，理解同上
171. ;; (setq delete-old-versions t);;删掉不属于以上3中版本的版本
172. ;; (setq backup-directory-alist '(("." . "~/backups")));;设置备份文件的路径
173. ;; (setq backup-by-copying t);;备份设置方法，直接拷贝
174. ;; Emacs 中，改变文件时，默认都会产生备份文件(以 ~ 结尾的文件)。可以完全去掉; (并不可取)，也可以制定备份的方式。这里采用的是，把所有的文件备份都放在一个固定的地方("~/backups")。对于每个备份文件，保留最原始的两个版本和最新的1个版本。并且备份的时候，备份文件是复本，而不是原件。
176. (setq make-backup-files nil)
177. ;; 设定不产生备份文件
179. ;;(setq auto-save-mode nil)
180. ;;自动保存模式
182. (setq-default make-backup-files nil)
183. ;; 不生成临时文件
185. (put 'scroll-left 'disabled nil) ;允许屏幕左移
186. (put 'scroll-right 'disabled nil) ;允许屏幕右移
187. (put 'set-goal-column 'disabled nil)
188. (put 'narrow-to-region 'disabled nil)
189. (put 'upcase-region 'disabled nil)
190. (put 'downcase-region 'disabled nil)
191. (put 'LaTeX-hide-environment 'disabled nil)
192. ;;把这些缺省禁用的功能打开。
194. ;;允许emacs和外部其他程序的粘贴
195. (setq x-select-enable-clipboard t)
197. ;;(setq mouse-yank-at-point t)
198. ;;使用鼠标中键可以粘贴
200. (setq user-full-name "Bluesky")
201. (setq user-mail-address "whuchenxi2010@gmail")
202. ;;设置有用的个人信息,这在很多地方有用。
204. (setq require-final-newline t)
205. ;; 自动的在文件末增加一新行
207. (setq-default transient-mark-mode t)
208. ;;Non-nil if Transient-Mark mode is enabled.
210. (setq track-eol t)
211. ;; 当光标在行尾上下移动的时候，始终保持在行尾。
213. (setq Man-notify-method 'pushy)
214. ;; 当浏览 man page 时，直接跳转到 man buffer。
216. ;;(setq next-line-add-newlines nil)
217. ;;Emacs 21 中已经是缺省设置。按 C-n 或向下键时不添加新行。
219. (global-set-key [home] 'beginning-of-buffer)
220. (global-set-key [end] 'end-of-buffer)
221. ;;设置home键指向buffer开头，end键指向buffer结尾
224. (global-set-key (kbd "C-,") 'scroll-left)
225. ;; "C-,"设为屏幕左移命令
226. (global-set-key (kbd "C-.") 'scroll-right)
227. ;; "C-."设为屏幕右移命令
229. (global-set-key [f1] 'manual-entry)
230. (global-set-key [C-f1] 'info )
232. ;;(global-set-key [f2] 'emacs-wiki-find-file)
233. ;;打开wiki
235. ;;(global-set-key [f3] 'repeat-complex-command)
237. ;;(global-set-key [f4] 'other-window)
238. ;; 跳转到 Emacs 的另一个buffer窗口
240. (defun du-onekey-compile ()
241. "Save buffers and start compile"
242. (interactive)
243. (save-some-buffers t)
244. (switch-to-buffer-other-window "*compilation*")
245. (compile compile-command))
246. (global-set-key [C-f5] 'compile)
247. (global-set-key [f5] 'du-onekey-compile)
248. ;; C-f5, 设置编译命令; f5, 保存所有文件然后编译当前窗口文件
250. (global-set-key [f6] 'gdb)
251. ;;F6设置为在Emacs中调用gdb
253. (global-set-key [C-f7] 'previous-error)
254. (global-set-key [f7] 'next-error)
256. (defun open-eshell-other-buffer ()
257. "Open eshell in other buffer"
258. (interactive)
259. (split-window-vertically)
260. (eshell))
261. (global-set-key [(f8)] 'open-eshell-other-buffer)
262. (global-set-key [C-f8] 'eshell)
263. ;;目的是开一个shell的小buffer，用于更方便地测试程序(也就是运行程序了)，我经常会用到。
264. ;;f8就是另开一个buffer然后打开shell，C-f8则是在当前的buffer打开shell
266. (setq speedbar-show-unknown-files t);;可以显示所有目录以及文件
267. (setq dframe-update-speed nil);;不自动刷新，手动 g 刷新
268. (setq speedbar-update-flag nil)
269. (setq speedbar-use-images nil);;不使用 image 的方式
270. (setq speedbar-verbosity-level 0)
272. (global-set-key [f9] 'speedbar)
273. ;;设置f9调用speedbar命令
274. ;;使用 n 和 p 可以上下移动，
275. ;; + 展开目录或文件进行浏览，- 收缩，RET 访问目录或文件，g 更新 speedbar。
277. (setq dired-recursive-copies 'top)
278. (setq dired-recursive-deletes 'top)
279. ;;让 dired 可以递归的拷贝和删除目录。
280. (global-set-key [C-f9] 'dired)
281. ;;设置[C-f9]为调用dired命令
283. (global-set-key [f10] 'undo)
284. ;;设置F10为撤销
286. (global-set-key [f11] 'calendar)
287. ;;设置F11快捷键指定Emacs 的日历系统
289. (global-set-key [f12] 'list-bookmarks)
290. ;;设置F12 快速察看日程安排
292. (setq time-stamp-active t)
293. (setq time-stamp-warn-inactive t)
294. (setq time-stamp-format "%:y-%02m-%02d %3a %02H:%02M:%02S chunyu")
295. ;; 设置时间戳，标识出最后一次保存文件的时间。
297. (global-set-key (kbd "M-g") 'goto-line)
298. ;;设置M-g为goto-line
300. (global-set-key (kbd "C-SPC") 'nil)
301. ;;取消control+space键设为mark
303. (global-set-key (kbd "s-SPC") 'set-mark-command)
304. ;;用win+space键来set-mark，这样，C-SPC就可以用来调用外部输入法了。
306. ;;----------定制操作习惯结束-------------
308. ;;----------日历设置--------------------
310. ;;设置日历的一些颜色
311. (setq calendar-load-hook
312. '(lambda ()
313. (set-face-foreground 'diary-face "skyblue")
314. (set-face-background 'holiday-face "slate blue")
315. (set-face-foreground 'holiday-face "white")))
317. ;;设置我所在地方的经纬度，calendar里有个功能是日月食的预测，和你的经纬度相联系的。
318. ;; 让emacs能计算日出日落的时间，在 calendar 上用 S 即可看到
319. (setq calendar-latitude +39.54)
320. (setq calendar-longitude +116.28)
321. (setq calendar-location-name "北京")
323. ;; 设置阴历显示，在 calendar 上用 pC 显示阴历
324. (setq chinese-calendar-celestial-stem
325. ["甲" "乙" "丙" "丁" "戊" "己" "庚" "辛" "壬" "癸"])
326. (setq chinese-calendar-terrestrial-branch
327. ["子" "丑" "寅" "卯" "辰" "巳" "戊" "未" "申" "酉" "戌" "亥"])
329. ;; 设置 calendar 的显示
330. (setq calendar-remove-frame-by-deleting t)
331. (setq calendar-week-start-day 1) ; 设置星期一为每周的第一天
332. (setq mark-diary-entries-in-calendar t) ; 标记calendar上有diary的日期
333. (setq mark-holidays-in-calendar nil) ; 为了突出有diary的日期，calendar上不标记节日
334. (setq view-calendar-holidays-initially nil) ; 打开calendar的时候不显示一堆节日
336. ;; 去掉不关心的节日，设定自己在意的节日，在 calendar 上用 h 显示节日
337. (setq christian-holidays nil)
338. (setq hebrew-holidays nil)
339. (setq islamic-holidays nil)
340. (setq solar-holidays nil)
341. (setq general-holidays '((holiday-fixed 1 1 "元旦")
342. (holiday-fixed 2 14 "情人节")
343. (holiday-fixed 3 14 "白色情人节")
344. (holiday-fixed 4 1 "愚人节")
345. (holiday-fixed 5 1 "劳动节")
346. (holiday-float 5 0 2 "母亲节")
347. (holiday-fixed 6 1 "儿童节")
348. (holiday-float 6 0 3 "父亲节")
349. (holiday-fixed 7 1 "建党节")
350. (holiday-fixed 8 1 "建军节")
351. (holiday-fixed 9 10 "教师节")
352. (holiday-fixed 10 1 "国庆节")
353. (holiday-fixed 12 25 "圣诞节")))
355. ;;Calendar模式支持各种方式来更改当前日期
356. ;;（这里的“前”是指还没有到来的那一天，“后”是指已经过去的日子）
357. ;; q 退出calendar模式
358. ;; C-f 让当前日期向前一天
359. ;; C-b 让当前日期向后一天
360. ;; C-n 让当前日期向前一周
361. ;; C-p 让当前日期向后一周
362. ;; M-} 让当前日期向前一个月
363. ;; M-{ 让当前日期向后一个月
364. ;; C-x ] 让当前日期向前一年
365. ;; C-x [ 让当前日期向后一年
366. ;; C-a 移动到当前周的第一天
367. ;; C-e 移动到当前周的最后一天
368. ;; M-a 移动到当前月的第一天
369. ;; M-e 多动到当前月的最后一天
370. ;; M-< 移动到当前年的第一天
371. ;; M-> 移动到当前年的最后一天
373. ;;Calendar模式支持移动多种移动到特珠日期的方式
374. ;; g d 移动到一个特别的日期
375. ;; o 使某个特殊的月分作为中间的月分
376. ;; . 移动到当天的日期
377. ;; p d 显示某一天在一年中的位置，也显示本年度还有多少天。
378. ;; C-c C-l 刷新Calendar窗口
380. ;; Calendar支持生成LATEX代码。
381. ;; t m 按月生成日历
382. ;; t M 按月生成一个美化的日历
383. ;; t d 按当天日期生成一个当天日历
384. ;; t w 1 在一页上生成这个周的日历
385. ;; t w 2 在两页上生成这个周的日历
386. ;; t w 3 生成一个ISO-SYTLE风格的当前周日历
387. ;; t w 4 生成一个从周一开始的当前周日历
388. ;; t y 生成当前年的日历
390. ;;EMACS Calendar支持配置节日：
391. ;; h 显示当前的节日
392. ;; x 定义当天为某个节日
393. ;; u 取消当天已被定义的节日
394. ;; e 显示所有这前后共三个月的节日。
395. ;; M-x holiday 在另外的窗口的显示这前后三个月的节日。
398. ;; 另外，还有一些特殊的，有意思的命令：
399. ;; S 显示当天的日出日落时间(是大写的S)
400. ;; p C 显示农历可以使用
401. ;; g C 使用农历移动日期可以使用
403. ;;-----------日历设置结束----------------
404. ;;-----------日记设置---------------------
406. (setq diary-file "~/diary/diary");; 默认的日记文件
407. (setq diary-mail-addr "whuchenxi2010@gmail")
408. ;;(add-hook 'diary-hook 'appt-make-list)
409. ;;当你创建了一个'~/diary'文件，你就可以使用calendar去查看里面的内容。你可以查看当天的事件，相关命令如下：
410. ;; d 显示被选中的日期的所有事件
411. ;; s 显示所有事件，包括过期的，未到期的等等
413. ;; 创建一个事件的样例：
414. ;; 02/11/1989
415. ;; Bill B. visits Princeton today
416. ;; 2pm Cognitive Studies Committee meeting
417. ;; 2:30-5:30 Liz at Lawrenceville
418. ;; 4:00pm Dentist appt
419. ;; 7:30pm Dinner at George's
420. ;; 8:00-10:00pm concert
422. ;; 创建事件的命令：
423. ;; i d 为当天日期添加一个事件
424. ;; i w 为当天周创建一个周事件
425. ;; i m 为当前月创建一个月事件
426. ;; i y 为当前年创建一个年事件
427. ;; i a 为当前日期创建一个周年纪念日
428. ;; i c 创建一个循环的事件
430. ;;----------日记设置结束-----------------
433. ;;-------------方便编程操作设置----------------
435. ;;代码折叠
436. (load-library "hideshow")
437. (add-hook 'c-mode-hook 'hs-minor-mode)
438. (add-hook 'c++-mode-hook 'hs-minor-mode)
439. (add-hook 'java-mode-hook 'hs-minor-mode)
440. (add-hook 'perl-mode-hook 'hs-minor-mode)
441. (add-hook 'php-mode-hook 'hs-minor-mode)
442. (add-hook 'emacs-lisp-mode-hook 'hs-minor-mode)
443. ;;能把一个代码块缩起来，需要的时候再展开
444. ;; M-x hs-minor-mode
445. ;; C-c @ ESC C-s show all
446. ;; C-c @ ESC C-h hide all
447. ;; C-c @ C-s show block
448. ;; C-c @ C-h hide block
449. ;; C-c @ C-c toggle hide/show
452. ;;自动补全括号
453. (defun my-c-mode-auto-pair ()
454. (interactive)
455. (make-local-variable 'skeleton-pair-alist)
456. (setq skeleton-pair-alist '(
457. (?` ?` _ "''")
458. (?\( ? _ " )")
459. (?\[ ? _ " ]")
460. (?{ \n > _ \n ?} >)))
461. (setq skeleton-pair t)
462. (local-set-key (kbd "(") 'skeleton-pair-insert-maybe)
463. (local-set-key (kbd "{") 'skeleton-pair-insert-maybe)
464. (local-set-key (kbd "`") 'skeleton-pair-insert-maybe)
465. (local-set-key (kbd "[") 'skeleton-pair-insert-maybe))
466. (add-hook 'c-mode-hook 'my-c-mode-auto-pair)
467. (add-hook 'c++-mode-hook 'my-c-mode-auto-pair)
468. ;;输入左边的括号，就会自动补全右边的部分.包括(), "", [] , {} , 等等。
470. ;;把c语言风格设置为k&r风格
471. (add-hook 'c-mode-hook
472. '(lambda ()
473. (c-set-style "k&r")))
475. (autoload 'css-mode "css-mode" "CSS editing mode" t)
476. ;;css-mode.el编辑css文件
478. (autoload 'htmlize-buffer "htmlize" "HTMLize mode" t)
479. ;;把buffer的内容连同颜色转为html格式
481. (autoload 'folding-mode "folding" "Folding mode" t)
482. (autoload 'turn-off-folding-mode "folding" "Folding mode" t)
483. (autoload 'turn-on-folding-mode "folding" "Folding mode" t)
484. ;;folding.el 编辑文本的一部分，其它部分折叠起来
486. (setq auto-mode-alist
487. ;; 将文件模式和文件后缀关联起来
488. (append '(("\\.py\\'" . python-mode)
489. ("\\.s?html?\\'" . html-helper-mode)
490. ("\\.asp\\'" . html-helper-mode)
491. ("\\.phtml\\'" . html-helper-mode)
492. ("\\.css\\'" . css-mode))
  auto-mode-alist))
  
  ;;------------方便编程操作设置结束--------------------