在组织模式下自动分配标记

Question

当标签已经在标题中存在时，我讨厌分配标签。我想找出一种方法让组织模式评估一个标题(最好是在我点击“enter”之后)，如果它包含与我的组织标签主义者中的标签相匹配的任何单词，那么就为标题创建这些标记。

例如：

如果我有不同的个人名称和不同的项目名称，甚至在我的组织标签作者中已经有“今天”、“明天”和“下周”这样的术语，那么，当我键入以下内容时：

"TODO记得明天问Joe XYZ项目的到期日期。“然后点击enter，就会对标题进行评估，并为项目生成标记:Joe:XYZ: for：。

有没有人见过这样的事，或有什么建议，我如何才能做到这一点？

Answer 1

该函数获取条目的标题(点为一个)，将其拆分为单词，并将它在org-tag-alist或org-tag-persistent-alist中找到的任何单词添加为标记。

(defun org-auto-tag ()
  (interactive)
  (let ((alltags (append org-tag-persistent-alist org-tag-alist))
        (headline-words (split-string (org-get-heading t t)))
        )
    (mapcar (lambda (word) (if (assoc word alltags)
                             (org-toggle-tag word 'on)))
            headline-words))
    )

将这样的函数添加到org-capture-before-finalize-hook中以自动标记新捕获的条目可能是有用的。