emacs windows mysql_windows 上emacs配置

双击 /bin/addpm.exe ，把快捷方式复制到桌面，以后方便使用。

(1) 右键计算机 -> 高级系统设置 -> 环境变量 -> 新建一个系统变量 -> 变量: HOME, 值: D:\Program Files\emacs 。

(2) 重启计算机 [我的计算不重启，没有效果]。

(1) 打开 emacs 在 options 下面随便点一点，然后点 Save options。

(2) 打开路径 D:\Program Files\emacs 会发现出现了两个文件 .emacs 和 .emacs.d 。

1

;; 在标题栏提示你目前在什么位置

2

(setq frame-title-format "zhangjie@%b")

3

;; 默认显示 80列就换行

4

(setq default-fill-column 80)

5

;; 去掉工具栏

6

(tool-bar-mode nil)

7

;; 去掉菜单栏

8

;(menu-bar-mode nil)

9

;; 去掉滚动栏

10

(scroll-bar-mode nil)

11

;; 语法高亮

12

(global-font-lock-mode t)

13

;; 一打开就起用 text 模式。

14

(setq default-major-mode 'text-mode)

15

;; 以 y/n代表 yes/no

16

(fset 'yes-or-no-p 'y-or-n-p)

17

;; 显示括号匹配

18

(show-paren-mode t)

19

(setq show-paren-style 'parentheses)

20

;; 显示时间，格式如下

21

(display-time-mode 1)

22

(setq display-time-24hr-format t)

23

(setq display-time-day-and-date t)

查看当前使用字体名称、大小:

emacs -> options -> Set Default Font -> “M-x describe-font”

在 .emacs 添加字体信息:

1

(set-default-font "-outline-Consolas-normal-r-normal-normal-16-120-96-96-c-*-iso8859-1")

上面这种方法可以设置英文字体，中文字体如果不设置的特别难看，我在网上找到了下面这种配置方法：

1

;; Setting English Font

2

(set-face-attribute

3

'default nil :font "Consolas 12")

4

5

;; Chinese Font

6

(dolist (charset '(kana han symbol cjk-misc bopomofo))

7

(set-fontset-font (frame-parameter nil 'font)

8

charset

9

(font-spec :family "新宋体" :size 15)))

(1) 在 http://download.savannah.gnu.org/releases/color-theme/ 下载 color-theme-6.6.0.zip 并解压

(2) 将 color-theme-6.6.0 中的 color-theme.el 和 themes 文件夹复制到 D:\Program Files\emacs\.emacs.d

(3) 在配置文件下添加如下代码:

1

(add-to-list 'load-path "~/.emacs.d")

2

(require 'color-theme)

(4) 打开 emacs , M-x color-theme-select, 回车查看效果，d 查看主题信息(主题名)

在 (require ‘color-theme) 下面添加代码：

1

(color-theme-dark-blue2)

1

;; tab 缩进

2

(setq c-basic-offset 4)

3

(setq indent-tabs-mode nil)

4

(setq default-tab-width 4)

5

(setq tab-width 4)

6

(setq tab-stop-list ())

7

(loop for x downfrom 40 to 1 do

8

(setq tab-stop-list (cons (* x 4) tab-stop-list)))

9

10

;; 回车缩进

11

(global-set-key "\C-m" 'newline-and-indent)

12

(global-set-key (kbd "C-<return>") 'newline)

1

;; 设置光标为竖线

2

(setq-default cursor-type 'bar)

3

;; 设置光标为方块

4

;;(setq-default cursor-type 'box)

1

(run-with-idle-timer 0.0 nil 'w32-send-sys-command 61488)