您的位置: 承德资讯网 > 美食

emacs入门技巧:常用定制函数

发布时间:2019-09-13 20:02:15

先说说怎么试用这些技巧。Emacs根本就是elisp的解释环境,碰巧实现了编辑器而已。所以和elisp的函数勾兑再容易不过。假设我们打开一个Emacs的缓冲:

现在c-x 2, 增加新的缓冲

接着c-x o, 把光标切换到新增的缓冲里:

再切换到*scratch*缓冲就行了。Emacs提供的*scratch*缓冲的缺省模式是elisp-mode,正适合我们做elisp的编辑和试验。输入命令c-x b, 再敲入scratch, 回车,就成了:

在*scratch*缓冲里输入代码后,m-x eval-buffer, 输入的代码就被装载运行。

下面是Babar提供的技巧:

加强搜索

Emacs下c-s对应渐进搜索。不过我们更多的时候需要搜索某种模式,所以用得最多的还是渐进式的正则表达式搜索。正则表达式搜索有个烦人的问题:搜索结束时光标不一定停留在匹配字串的开端。幸好这个问题容易解决:

(local-set-key [(control s)] 'isearch-forward-regexp)

(local-set-key [(control r)] 'isearch-backward-regexp)

;; Always end searches at the beginning of the matching expression.

(add-hook 'isearch-mode-end-hook 'custom-goto-match-beginning)

(defun custom-goto-match-beginning ()

"Use with isearch hook to end search at first char of match."

(when isearch-forward (goto-char isearch-other-end)))

头两行重新绑定标准搜索键c-s和c-r,把isearch换成regex-isearch。后面三行加入定制函数。关键的语句是(goto-char isearch-other-end),保证光标停留在匹配字串的开头,而不是缺省的末尾。

自动完成

Emacs的hippie-expansion非常强大,可以帮我们自动完成很多重复输入。我用惯了Eclipse和Vim,所以把自动完成CTRL-Space绑定到自动完成,而把CTRL-ENTER绑定到CTRL-space缺省对应的set-mark了:

(global-set-key [(control space)] 'hippie-expand)

(global-set-key [(control return)] 'set-mark-command)

(require 'hippie-exp)

(setq hippie-expand-try-functions-list

'(try-expand-dabbrev

try-expand-dabbrev-all-buffers

try-expand-dabbrev-from-kill

try-complete-file-name-partially

try-complete-file-name

try-complete-lisp-symbol-partially

try-complete-lisp-symbol

try-expand-whole-kill))

括号自动完成

用Emacs的大部分时间都在编程。编程是少有遇到不配对的括号。既然如此,干嘛不让Emacs帮我们配对呢?下面的语句自动完成(, [, {, 和<。

(setq skeleton-pair t)

(local-set-key (kbd "[") 'skeleton-pair-insert-maybe)

(local-set-key (kbd "(") 'skeleton-pair-insert-maybe)

(local-set-key (kbd "{") 'skeleton-pair-insert-maybe)

(local-set-key (kbd "<") 'skeleton-pair-insert-maybe)

移动整行

这个功能是从苹果机里非常流行的编辑器TextMate学来的。在TextMate里,ALT-up会把光标所在的整行文字上移一行,而ALT-down会把光标所在的整行文字下移一行。这在调整语句顺序时非常有用。有了这个功能,我们可以和烦琐的“选中全行―》剪切 -》移动鼠标-》换行-》粘贴”告别了。

(local-set-key [(meta up)] 'move-line-up)

(local-set-key [(meta down)] 'move-line-down)

(defun move-line (&optional n)

"Move current line N (1) lines up/down leaving point in place."

(interactive "p")

(when (null n)

(setq n 1))

(let ((col (current-column)))

(beginning-of-line)

(next-line 1)

(transpose-lines n)

(previous-line 1)

(forward-char col)))

(defun move-line-up (n)

"Moves current line N (1) lines up leaving point in place."

(interactive "p")

(move-line (if (null n) -1 (- n))))

(defun move-line-down (n)

"Moves current line N (1) lines down leaving point in place."

(interactive "p")

(move-line (if (null n) 1 n)))

换行对齐

这个看似简单功能太有用了!!!不知道省了多少无谓的光标移动。很多时候,我们修改了一行语句后,想立刻跳到下一行,并且光标自动移到正确缩进的位置。在普通的编辑器里,换行前光标得移动到行尾,然后我们再敲下ENTER。Vi里CTRL-o解决了这个问题,让我们在一行的任何地方换到下一行,自动缩进,而不用担心把上一行分成两半。而Emacs有了下面的配置,也就支持CTRL-o了。够强大吧?

(local-set-key [(control o)] 'vi-open-next-line)

(defun vi-open-next-line (arg)

"Move to the next line (like vi) and then opens a line."

(interactive "p")

(end-of-line)

(open-line arg)

(next-line 1)

(indent-according-to-mode))

括号匹配

也是从Vi来的酷功能。当光标在括号上是,输入%光标自动跳到匹配的另一个括号上。

(local-set-key "%" 'match-paren)

(defun match-paren (arg)

"Go to the matching parenthesis if on parenthesis otherwise insert %."

(interactive "p")

(cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))

((looking-at "\\s\)") (forward-char 1) (backward-list 1))

(t (self-insert-command (or arg 1)))))

拷贝当前行

很多时候我们想把光标所在的整行语句放到kill-ring(Windows下的剪贴板)里。但选取整行,CTRL-W还是太烦琐。SlickEdit里,如果没有任何区域被选中,COPY命令会自动拷贝光标所在的整行,CUT则剪取光标所在地整行。Emacs下可以这么做:

(defadvice kill-ring-save (before slickcopy activate compile)

"When called interactively with no active region, copy a single line instead."

(interactive

(if mark-active (list (region-beginning) (region-end))

(list (line-beginning-position)

(line-beginning-position 2)))))

(defadvice kill-region (before slickcut activate compile)

"When called interactively with no active region, kill a single line instead."

(interactive

(if mark-active (list (region-beginning) (region-end))

(list (line-beginning-position)

(line-beginning-position 2)))))

查看本文来源

宝宝发烧40度怎么办
宝宝吸收不好的症状
儿童中暑怎么办
三岁宝宝不爱吃饭是什么原因
猜你会喜欢的
猜你会喜欢的