如何用org-element解析匹配特定标签/属性的Org-mode标题？

实现思路 #

不用修改org-element-parse-headline，直接解析整个缓冲区的org-element结构，递归遍历所有标题并筛选带:body:标签的，再提取对应内容统计字数。核心是利用org-element-map遍历标题元素，结合标签属性判断，最后处理内容文本。

完整函数代码 #

(defun org-stat-body-tag-word-count ()
  "统计当前Org缓冲区中所有带:body:标签的标题对应内容的字数总和。"
  (interactive)
  (let* ((parse-tree (org-element-parse-buffer))
         (target-tag ":body:")
         (total-words 0))
    ;; 遍历所有标题元素
    (org-element-map parse-tree 'headline
      (lambda (headline)
        ;; 检查标题是否包含目标标签
        (when (member target-tag (org-element-property :tags headline))
          ;; 获取标题下的内容并转换为纯文本
          (let* ((contents (org-element-contents headline))
                 (text (org-element-interpret-data contents)))
            ;; 累加字数（count-words统计单词数，若需字符数可替换为(length (string-trim text))）
            (setq total-words (+ total-words (count-words text)))))))
    (message "带:body:标签的标题内容总字数：%d" total-words)
    total-words))

代码解释 #

• org-element-parse-buffer：将当前Org缓冲区完整解析为org-element抽象语法树，包含所有标题、内容、属性等结构信息。
• org-element-map parse-tree 'headline：递归遍历语法树，筛选出所有类型为headline的元素（即所有Org标题）。
• org-element-property :tags headline：获取当前标题的标签列表，每个标签以:标签名:格式存储，直接用member判断是否包含目标标签。
• org-element-contents headline：提取标题下属的所有内容元素（不包含标题本身的文本）。
• org-element-interpret-data：将org-element结构转换为纯文本，自动处理Org格式（如加粗、链接、列表等都会转为普通文本）。
• count-words：Emacs内置函数，统计文本中的单词数；如果需要统计字符数，可替换为(length (string-trim text))（string-trim用于去除前后空白）。

扩展：匹配标题属性而非标签 #

如果你的需求是匹配标题的自定义属性（比如标题下有:PROPERTY: :BODY: t :END:），只需修改标签判断部分：

;; 替换原有的标签判断代码
(let ((props (org-element-property :properties headline)))
  (when (equal (alist-get 'BODY props) t)
    ;; 后续内容处理逻辑不变
    ...))

内容的提问来源于stack exchange，提问作者matogoro