在主要议程视图中按优先级排序今天的习惯

Question

我希望在主要议程视图中优先考虑今天的习惯。我还没有办法做到这一点。以下是我在custom.el中得到的内容（其他一切都是我想要的，但优先级下降似乎并没有像我期望的那样对待习惯：A＆＃39;在B＆＃之前39;在C＆C之前：

 '(org-agenda-sorting-strategy
   (quote
    ((agenda time-up habit-up priority-down category-keep)
     (todo priority-down category-keep)
     (tags priority-down category-keep)
     (search category-keep))))

Answer 1

结果org-habit-get-priority由org-agenda.el中的org-agenda-get-scheduled调用。我复制org-agenda-get-scheduled并通过一个小改动覆盖它：

        'priority (+ 94 (- 5 diff) (org-get-priority txt)) ;; (if habitp
            ;;   (org-habit-get-priority habitp)
            ;; (+ 94 (- 5 diff) (org-get-priority txt)))

和瞧。如果org-habit-get-priority是我们可以提供的可插入函数，那将是很好的，如果我们没有，它将使用提供的默认值。