1;;;======================================================
2;;;文字与背景
3;;;======================================================
4;;已经逐渐不用了emacs23后内核就支持了
5;;(set-language-environment 'UTF-8)
6
7;;设置字体的大小和字型(文泉驿字体)
8(set-default-font "Bitstream Vera Sans Mono-12")
9;;设置中文字体
10(set-fontset-font "fontset-default"
11 'unicode '("WenQuanYi Bitmap Song" . "unicode-bmp"))
12
13;; 手工选背景色(建议使用color-theme插件)
14;; (set-background-color xxx)
15
16;; 使用color-theme插件的方式
17;; (require color-theme)
18(color-theme-gray30)
19;; 将mmm-mode的背景色设深一些，与当前的背景色匹配
20(set-face-background 'mmm-default-submode-face "DarkSlateGray4")
21
22
23;;;======================================================
24;;; 功能与提示
25;;;======================================================
26;; 方便的小技巧
27(fset 'yes-or-no-p 'y-or-n-p) ; 将yes/no替换为y/n
28(mouse-avoidance-mode 'animate) ; 光标移动到鼠标下时，鼠标自动弹开
29(column-number-mode t) ; 显示列号
30(tool-bar-mode nil) ;;禁用工具栏
31;; 时间与日期
32(display-time-mode 1) ; 显示时间
33(setq display-time-24hr-format t) ; 24小时格式
34(setq display-time-day-and-date t) ; 显示日期
35
36
37
38;;;======================================================
39;;; 其他
40;;;======================================================
41
42(setq frame-title-format "March Liu@%b") ; 标题栏显示当前编辑的文档
43
44;; 插入当前编辑时间
45(defun insert-date ()
46 "Insert date at point."
47 (interactive)
48 (insert (format-time-string "%Y年%m月%e日 %l:%M %a %p")))
49
50
51;;;======================================================
52;;; 高级应用
53;;;======================================================
54;;添加插件所在位置
55(add-to-list 'load-path "xxx")
56;; 加载库
57(require 'xxx)
58;; 增加钩子
59(add-hook 'python-mode-hook 'python-mode-hook t)