2020-03-01emacs 中使用LISP

Elisp 基础

X分钟速成elisp

Common Lisp 里的一些基本概念

C-j

计算当前光标到行首之间函数式结果，插入正文内容，结果内容最多只显示2行，后面用省略号，What！！

使用C-0 C-j能把结果内容显示全。

eval-expression-print-levelandeval-expression-print-length用来控制内容显示的长度。

C-x C-e

计算当前光标到行首之间函数式结果，显示在mini-buffer里。

Emacs Lisp 是一个函数式的语言。

*scratch*buffer

C-x 方向键切换到*scratch*buffer ， 可以在其中测试 elisp 语句。

这个buffer是 lisp-interaction-mode 。

光标移动到函数式后，按下C-j或者C-x C-e，就可以执行函数式计算。

基本写法，如何测试

(+ 3 (+ 1 2))

          ^ 光标放到这里

按下`C-j' 就会输出 6

`C-j' 会在buffer中插入当前运算的结果

而`C-xC-e' 则会在emacs最底部显示结果，也就是被称作"minibuffer"的区域

为了避免把我们的buffer填满无用的结果，我们以后会一直用`C-x C-e'

变量

setq设置当前缓冲区（Buffer）中的变量值

setq-default设 置的为全局的变量的值

`setq' 可以将一个值赋给一个变量

(setq my-name "Bastien")

`C-x C-e' 输出 "Bastien" (在 mini-buffer 中显示)

定义变量

(setq name "username")

(message name) ->"username"

1

2

设置光标样式

(setq-default cursor-type 'bar)

quote 单引号

https://www.gnu.org/software/emacs/manual/html_node/elisp/Quoting.html

http://stackoverflow.com/questions/134887/when-to-use-quote-in-lisp

1

2

3

下面两行的效果完全相同的

(quote foo)

'foo

quote 的意思是不要执行后面的内容，返回它原本的内容

1

2

(print '(+ 1 1)) ->(+ 1 1)

(print (+ 1 1))  ->2

列表

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

我们将一些名字存到列表中：

(setq list-of-names '("Sarah" "Chloe" "Mathilde"))

用 `car'来取得第一个名字：

(car list-of-names)

用 `cdr'取得剩下的名字:

(cdr list-of-names)

用 `push'把名字添加到列表的开头:

(push "Stephanie" list-of-names)

注意: `car' 和 `cdr' 并不修改列表本身, 但是 `push' 却会对列表本身进行 *** 作.

这个区别是很重要的: 有些函数没有任何副作用（比如`car'）

但还有一些却是有的 (比如 `push').

循环

http://www.gnu.org/software/emacs/manual/html_mono/cl.html#Loop-Facility

loop for ... in来自 cl 即 Common Lisp 扩展。

1

2

cl - Common Lisp Extension

(require 'cl)

for , in, collect 均为 cl-loop 中的 保留关键字。下面是一些简单的 cl-loop 的使用示例：

1

2

3

4

5

6

7

8

9

遍历每一个缓冲区（Buffer）

(cl-loop for buf in (buffer-list)

  collect (buffer-file-name buf))

寻找 729 的平方根（设置最大为 100 为了防止无限循环）

(cl-loop for x from 1 to 100

  for y = (* x x)

  until (>= y 729)

  finally return (list x (= y 729)))

mapcar

1

2

3

4

5

6

7

8

9

10

11

我们来对`list-of-names'列表中的每一个元素都使用hello函数:

(mapcar 'hello list-of-names)

将 `greeting' 改进，使的我们能够对`list-of-names'中的所有名字执行:

(defun greeting ()

    (switch-to-buffer-other-window "*test*")

    (erase-buffer)

    (mapcar 'hello list-of-names)

    (other-window 1))

(greeting)

while 循环

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

(defun replace-hello-by-bonjour ()

    (switch-to-buffer-other-window "*test*")

    (goto-char (point-min))

    (while (search-forward "Hello")

      (replace-match "Bonjour"))

    (other-window 1))

(goto-char (point-min)) 将光标移到buffer的开始

(search-forward "Hello") 查找字符串"Hello"

(while x y) 当x返回某个值时执行y这个s式

当x返回`nil' (空), 退出循环

(replace-hello-by-bonjour)

你会看到所有在*test* buffer中出现的"Hello"字样都被换成了"Bonjour"

你也会得到以下错误提示: "Search failed: Hello".

如果要避免这个错误, 你需要告诉 `search-forward' 这个命令是否在

buffer的某个地方停止查找, 并且在什么都没找到时是否应该不给出错误提示

(search-forward "Hello" nil t) 可以达到这个要求:

`nil' 参数的意思是 : 查找并不限于某个范围内

`t' 参数的意思是: 当什么都没找到时，不给出错误提示

defun

1

2

3

4

5

6

7

8

9

10

11

12

13

你可以把s式嵌入函数中

(defun hello () (insert "Hello, I am " my-name))

`C-xC-e' 输出 hello

现在执行这个函数

(hello)

`C-xC-e' 输出 Hello, I am Bastien

带参数的函数定义

(defun hello (name) (insert "Hello " name))

`C-xC-e' 输出 hello

(hello "you")

`C-xC-e' 输出 "Hello you"

progn

1

2

3

4

5

你可以用 `progn'命令将s式结合起来:

(progn

  (switch-to-buffer-other-window "*test*")

  (hello "you"))

`C-xC-e' 此时屏幕分为两个窗口，并且在*test* buffer中显示"Hello you"

let

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

你可以用 `let' 将一个值和一个局部变量绑定:

(let ((local-name "you"))

  (switch-to-buffer-other-window "*test*")

  (erase-buffer)

  (hello local-name)

  (other-window 1))

我们再用`let'新建另一个函数:

(defun greeting (name)

  (let ((your-name "Bastien"))

    (insert (format "Hello %s!nnI am %s."

                    name      the argument of the function

                    your-name  the let-bound variable "Bastien"

                    ))))

之后执行:

(greeting "you")

交互命令 read-from-minibuffer

1

2

3

4

5

6

7

8

9

10

11

12

13

14

有些函数可以和用户交互:

(read-from-minibuffer "Enter your name: ")

这个函数会返回在执行时用户输入的信息

现在我们让`greeting'函数显示你的名字:

(defun greeting (from-name)

  (let ((your-name (read-from-minibuffer "Enter your name: ")))

    (insert (format "Hello!nnI am %s and you are %s."

                    from-name the argument of the function

                    your-name the let-bound var, entered at prompt

                    ))))

(greeting "Bastien")

lisp *** 作 emacs

switch-to-buffer-other-window

1

2

3

4

5

6

7

下面我们在新的窗口中新建一个名为 "*test*" 的buffer:

(switch-to-buffer-other-window "*test*")

`C-xC-e' 这时屏幕上会显示两个窗口，而光标此时位于*test* buffer内

用鼠标单击上面的buffer就会使光标移回。

或者你可以使用 `C-xo' 使得光标跳到另一个窗口中

(goto-char (point-min)) 将光标移到buffer的开始

(search-forward “Hello”) 查找字符串”Hello”

global-set-key 设置快捷键

1

2

设置快捷键

(global-set-key (kbd "<f1>") 'func-name)

其他lisp语法

insert

1

2

3

4

5

6

7

8

9

10

`insert' 会在光标处插入字符串:

(insert "Hello!")

`C-xC-e' 输出 "Hello!"

(insert "Hello" " world!")

`C-xC-e' 输出 "Hello world!"

你也可以用变量名来代替字符串

(insert "Hello, I am " my-name)

`C-xC-e' 输出 "Hello, I am Bastien"

format

1

2

3

4

5

格式化字符串的方法：

(format "Hello %s!n" "visitor")

(defun hello (name)

  (insert (format "Hello %s!n" name)))

这些工具手动加载后就可以执行，但在日常工作中每次启动cad的时候都要重新加载，挺麻烦的，怎么才能在启动 cad软件的时候把自己常用的插件自动加载进来?下面我们就来为大家介绍几种方法。方法1：添加到启动组CAD的工具插件都可以通过appload(ap)命令来加载，在d出的“加载\卸载应用程序”对话框中，可以找到“启动组”。不同CAD不一样，AutoCAD是在“启动组”下面有一个“内容”按钮，点击此按钮就可以需要启动时自动加载的程序加进去浩辰CAD有一个“添加到启动组”按钮，可以将“历史记录列表”中加载过的程序添加到启动组中。添加到启动组后，下次启动CAD的时候这些程序就会自动加载。

这种方式比较简单易行，适合大多数人使用。

方法2：在启动的lisp文件加入LOAD语句。

无论是AutoCAD还是浩辰CAD等国产CAD，启动时都会有一个自动加载的LISP程序，AutoCAD加载的是acad.lsp或acadxxxx.lisp(xxxx为版本号)，acaddoc.lsp等(通常在AutoCAD的support目录下)，很多CAD病毒正是利用了这一点来加载从而影响CAD的应用浩辰CAD等自动加载的LSP名为icadautoload.lsp，在安装的根目录下。

需要做的就是用记事本打开这些LSP，在里面加上类似下面的语句：

(LOAD x:\\xxxxx\\sp2pl.lsp)

因此如果遇到AutoCAD莫名奇妙出现不正常状态，你可以搜索所有acad*.lsp，看看在图纸所在目录是否有此类文件，是否有多个相同大小的此类LSP，如果有，删除掉后可以看看CAD是否恢复正常。如果有兴趣可以用记事本打开看看，到底这些CAD病毒做了什么手脚。当然现在CAD病毒也有变种成acad*.vlx或acad*.fas的，这些文件就没法打开看了，如果有此类文件，建议直接删除。

---