在 Emacs 下,您可以将任何事件外挂 (hook) 任何的动作(像是打开一个文档,储存,或执行一个新的模式,等等)。
您也可以利用 autoinsert 程序库来执行一些特别的动作:当您在 Emacs 下开新文档时,这个程序库就会根据文档的属性来插入相符的标准页首。
就我们的情形,这标准页首就是我们说明文件型态 (LinuxDoc),标题,作者,及日期的地方。
接下来我会描述两个如何插入这种页首的方法。您可以插入一个含有相关信息的模板 (template) 文档,或者您也可以跑一跑 elisp 程序。
当您开启一份文档时,首先您必须告诉 Emacs 执行自动插入
,然后再读取 autoinsert 程序库的资料来宣告我们要改变的 auto-insert-alist
表单。这表单定义了不同文档型态所要插入的页首。它的预设值是要插入的文档必须在 ~/insert/
目录下,但如果您要重新定义其 auto-insert-directory
也是可行的。
每一次您开启一份新的 SGML 文档时,只要在 .emacs
文档内加入下列指示,您就可以插入 ~/emacs/sgml-insert.sgml
档:
(add-hook 'find-file-hooks 'auto-insert) (load-library "autoinsert") (setq auto-insert-directory "~/emacs/") (setq auto-insert-alist (append '((sgml-mode . "sgml-insert.sgml")) auto-insert-alist))
那您就可以在 ~/emacs/sgml-insert.sgml
档写入您自订的页首,然后再重新执行 Emacs 来开启某一 foobar.sgml
文档,之后 Emacs 会询问您确认这自动插入的指令来插入您要的页首。
这方法跟上述大同小异,但不同的是您必须设定 auto-insert-alist
表单,告诉它要插入的是一个执行程序,而非一个文档。只要在 .emacs
文档内加入下列指示,就可以自动执行,不过当然您得先把这程序写在一个叫做 ~/emacs/sgml-header.el
的文档里才可以。(鉴于这函式可能会过长,您不需要将它放在 .emacs
文档里):
(add-hook 'find-file-hooks 'auto-insert) (load-library "autoinsert") (add-to-list 'load-path "~/emacs") (load-library "sgml-header") (setq auto-insert-alist (append '(((sgml-mode . "SGML Mode") . insert-sgml-header)) auto-insert-alist))
您可以参考
附录里有关 Insert-sgml-header
程序的例子。