emacs windows

Emacs在Windows下的安装需注意的几点

1、下载
到这个网址可以下载到Emacs的windows版本：http://ftp.gnu.org/pub/gnu/emacs/windows/
只需要一个压缩文档，如emacs-22.3-bin-i386.zip

2、安装
在D盘根目录下新建一个文件夹，取名Emacs22.2（也可以是其他路径，随个人喜好而定），将emacs-22.2-bin-i386.zip里的文件解压到这个目录下，这样在d:/Emacs22.2/下就有bin, tec, info, leim, lisp, site-lisp等目录。

双击bin文件夹里的addpm.exe进行安装，安装后将在开始菜单生成Gnu Emacs/Emacs链接，点击这个链接便可启动Emacs。也可以双击bin文件夹里的runemacs.exe启动。注意到bin目录里还有个文件是emacs.exe，双击它也可以启动，但是会出现一个控制台窗口

3、修改注册表
打开注册表，找到HKEY_LOCAL_MACHINE/SOFTWARE/GNU/Emacs（如果没有则手动添加项），在此项下添加字符串值，名称为HOME，值为D:/Emacs22.2。这样做的目的是让D:/Emacs22.2成为Emacs的home路径（传说中的home path，以后你将会经常看到“home目录”、“home directory”等等）。

4、创建.emacs.d目录和.emacs文件
相信.emacs.d目录和.emacs文件是困扰大家很久的问题了，其实有个简单的办法可以解决此问题。启动emacs，用鼠标点击Options菜单，随便点击一两个选项，比如点击一下Active Region Highlighting，然后点击Save Options。先不要担心你会破坏了什么东西，这样做的目的是让emacs自动创建.emacs.d目录以及.emacs文件！观察你的Emacs窗口最后一行，是否显示“Wrote d:/Emacs22.2/.emacs”？如果是的话就对了，当你选择Save Options的时候，Emacs会在home路径下产生.emacs文件，并把配置信息写进这个文件。现在看看你的d:/Emacs22.2/目录下是否产生了这两个东西？默认的路径为自己的HOME环境变量所在的目录。

5、加载.el文件
lisp目录下存放着lisp源文件（*.el）和已编译的lisp文件（*.elc），以后你也可以将自己的.el文件放在这个目录下，然后还要在.emacs文件插入相关语句。比如你有一个文件叫做abcd.el，将它复制到lisp目录下，然后打开.emacs文件插入一句(require 'abcd)就可以了（包括圆括号，不需要扩展名.el）。

如果你不喜欢lisp文件夹，也可以自己新建一个，比如在home目录下建一个文件夹叫做xyz，然后把abcd.el放在xyz目录下，在.emacs文件插入以下两句：
(setq load-path (cons "~/xyz" load-path))
(require 'abcd)
第一句告诉emacs先加载你的xyz目录，第二句再加载abcd.el。注意“~/”是linux系统的用法，表示home目录。
如果你和我一样在学习《Sams Teach Yourself Emacs in 24 Hours》这本书的话，我想你一定需要sams-lib.el这个文件！可以到这个网址下载：
http://www.cs.virginia.edu/~wh5a/personal/Emacs/
找到sams-lib.el之后右键点击“目标另存为”就可以了！

除了lisp还有一个site-lisp目录，我把sams-lib.el分别放在这两个目录下，发现效果是一样的。

我的Emacs配置文件：

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