《elisp 每日一练》——Indirect Buffer 前面我们了解了buffer、window相关的机制，并且学习了操作它们的一些api函数。现在我们继续更深入的探索有关buffer和window的内容。背景知识Indirect Buffer 就像它的名字一样是一个间接的东西，它的本源是原始的buffer，但是它却拥有独立的buffer状态，像point、marker、narrowing、major mode等等。它与真实buffer的关系让我想起七龙珠中的天神和比克大魔王，二者本是是同源，因为天神剥离邪恶人格而诞生比克大魔王，二者虽然同源但是有不同的行为、不同的性格。二者一个的死亡也会牵扯到另一个。Indirect Buffer 就是从源buffer中诞生出来的，并且Indirect Buffer 内容的变化会影响到源buffer。在Emacs 中创建 Indirect Buffer 的方法是 make-indirect-buffer(make-indirect-buffer BUFFER NAME &optional CLONE)参数中的 BUFFER 表示源buffer对象，而 NAME 是 Indirect Buffer 的名称，CLONE 表示是否需要克隆当前buffer的状态。如果你想克隆这些状态，我们可以 clone-indirect-buffer 它会将当前buffer作为一个源buffer，创建一个新的 indirect buffer，并且将源buffer的一些状态信息拷贝到新的buffer中。另外，在引入indirect buffer 之后，我们获取到的buffer可能是 indirect buffer，如果我们想要获取源buffer可以使用 buffer-base-buffer。练习我们来实现一个小型的代码查看器，它会创建一个 indirect buffer 只显示用户选中区域，这样用户在新的buffer中修改也会直接同步到源buffer中(defun my/region-view-scratch() (interactive) (if (use-region-p) (let* ((begin (region-beginning)) (end (region-end)) (base-buffer (current-buffer)) (view-buffer-name (format "Indirect: %s" (buffer-name base-buffer))) (view-buffer (make-indirect-buffer base-buffer view-buffer-name t))) (pop-to-buffer view-buffer) (narrow-to-region begin end) (goto-char (point-min)))))小结本篇的内容到此就结束了，本篇我们介绍了 indirect buffer 的机制，本篇介绍的函数如下:make-indirect-bufferbuffer-base-bufferclone-indirect-buffer

《elisp 每日一练》——跨 Buffer 文本提取 在之前的文章中，我们通过with-current-buffer 和 buffer-substring 实现了一个从指定buffer中拷贝文本到本buffer的功能。这个算是我们入门了跨buffer操作。实际上Emacs为这种需求提供了专门的函数背景知识Emacs中的跨buffer文本操作的基础函数是 (insert-buffer-substring BUFFER &optional START END) 。它用于将参数中 BUFFER 指定的缓冲区中从 START 到 END 这个范围内的文本插入到当前缓冲区的光标所在位置。我们可以用下面的代码感受一下(defun my/copy-messages-buffer-to-this() (interactive) (let ((message-buffer (get-buffer "*Messages*"))) (when message-buffer (let ((start) (end)) (with-current-buffer message-buffer (save-restriction (widen) (setq start (point-min)) (setq end (point-max)))) (insert-buffer-substring message-buffer start end)))))因为 START 和 END 参数实际上是对应的是 BUFFER 中的范围。所以我们需要切入到对应的buffer中去获取这个坐标的最大和最小值。基于这个函数我们可以实现很多好用的跨buffer的文本操作，例如将当前buffer中的内容拷贝到目标buffer中，或者将目标buffer中的内容替换为我们想要的内容等等。因为各种跨buffer的文本操作实在是太频繁了，所以Emacs提供很多有用的函数，下面我列举一些常用的函数append-to-buffer: 从当前buffer中提取 START 和 END 范围内的文本并追加到参数 BUFFER 所指定的缓冲区的光标位置copy-to-buffer : 从当前 buffer 中提取 START 和 END 范围内的文本并对参数中 BUFFER 所指定的缓冲区进行替换上述这些函数提取的内容都带有文本属性，如果我们只想提取文本本身，可以使用 buffer-substring-no-properties 。查阅相关文档，我们发现 buffer-substring-no-properties 实际上对标的是 buffer-substring，都是提取当前buffer的文本，而不涉及到改变buffer。在跨buffer的函数中，只有 insert-buffer-substring 是使用底层C函数编写的代码，而其他两个都是依靠这个函数，在lisp层面实现的。所以说，关于跨buffer的文本操作，我们只需要掌握基本的 insert-buffer-substring 其他的函数我们可以自己实现。这有点像数学，上学的时候老师告诉我初中的几何只有三条基本公理，其他的定理和自己利用这三条推导出来。Emacs也是这样，只提供基本的功能，其余高级的功能可以自己利用基本函数实现出来。但是也提供了这些高级函数的官方实现。练习今天我们来实现一个日志收集的功能。我们将当前用户选中的行记录到一个名为 Log-Collection 的buffer中，该buffer平时不允许写入，只能通过调用特定的函数进行收集。如果用户选择并激活了一个区间，则提取区间的内容进行激活，否则提取当前所在行的文本。(defun my/collection-log() (interactive) (let ((log-buffer (get-buffer-create "*Log-Collection*")) (cur-buf (current-buffer)) (start) (end)) (if (use-region-p) ;; 激活了选区，则按照选取来决定范围 (progn (setq start (region-beginning)) (setq end (region-end))) ;; 未激活选取，则按照光标所在行来决定范围 (progn (setq start (line-beginning-position)) (setq end (line-end-position)))) (with-current-buffer log-buffer (let ((inhibit-read-only t)) (goto-char (point-max)) (insert-buffer-substring cur-buf start end)))))总结本节介绍的重点函数只有一个 insert-buffer-substring 因为功能导致它的参数比较割裂，BUFFER 是目标buffer、而START 和 END 对应着源buffer的位置。这也就意味着想要成功调用该函数，无论如何都得使用 with-current-buffer 进行buffer的切换，无法一步到位其余的函数我们可以自己实现，所以就不在这里列举了。

《elisp 每日一练》——显示buffer的新姿势 上一篇提到，可以使用 split-window 来创建新的窗口，也区分了buffer和窗口的概念，同时也知道如何获取、修改窗口展示的buffer。split-window 创建的窗口有一个特点：它需要我们自己指定新窗口的摆放位置，窗口位置由我们自己维护。一般情况下，在编程或者做工程化的项目时引入 workspace 的概念，我们规定如何划分窗口区间是有利的，但是有些窗口像 *Help*、*Messages* 、Shell 这类窗口我们经常看一眼或者临时需要打开，如果将它纳入自主的窗口管理就不合适了。本节我们来解决这个问题知识铺垫Emacs 中提供了两个函数 display-buffer 和 pop-to-buffer。我们先从 display-buffer 开始。它的函数原形为(display-buffer BUFFER-OR-NAME &optional ACTION FRAME)它会根据我们已有的窗口布局来选择合适的窗口显示对应的buffer内容，也就是说它不一定会创建新的窗口，它只是根据用户需求选择合适的窗口来显示。如果没有合适的则创建，有则利用已有的窗口来显示。我们可以通过 ACTION 参数来定义它的行为。它只负责显示buffer，而不会跳转光标，这种一般用于设置查看日志但是不操作buffer内容的场合。如果我们希望在显示buffer之后光标也跟着跳转，可以使用函数 pop-to-buffer。它们显示buffer的行为完全一样，但是 pop-to-buffer 会移动光标到新的buffer所所在窗口中。(pop-to-buffer BUFFER-OR-NAME &optional ACTION NORECORD)我们看到它的函数参数中，也有一个 ACTION 参数。我们可以通过这个参数来实现自定义显示行为。一个标准的ACTION是 '(FUNCTIONS . ALIST) 的结构。其中 FUNCTION 表示函数或者函数列表，Emacs 在显示时会Emacs 会从左到右依次尝试这些函数，直到其中有一个成功找到或创建了窗口为止。ALIST 是一个由 (属性 . 值) 构建的关联列表。用来微调上述函数执行时的行为（如窗口高度、分屏方向、是否专有等）。各位读者看到这些结构也不必惊慌，Emacs为我们提供了一些常用的通用封装。对于function来说，有以下常用的预定义函数:display-buffer-reuse-window : 重用已有窗口, 如果该 Buffer 已经在某个窗口显示了，直接使用该窗口。display-buffer-same-window : 占用当前窗口, 直接在当前光标所在的窗口中显示该 Buffer。display-buffer-pop-up-window : 切分新窗口, 根据 split-height-threshold 或 split-width-threshold 在周围切出一个新窗口。display-buffer-below-selected : 在下方切分, 在当前窗口的正下方新建或重用一个窗口。display-buffer-at-bottom : 底部全宽弹出, 在当前 Frame（或屏幕）的最底部创建一个跨越整宽的窗口。display-buffer-in-side-window : 侧边栏/侧边窗口, 在 Frame 的四周（left/right/top/bottom）作为 Sidebar 弹出（通常搭配专属属性）。display-buffer-pop-up-frame : 弹出新 Frame , 直接新建一个独立的 OS 窗口（Frame）。对于 ACTION 中的 ALIST 也有一些预定义的属性(window-height . N) : 设置弹出窗口的高度。整数（如 15）表示固定行数；浮点数（如 0.3）表示占当前/全屏高度的比例。(window-width . N) : 设置弹出窗口的宽度。整数表示列数；浮点数表示宽度比例。(side . left/right/top/bottom) : 指定侧边栏弹出的位置，可以与上述 display-buffer-in-side-window 搭配使用(slot . N) : 侧边栏的位置，用于同侧有多个窗口的情况，(reusable-frames . val) : 寻找可重用窗口时的范围：t（所有 Frame）、visible（所有可见 Frame）、0（当前及当前可见 Frame）、nil（仅当前 Frame）。(inhibit-same-window . t): 明确要求绝对不能占用当前窗口。(dedicated . t) : 将新创建的窗口标记为专有（Dedicated）。专有窗口在用户切换其他 Buffer 时不会被轻易替换。有了这些知识，我们可以对显示messages buffer给出简单的定义，例如我希望message buffer永远只出现在最底部，并且占用整个底部。就可以有下面的代码:(defun my/show-messages-buffer() (interactive) (display-buffer "*Messages*" ;; 底部全宽显示 '((display-buffer-at-bottom) ;;ALIST 参数， 高度为30，强制不覆盖当前窗口 (window-height 30) (inhibit-same-window . t))))实际上除了在 ACTION 参数中设置这些属性外，还可以通过全局变量 display-buffer-alist 来设置这里的 ACTION 参数。它与这里通过参数设置的方式相比，优势在于它可以通过正则表达式来匹配一次性定义一堆buffer的显示方式。它的数据结构为:((CONDITION . ACTION) (CONDITION . ACTION) ...)上一节我们提到，可以使用 quit-window 和 delete-window 删除窗口，但是没有讲它们的区别，因为那个时候还没有引入这种显示buffer的新姿势。现在有了这些知识就可以来说说它们的区别了。今天的新姿势对比之前来讲，最大的区别就是不一定要创建新窗口，它可以重用现在的窗口来显示新内容。quit-window 是一种温和的删除窗口的方式，对于这种重用的状态，它只是不显示新buffer的内容但是会酌情保留原来的窗口。而 delete-window 来说就比较不讲情面了，它不管你还需不需要用这个窗口，直接删除。练习今天的练习，我们来实现一个查看message、log这种buffer的功能，我们希望通过 display-buffer-alist 设置全局的，对于这种窗口我们采用底部显示的方式，取底部35%的区域进行显示。(add-to-list 'display-buffer-alist '("\\*.*\\(?:log\\|messages\\).*\\*" (display-buffer-reuse-window display-buffer-at-bottom);; 优先重用已打开的对应窗口；若未打开，则在当前 Frame 的最底部弹出 (window-height . 0.35) ;; 占用25%的空间 (reusable-frames . visible))) ;; 允许在当前可见的其他Frame中搜寻 (display-buffer "*Messages*")总结本篇我们了解了另一种通过window 显示buffer的方式，主要的函数有:display-bufferpop-to-buffer

《elisp 每日一练》——buffer属性 前面我们介绍了buffer相关的操作，主要有buffer的获取、创建、删除、设置当前buffer。我们再最开始的时候为了方便理解buffer的概念，让大家将它类比成 char* const 类型，主要用来保存文本数据的缓冲。这条对也不对，buffer是Emacs维护的一个复杂的结构，可不单单是有个缓冲区的指针那么简单。它除了保存了文本的缓冲，也有各种属性。本篇我们将来介绍一些常用的属性背景知识铺垫首先是buffer的名称。我们在创建的时候都会给一个名称，后续也可以根据名称来获取buffer对象。可以说名称似乎就是获取buffer的 primary key。获取名称可以使用 buffer-name ，而修改名称可以使用 rename-buffer。rename-buffer 有一个名为 UNIQUE的可选参数，表示是否允许名称重复，如果允许的话，在重名的情况下会在buffer名称后加上数字后缀，如果不允许也就是值为 nil 的时候，给出重复名称时会报错。buffer-name 可以传入buffer 对象来获取不同buffer的名称，而 rename-buffer 只能修改当前buffer的名称。第二个属性是它关联的文件。一般来讲如果我们希望修改的内容能持久化的保存，需要将buffer与磁盘上的物理文件关联，并在Emacs退出前进行保存。buffer-file-name 可以帮助我们获取当前buffer关联的文件的物理路径。如果我们要修改/设置某个buffer关联的物理文件，可以使用 set-visited-file-name。第三个属性是修改状态。当Emacs打开一个文件时，会将文件的内容加载到buffer中，并将二者进行关联。此时buffer处于未修改或者说干净的状态。如果我们执行操作修改了文件内容，那么此时buffer会变成修改但未保存到文件的状态，或者说是脏页状态。我们手动执行保存操作之后buffer又会恢复干净的状态。如果我们关闭Emacs时，Emacs默认会遍历当前打开的buffer，对于哪些处于修改状态的buffer会弹出提示框询问我们是否需要保存。但是对于那些没有关联到文件上的则省去了询问的过程。我们可以通过 buffer-modified-p 来查看当前buffer 是否被修改了。也可以通过 set-buffer-modified-p 来设置它的状态。第四个属性是只读属性。如果尝试修改它会报错。我们可以通过 buffer-read-only 这个变量来确定当前buffer是否是只读的。例如我们可以写一个简单的函数来判断指定buffer是只读状态(defun my/buffer-read-only-p (bname) (interactive "B输入对应的buffer:") (let ((buffer (get-buffer bname))) (if buffer (with-current-buffer buffer (if buffer-read-only (message "buffer %s 是只读的" bname) (message "buffer %s 不是只读" bname))) (message "未找到指定名称的buffer"))))我们可以通过设置当前buffer的 inhibit-read-only 变量为t来临时的取消buffer的只读状态，例如我们可以尝试通过以下代码清空 Messages buffer(defun my/clear-messages-buffer() (interactive) (let ((message-buffer (get-buffer "*Messages*"))) (if message-buffer (with-current-buffer message-buffer (let ((inhibit-read-only t)) (erase-buffer))))))请注意我们这里使用的是 let 设置的变量值，而没有使用 setq。我们这里实际上创建的是同名的临时变量，用临时变量覆盖了buffer的“全局变量”。在临时变量存在的时候Emacs读取的是这个临时变量的值，此举会短暂性的将buffer修改为可写状态。在代码跳出let的作用域之后临时变量被销毁，inhibit-read-only 又恢复了初始值。而setq 就达不到这个效果。在 Emacs Lisp 官方开发规范中，临时修改只读 Buffer 最标准的做法就是利用 let 绑定 inhibit-read-only练习有了这些基础，我们可以写一个批量保存的小工具。我们可以遍历当前所有打开的buffer，判断buffer是否是修改状态，如果被修改并且绑定到了具体的物理文件则执行保存操作。保存buffer到文件可以使用 save-buffer 函数(defun my/save-all-buffers() (interactive) (dolist (buffer (buffer-list)) (with-current-buffer buffer (when (and (buffer-modified-p) (buffer-file-name)) (save-buffer)))))总结本篇我们介绍了，Emacs中关于buffer的一些常用属性，以及修改它们的函数或者变量。下面我将其列举出来buffer-name 和 rename-bufferbuffer-file-name 和 set-visited-file-namebuffer-modified-p 和 set-buffer-modified-pbuffer-read-only 和 inhibit-read-only

《elisp 每日一练》——buffer 操作 在前面关于buffer 的介绍中，我们都是在操作当前buffer。但是Emacs里面有许多buffer，同时也允许我们创建不同的buffer。本篇我们将进入buffer操作的环节。看看如何在Emacs中管理buffer。背景知识buffer的操作与文本操作类似，无外乎也就是增删改查四个大的内容。我们按照这个顺序来介绍。首先是buffer的创建，可以使用 get-buffer-create 来完成，它接收一个buffer 名称的字符串作为参数，如果当前名称的buffer已经存在则直接获取该buffer的对象，否则创建一个新的buffer。如果我们无论如何都要创建新buffer，而不管名称是否存在，可以使用 generate-new-buffer，该函数会无条件的创建新的buffer，如果当前名称的buffer已经存在，它会创建一个带数字后缀名称的新buffer。而如果我们仅仅获取已经存在的buffer，可以通过函数 get-buffer，当buffer不存在时会返回nil删除一个buffer 可以使用 kill-buffer，它接收一个buffer对象或者buffer名称的字符串作为参数，来删除一个buffer。修改buffer，实际上我个人认为分成两个层面，一个是修改buffer的内容，也就是前面我们提到的goto-char、delete-region 之类的文本操作。而另一个就是修改buffer的属性。其中有一个就是修改当前buffer，在这个层面可以使用函数 set-buffer。这里可能要稍微补充一下什么是当前缓冲，用面向对象的角度来讲，我们调用操作对象的方法总的有一个被操作的对象，而C/C++ 中这个对象实际上通过类函数中的this 指针进行绑定。而我们调用 goto-char、insert、delete-region 等函数，操作的是当前buffer，如果我们希望这些函数操作另外的buffer，那么就需要通过 set-buffer 修改默认buffer。一般来讲，我们通过 set-buffer 切换到别的buffer中进行操作实际上是一个临时性的动作，因为用户此时的注意力完全在当前显示的buffer上，我们只会短暂的切换，而后续又会切换回来。因此这里涉及到一个关于buffer的保存和恢复现场的概念。保存和恢复buffer的现场，用的是 with-current-buffer。witch-current-buffer 会切换到一个已存在的buffer，而事后并不会主动清理无效的buffer。也是说我们在使用前要先确保当前buffer存在，然后使用。但是有时候我们仅仅只需要一个临时的buffer，用后直接删除，此时可以使用 with-temp-buffer到此为止我们已经有4个保存和恢复现场的函数了。我们一般的顺序是 with-current-buffer、save-excursion、save-restriction，至于 save-match-data ，用的不如前面一个广泛。查询buffer，我们可以通过 buffer-name 获取指定buffer的名称，它接收一个buffer对象，或者默认获取当前buffer的名称。我们也可以通过 buffer-list 来获取所有buffer 的列表。最后我们判断一个buffer是否有效时可以使用 buffer-live-p练习buffer的内容可能没有之前介绍文本操作时那么详细，因为我觉得buffer比较简单，实际上我们只要理解buffer是Emacs存放文本的一个内存缓冲区，我们的这些操作实际上就是在修改保留这块内存的变量的属性。而且如果读者对一些文本编辑器有一定的了解，会发现大多数文本编辑器都有buffer的概念。本次的练习我们来尝试将用户选定的buffer中的文本拷贝到当前buffer最后面。它经历的流程如下：通过交互式命令让用户输入对应的buffer名称通过名称获取buffer对象，如果对象不存在则输出错误信息切换当前buffer直接通过 buffer-substring 获取整个buffer的拷贝切换回当前buffer调用insert插入对应的文本最终我实现的代码如下:(defun my/append-string-to-buffer(bname) (interactive "B您要拷贝哪个buffer的内容:") (let ((src-buffer (get-buffer bname))) (if src-buffer ;; buffer有效 (let (src-string) (with-current-buffer src-buffer (save-restriction (widen) (setq src-string (buffer-substring (point-min) (point-max))))) (push-mark) (goto-char (point-max)) (newline) (insert src-string)) (message "无效的buffer名称"))))当前例子中的代码还是有一些问题的，例如我们没有判断当前所在的buffer是否是只读类型的。只读类型只是buffer的一个属性，关于buffer中的相关属性将在后面的内容进行讨论。本篇我们介绍的函数如下:get-buffer-creategenerate-new-bufferget-bufferkill-bufferset-bufferwith-current-bufferwith-temp-bufferbuffer-namebuffer-listbuffer-live-p