组织模式：优先降级当前缓冲区中的所有项目

Question

有没有办法降级当前组织模式缓冲区中的所有项目？

我猜相关函数是

(org-priority-down)

，但我不确定如何递归地应用它。除非有更简单的方法

我的用例：有一个大的组织模式文件，我需要调整所有现有优先级，同时引入新的（更高）优先级任务。

---

更新：

作为临时解决方法，我使用了以下代码片段，但我仍在寻找更惯用的解决方案

(while (re-search-forward "#D" nil t) (replace-match "#E"))
(while (re-search-forward "#C" nil t) (replace-match "#D"))
(while (re-search-forward "#B" nil t) (replace-match "#C"))
(while (re-search-forward "#A" nil t) (replace-match "#B"))

Answer 1

使用映射 API：功能：org-map-entries

(org-map-entries #'org-priority-down t 'file)