Emacs学习心得之 基础配置

作者：枫雪庭

出处：http://www.cnblogs.com/FengXueTing-px/

欢迎转载

Emacs学习心得之 基础配置

1.前言
2.基础配置

一、前言

本篇博文记录了Emacs的一些基础配置，

其中，具体配置基于博客：
http://www.tuicool.com/articles/uaUNBzN 　　　　　　　　　　　　　　　　　　　　 （Emacs 配置文件新手攻略（2014））

并参考了以下文章：
http://blog.csdn.net/blueboy82006/article/details/5309280 　　　　　　　　　　　　（在emacs中显示行号）
http://www.cnblogs.com/liyongmou/archive/2013/04/26/3044155.html#sec-1-1 　（emacs自动补全插件auto-complet和yasnippet，安装、配置和扩展）
https://github.com/joaotavora/yasnippet 　　　　　　　　　　　　　　　　　　　　　（yasnippet in Github）
https://www.douban.com/group/topic/9403585/　　　　　　　　　　　　　　　　　 （大家如何在emacs里面执行命令行？）

二、基础配置

使用目录（~/.emacs.d/ ） 对Emacs进行简单配置，完成了如下配置：
1. 自动补完（ auto-complete 和yasnippet ）
2. 显示行数

配置放在 这里 ，目录结构如下

~/.emacs.d/
README.md 　　#请无视该文件
init.el 　　　　　 #Emacs会自动从init.el开始执行
lisp/ 　　　　　　#就是加载各个插件的初始化文件的位置啦
init-xxx.el 　　　#某初始化文件

具体配置如下：

init.el

init.el 主要就是下面几句:

(add-to-list 'load-path (expand-file-name "lisp" user-emacs-directory))

(require 'init-utils)
(require 'init-elpa)
(require 'init-yasnippet)
(require 'init-auto-complete)

//显示行数
(global-linum-mode t)

(provide 'init)

init-utils.el

来自 Purcell ，目的是把一些相互依赖的feature的加载顺序理顺，例如feature A依赖于feature B，则可以写成 (after-load 'B 'A) ，这样如果错误地在B之前require了A也不会影响正常启动。

;;after-load
;;例如feature A依赖于feature B，则可以写成 (after-load 'B 'A)

(defmacro after-load (feature &rest body)
  "After FEATURE is loaded, evaluate BODY."
  (declare (indent defun))
  `(eval-after-load ,feature
     '(progn ,@body)))

(provide 'init-utils)

init-elpa.el

也是来自 Purcell 那里截取过来的，但是去掉了很多用不上的函数。
该文件初始化Emacs的包管理系统 ELPA ，

(require 'package)

;; 增加软件包仓库
(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/"))
(when (< emacs-major-version )
(add-to-list 'package-archives '("gnu" . "http://elpa.gnu.org/packages/")))
(add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/"))
(add-to-list 'package-archives '("melpa-stable" . "http://melpa-stable.milkbox.net/packages/"))

;; 定义require-package函数
(defun require-package (package &optional min-version no-refresh)
"Install given PACKAGE, optionally requiring MIN-VERSION.
If NO-REFRESH is non-nil, the available package lists will not be
re-downloaded in order to locate PACKAGE."
(if (package-installed-p package min-version)
t
(if (or (assoc package package-archive-contents) no-refresh)
(package-install package)
(progn
(package-refresh-contents)
(require-package package min-version t)))))

(package-initialize)
(provide 'init-elpa)

有了ELPA，给Emacs装插件就变的非常容易了。比方说你需要一个叫 example 的插件，那么可以在 lisp/ 目录下增加一个文件 init-example.el ：

;; init-example.el
(require-package 'example)
(require 'example-autoloads)
(provide 'init-example)
然后在 init.el 中加入一句 (require 'init-example) (注意这一句要放在 (require 'init-elpa) 之后)即可。

init-auto-complete.el 和 init-yasnippet.el

init-auto-complete.el 和 init-yasnippet.el 一起用于配置自动补完， 分别如下配置:
init-auto-complete.el:

(require-package 'auto-complete)
(require 'auto-complete-config)

(global-auto-complete-mode t)
;; 把自定义的dict加到auto-complete的字典中去
(add-to-list 'ac-dictionary-directories
(expand-file-name "lisp/custom-dicts" user-emacs-directory))
;; 按下TAB时首先缩进所在行，然后尝试补全
(setq tab-always-indent 'complete)
;; 阻止自动触发补全动作
(setq-default ac-expand-on-auto-complete nil)
(setq-default ac-auto-start nil)
;; 用TAB作为手动触发补全动作的快捷键
(ac-set-trigger-key "TAB")
;; 使用after-load来确保ac-source-yasnippet已经完成加载
(after-load 'init-yasnippet
(set-default 'ac-sources
'(ac-source-dictionary
ac-source-words-in-buffer
ac-source-words-in-same-mode-buffers
ac-source-words-in-all-buffer
ac-source-functions
ac-source-yasnippet)))
(require 'init-ac-source)

(provide 'init-auto-complete)

init-yasnippet.el:

(require-package 'yasnippet)
(require 'yasnippet)
;; 使用Ctrl-c k作为唯一的触发快捷键
(define-key yas-minor-mode-map (kbd "<tab>") nil)
(define-key yas-minor-mode-map (kbd "TAB") nil)
(define-key yas-minor-mode-map (kbd "C-c k") 'yas-expand)

(yas-global-mode t)

(provide 'init-yasnippet)