嵌入式之行(4):我的emacs(下)

本文继续讲解emacs的各种配置及使用,并结合图片演示。

3、配置及使用

(1)、doxymacs

先讲一下doxymacs,上面说过,我主要用于代码的注释,因为从代码生成文档我还不会。配置文件如下:

1
2
3
4
5
6
7
8
9
;;; 加载
(add-to-list 'load-path "~/.emacs.d/doxymacs/share/emacs/site-lisp")
(require 'doxymacs)
(defun my-doxymacs-font-lock-hook ()
(if (or (eq major-mode 'c-mode) (eq major-mode 'c++-mode))
(doxymacs-font-lock)))
(add-hook 'font-lock-mode-hook 'my-doxymacs-font-lock-hook)
(add-hook 'c-mode-common-hook 'doxymacs-mode)
(add-hook 'c++-mode-common-hook 'doxymacs-mode)

注释形式有很多种。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
\- C-c d f will insert a Doxygen comment for the next function.
(在某一函数前插入注释)

\- C-c d i will insert a Doxygen comment for the current file.
(在当前文件插入注释)

\- C-c d ; will insert a Doxygen comment for the current member.
(为一个变量插入注释)

\- C-c d m will insert a blank multi-line Doxygen comment.
(多行注释)

\- C-c d s will insert a blank single-line Doxygen comment.
(单行注释)

多行注释(C-c d m)如图1所示。(可以看到自己添加的与doxymacs生成的颜色是不同的)

图1 多行注释

函数之前的注释(C-c d f)如图2所示。
图2 函数前注释

一个文件中插入的注释(C-c d i)如图3所示。——关于出现的作者及e-mail是在emacs配置文件中添加的,配置见下文。
图3 文件前注释

(2)、cedet

配置文件如下:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
;;; 加载
(load-file "~/.emacs.d/cedet/common/cedet.el")
(global-ede-mode 1)
(global-srecode-minor-mode 1)
;;; 选择一个就可以了,可以看一下每一个的效果再作选择
(semantic-load-enable-code-helpers)
;;; (semantic-load-enable-guady-code-helpers)
;;; (semantic-load-enable-excessive-code-helpers)
;;; 搜索路径
(setq semanticdb-project-roots
(list
(expand-file-name "/")))
;;; 数据库位置,可以随意选择,我选择在家目录下(后面有说明)
(require 'semanticdb)
(setq semanticdb-default-save-directory
(expand-file-name "~/semanticdb"))
(global-semanticdb-minor-mode 1)
;;; 空闲调度时间
(setq-default semantic-idle-scheduler-idle-time 432000)
(setq semanticdb-search-system-databases t)
;;; 针对于结构体和指针的补齐
(global-set-key "." 'semantic-complete-self-insert)
(global-set-key ">" 'semantic-complete-self-insert)
;;; 补齐的其它按键
(global-set-key [(control return)] 'semantic-ia-complete-symbol)
(global-set-key "C-c?" 'semantic-ia-complete-symbol-menu)
(global-set-key "C-c>" 'semantic-complete-analyze-inline)
(global-set-key "C-cp" 'semantic-analyze-proto-impl-toggle)
;;; 可以看一下效果再作选择。那个菜单式补齐(像VC6.0补齐那种)我截图不到,但我负责地告诉你,是可以的。
;;;(global-set-key [(control tab)] 'senator-completion-menu-popup)
;;;(global-set-key [(meta ?/)] 'semantic-ia-complete-symbol-menu)
;;; this will be fine!!
(global-set-key [(meta ?/)] 'semantic-ia-complete-symbol-menu)

自动补齐的一种方式**(指针方式)一种示例**如图4所示。

图4 自动补齐

我将cedet的数据库(自动补齐所需要的数据)位置设置为自己的家目录,在没有创建该数据目录前,emacs会寻问是否创建,单击“Yes”即可。如图5所示。
图5 数据库位置

我们看一下这个所谓的数据库的真实面目,说白了,它们就是一些文件,至于文件内容,我是看不懂的。如图6所示。

图6 “数据库”

该工具还有一个功能,就是函数原型与定义之间的切换,我绑定于C-c p上,如下:

1
(global-set-key "C-cp" 'semantic-analyze-proto-impl-toggle)

效果如图7所示,图中所示为从函数原型找到函数定义瞬间的截图。那种效果有点炫。
图7 原型to定义

下面这些主要是从曹乐的个人主页http://www.caole.net/diary/index.html上拷过来,再修改的:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
;;; auto complete
(defun my-indent-or-complete()
(interactive)
(if (looking-at "\>")
(hippie-expand nil)
(indent-for-tab-command))
)

(global-set-key [(control tab)] 'my-indent-or-complete)
(autoload 'senator-try-expand-semantic "senator")
;;; NOTE:i put xxx-dabbrev first
;;; i think it will be fine
(setq hippie-expand-try-functions-list
'(
;;;senator-try-expand-semantic
try-expand-dabbrev
try-expand-dabbrev-visible
senator-try-expand-semantic
try-expand-dabbrev-all-buffers
try-expand-dabbrev-from-kill
try-expand-list
try-expand-list-all-buffers
try-expand-line
try-expand-line-all-buffers
try-complete-file-name-partially
try-complete-file-name
try-expand-whole-kill
)
)
;;; cc-mode
;;; what does it mean?puzzle
(require 'cc-mode)
(c-set-offset 'inline-open 0)
(c-set-offset 'friend '-)
(c-set-offset 'substatement-open 0)
(defun my-c-mode-common-hook()
;; c style,this will be good
(c-set-style "stroustrup")
;; tab is 4 NOT 8
(setq-default tab-width 4)
;; this is better than the next line! so i choose this one
(global-set-key(kbd "RET") 'newline-and-indent)
;; OK here replace "make -k" to "gcc"
(setq compile-command "gcc")
;;; some key map
(define-key c-mode-base-map [(f7)] 'compile)
(define-key c-mode-base-map [(control `)] 'hs-toggle-hiding)
(define-key c-mode-base-map [(meta `)] 'c-indent-command)
(define-key c-mode-base-map [(tab)] 'my-indent-or-complete)
;;;(define-key c-mode-base-map [(meta ?/)] 'semantic-ia-complete-symbol)
;;; pre process
(setq c-macro-shrink-window-flag t)
(setq c-macro-preprocessor "cpp")
(setq c-macro-cppflags " ")
(setq c-macro-prompt-flag t)
(setq hs-minor-mode t)
(setq abbrev-mode t)
(setq tab-width 4 indent-tabs-mode nil)
)

(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
;;; I know it is not very good ,bu I have no good idea
(defun my-c++-mode-hook()
;; c++ style,this will be good
(c-set-style "stroustrup")
;; tab is 4 NOT 8
(setq-default tab-width 4)
;; OK here replace "make -k" to "g++"
(setq compile-command "g++")
;;; some key map
(define-key c-mode-base-map [(f7)] 'compile)
(define-key c-mode-base-map [(control `)] 'hs-toggle-hiding)
(define-key c-mode-base-map [(meta `)] 'c-indent-command)
(define-key c-mode-base-map [(tab)] 'my-indent-or-complete)
;;;(define-key c-mode-base-map [(meta ?/)] 'semantic-ia-complete-symbol-menu)
;;; pre process
(setq c-macro-shrink-window-flag t)
(setq c-macro-preprocessor "cpp")
(setq c-macro-cppflags " ")
(setq c-macro-prompt-flag t)
(setq hs-minor-mode t)
(setq abbrev-mode t)
(setq tab-width 4 indent-tabs-mode nil)
)

(add-hook 'c++-mode-hook 'my-c++-mode-hook)

(3)、ecb

配置文件如下:

1
2
3
4
5
6
7
8
9
10
11
;;; 加载
(add-to-list 'load-path"~/.emacs.d/ecb-2.40")
(require 'ecb)
;;;(require 'ecb-autoloads)
;;; 不要每日提示
(setq ecb-tip-of-the-day nil)
(setq ecb-version-check nil)
;;; 激活
(global-set-key [(f12)] 'ecb-activate)
;;; 禁止
(global-set-key [(f11)] 'ecb-deactivate)

效果如图8所示,这个工具在阅读代码时,如果配合cscope的话,会很方便。
图8 ecb效果图

(4)、cscope

配置文件如下:

1
2
(add-to-list 'load-path "~/.emacs.d/cscope-15.7a/contrib/xcscope")
(require 'xcscope)

它的一些默认的命令如下:

查找定义:

下面的截图9中说明了查找一个变量的定义。我同时打开3窗口,都是同一个文件,我的光标定位于左上方的窗口的V4L2_PIX_FMT_YUYV,再按C-c s g,之后,在该窗口显示找到的定义的那个文件,在最下窗口显示路径及命中的变量,图中光标在右上方窗口中,纯粹是为了说明问题,不具有实际意义。
图9 查找定义示例

这些都是编程所经常要使用到的,下面讲一下其它的配置。

四、其它

emacs中显示时间:

1
2
3
4
(display-time-mode 1)
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(setq display-time-interval 1)

不要备份文件,即那个讨厌的~。

1
(setq make-backup-files nil)

不要响铃及开始画面信息:

1
2
3
4
(setq visible-bell nil)
(setq inhibit-startup-message t)
(setq gnus-inhibit-startup-message t)
(setq inhibit-startup-message t)

行号 (需要line-num.el,附录有,不过在FC上出错,显示不出行号,RF上可以) :

1
2
(require 'linum)
(global-linum-mode t)

在多个窗口移动(即Shit/Alt+ 光标,这样不用c-c o一个一个移动了):

1
2
3
4
5
6
7
8
9
10
11
(windmove-default-keybindings)

(setq windwove-wrap-around t)

(global-set-key [(meta left)] 'windmove-left)

(global-set-key [(meta right)] 'windmove-right)

(global-set-key [(meta up)] 'windmove-up)

(global-set-key [(meta down)] 'windmove-down)

当光标改为竖的(bar):

1
(setq-default cursor-type 'bar)

不让光标闪烁:

1
(blink-cursor-mode nil)

鼠标躲开光标(试一试吧,很爽的):

1
(mouse-avoidance-mode 'animate)

允许emacs与其它程序之间复制内容,比如在终端上复制,可以在emacs中粘贴内容。

1
(setq x-select-enable-clipboard t)

一些个人信息(上面doxymacs文件前插入注释的作者就是这个了!):

1
2
3
(setq user-full-name "Late Lee")

(setq user-mail-address "latelee@163.com")

多窗口gdb调试(下面有文章演示):

1
(setq gdb-many-windows t)

又:我学习emacs时间很久了,在网络上找了很久资料,一点点积累起来,所以,配置这些七七八八的东西花费不少时日。现在才写总结,估计有点晚了,有些东西也记不起来的,如果文中有什么出错的地方,希望大家提提意见。毕竟,有错误的文章会误人子弟,害人害己。

附录

1、如果你想自己手动安装文中的工具,可以在google搜索,如果实在不想,可以点击这里的连接来下载:
http://nchc.dl.sourceforge.net/project/cedet/cedet/1.0pre7/cedet-1.0pre7.tar.gz
http://nchc.dl.sourceforge.net/project/ecb/ecb/ECB%202.40/ecb-2.40.zip
http://nchc.dl.sourceforge.net/project/cscope/cscope/15.7a/cscope-15.7a.tar.bz2
http://nchc.dl.sourceforge.net/project/doxymacs/doxymacs/1.8.0/doxymacs-1.8.0.tar.gz