找到了个2012年的cnblogs的方案。

运行时，报了这两个错：

  • Symbol’s function definition is void: find-if
    • 解决方法：把find-if改成cl-find-if即可。
  • 解决方法：Symbol’s function definition is void: s-trim
    • 解决方法：安装字符串处理包s（M-x package-install RET s RET）。

最后另外魔改了一下，变成了这样。

后记：后来发现了个star更多的2016年的cnblogs方案，但懒得折腾了……