Emacs 小技巧：根据主模式加载配置,EMACS，即Edi


emacs是一种强大的文本编辑器，在程序员和其他以技术工作为主的计算机用户中广受欢迎。EMACS，即Editor MACroS（编辑器宏）的缩写，最初由Richard Stallman(理查德·马修·斯托曼)于1975年在MIT协同Guy Steele共同完成。这一创意的灵感来源于TECMAC和TMACS，它们是由Guy Steele、Dave Moon、Richard Greenblatt、Charles Frankston等人编写的宏文本编辑器。

很多人的配置文件，各种主模式的配置写在一起的，可能既有 c 又有 lisp 又有 js 什么的，其实大部分情况下你不会同时用那么多。

于是有了另一种方式，拆分到文件，每种模式用一个单独的文件。在主配置文件里写上 (load 'xxx)

但是这挺麻烦的，你要新建一个文件名为 xxx，然后主配置文件里又得写 load xxx，这显然是重复劳动……这是我最痛恨的……因为我一年级就上了好几次

于是我弄了一个文件夹，按顺序自动 load 里面的文件，当然不是随便 load，得符合条件才行。比如我设定的条件是扩展名为 el。

这样一来，不想 load 的文件改下扩展名就可以了……我还弄了一个函数，专门给文件添加/删除扩展名 .bak 但是时间长了也挺麻烦的，因为要手动改，而且下次才能生效…… 你还得自己 load-file

……其实一般情况下，这不是什么问题，你就是给每种模式写上几万行的配置，都写在一个文件里，对于现在的机器而言，压力也不是太大……但是咱追求的不是方便，而是折腾

好了，开始动手

(let (name
      (dir (expand-file-name "_major-mode/" *init-dir*)))
  (mapcar
   (lambda(x)
     (setq name
           (file-name-sans-extension (file-name-nondirectory x)))
     (add-hook  (concat-symbol name "-mode-hook")
               `(lambda()(load ,x))))
   (directory-files dir t "\.el\'")))

简单的说，假设 ~/init.emacs/_major-mode/ 目录下有 3 个文件 emacs-lisp.el nxml.el js2.el.bak ，则会：

在 emacs-lisp-mode-hook 里添加 (lambda nil (load "~/init.emacs/_major-mode/emacs-lisp.el"))

在 nxml-mode-hook 里添加 (lambda nil (load "~/init.emacs/_major-mode/nxml.el"))

里面用到的 concat-symbol

(defun concat-symbol (&rest lst)
  (read (apply 'concat (mapcar (lambda(x)(if (symbolp x) (symbol-name x) x)) lst))))

需要注意的是，这简直就是一个特大号的 hook ，所以不用在里面再写什么 add-hook 'xxx-mode-hook 了，里面所有的东西都相当于在 xxx-mode-hook 里。

如此一来，就产生了另一个问题，每打开一个 a.xxx 文件，xxx-mode-hook 就要运行一次，然后 load 一次，真二，实际上只要 load 一次就可以了。

这个问题可以用 require 来解决，但缺点是，你要在新建一个文件为 xxx.el ，还要在里面写 provide 'xxx ，并且还要把当前目录加到 load-path，重复劳动还是比较多。

另一种方案就是 load-once

(defmacro load-once (&rest s)
  (let* ((name (file-name-sans-extension
                (file-name-nondirectory
                 (or load-file-name (buffer-file-name)))))
         (a (concat-symbol "*load-once--" name "*")))
    `(if (boundp ',a)
         nil
       ,@s
       (setq ,a t))))

在 xxx.el 里面只运行一次的部分可以写在 load-once 里面，像这样

(load-once
 (foo)
 (bar)
)

基本上，你把所有内容都写在 load-once 里面就对了，不管这个文件被 load 了多少次，都只运行一次。

这种方法的缺点是，需要在文件开头和结尾分别写 (load-once 和 )，而 provide 只要写在一处；每种模式被 load 后，自动生成了一个值为 t 的变量 *load-once--xxx* 、*load-once--yyy* ……

所以，我觉得我有责任给你一个十分专业的建议：你自己看着办 我的配置文件

相关内容