共计 1156 个字符，预计需要花费 3 分钟才能阅读完成。
缘由
org-mode 是一个 Emacs 内置的 major mode，当打开一个后缀为.org 的文件时就会被启用。在官网的介绍中提到，它可以用于管理待办事项，而这也正是我目前使用 org-mode 最多的场合。比如，我用它来记录漫画的阅读进度，每一话或每一章就是一个标记了 TODO 关键字的条目，读完那一话或那一章后就会将对应的条目标记为 DONE。一般我会一周一次地归档自己标记为 DONE 的条目，但由于一次要处理的条目可能很多，逐一将它们归档比较繁琐，因此，便打算二次开发实现一个自动归档的功能。
需要事先声明的是，本文不是 org-mode 的入门教程，也不会讲解如何配置 org-mode。对这方面有兴趣的读者，可以自己搜索一番，资料还是相当丰富的。
菜谱
对于每一个被完成的单独的阅读任务，我的做法是将其 internal archive。等到一整本漫画都读完之后，再将整个以漫画名命名的条目归档到别的文件中去。要实现自动的 internal archive，最简单直接的办法是借助于 org-mode 提供的各种 hook。
org-mode 提供了许多的 hook，在官方的文档中有一一列举。其中，名为 org-after-todo-state-change-hook 的便是我所需要的钩子。只需往这个变量所绑定的列表中添加一个函数，那么这个函数便会在条目切换状态时（比如从 TODO 切换到 DONE）被 org-mode 调用。
最终的 ELisp 代码如下
(defun lt-archive-if-manga ()
(let ((state org-state))
(when (string= state “DONE”)
(let ((tags (org-get-tags-at)))
(when (member “ 漫画 ” tags)
(org-toggle-archive-tag))))))
(add-to-list ‘org-after-todo-state-change-hook ‘lt-archive-if-manga t)
稍微解释一下。从 C -h v org-after-todo-state-change-hook RET 的文档可以得知，条目的新状态可以通过变量 org-state 获取。取得新状态（是个字符串）后，首先检查其是否为 ”DONE”。如果是，再检查这个条目是否为一个阅读漫画的任务。
在我的用法中，凡是漫画条目，都打上了名为 ” 漫画 ” 的标签。因此，使用函数 org-get-tags-at 取得一个条目的所有标签（包括从父级条目继承下来的），再用 member 函数判断这些标签中是否包含字符串 ” 漫画 ”。如果有，就调用 org-toggle-archive-tag 将该条目 internal archive。
传给函数 add-to-list 的第三个参数 t 的作用，是让这个新加入钩子的函数最后被调用。
全文完
