apache 微软 linux mysql php java centos Firefox linux命令 开源 程序员 Ubuntu google Windows Android wordpress nginx Python HTML5 shell

Emacs 小技巧:根据主模式加载配置

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* ……

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

延伸阅读

评论