Emacs组织模式:重复DEADLINE时清除非重复的SCHEDULED时间

时间:2013-08-08 10:42:30

标签: emacs org-mode

我使用org-mode来管理重复任务的截止日期。例如,我可能会有以下内容:

* TODO My Weekly Task
  DEADLINE <2013-08-10 Sat +1w>

如果我将任务标记为DONE,则截止日期会自动按预期增加到下一周。但是,我也想使用SCHEDULED时间来表明我想在一周内实际执行该任务的时间,例如:

* TODO My Weekly Task
  DEADLINE <2013-08-10 Sat +1w> SCHEDULED: <2013-08-08 Thu>

这使任务显示在今天(星期四)的议程中。但是,当我将任务标记为DONE时,我最终会得到以下结果:

* TODO My Weekly Task
  DEADLINE <2013-08-17 Sat +1w> SCHEDULED: <2013-08-08 Thu>

...而且仍然的任务出现在今天的议程视图中,即使它已经完成。

对于具有重复DEADLINE的任务,是否有可能让Org-Mode清除非重复的SCHEDULED日期?

1 个答案:

答案 0 :(得分:5)

这是补丁,如果你想自己应用它。 我将另一份副本发送到组织模式邮件列表。

--- a/lisp/org.el
+++ b/lisp/org.el
@@ -12835,7 +12835,8 @@ This function is run automatically after each state change to a DONE state."
    (setq type (if (match-end 1) org-scheduled-string
             (if (match-end 3) org-deadline-string "Plain:"))
          ts (match-string (if (match-end 2) 2 (if (match-end 4) 4 0))))
-   (when (string-match "\\([.+]\\)?\\(\\+[0-9]+\\)\\([hdwmy]\\)" ts)
+   (if (not (string-match "\\([.+]\\)?\\(\\+[0-9]+\\)\\([hdwmy]\\)" ts))
+       (org-remove-timestamp-with-keyword org-scheduled-string)
      (setq n (string-to-number (match-string 2 ts))
        what (match-string 3 ts))
      (if (equal what "w") (setq n (* n 7) what "d"))