org-mode：工作量估计的创建时间范围

Question

我不想在类似 GTD 的系统中使用 org-mode，而是将其用作计划器/调度器，在捕获或重新归档时对每个捕获的任务进行调度/时间戳记。在这样的系统中，根据完成任务所需的估计持续时间，包括特定时间框架的一天的详细计划可能是有利的。

是否可以在创建时间戳时从现有的工作量估算属性生成时间范围？这意味着，当 a) 调度被调用并且 b) 我不仅输入日期而且输入时间并且 c) 存在努力属性时，该时间将根据所述属性自动转换为时间范围。

关于如何实现这一点的一些提示已经绰绰有余，我只是不知道足够多的 elisp 来开始。

编辑

在我的 refile.org 中捕获任务后将如下所示：

* TODO Sample todo
 :PROPERTIES:
 :Effort:   1h
 :END:

现在在重新提交时，我会查看它并决定我会这样做，比如说，在 周五上午 10 点：

* TODO Sample todo
  SCHEDULED: <2014-04-18 Fr 10:00>
  :PROPERTIES:
  :Effort:   1h
  :END:

现在可以调用的函数会自动加一个时间 根据工作量估算的范围：

* TODO Sample todo
 SCHEDULED: <2014-04-18 Fr 10:00-11:00>
 :PROPERTIES:
 :Effort:   1h
 :END:

编辑2

请参阅下面的法律列表接受的答案以获得可靠的解决方案

Answer 1

要添加计划的时间戳，请使用：M-x org-schedule

使用标准effort 格式（例如，“0 0:10 0:30 1:00 2:00 3:00 4:00”）将effort 作为范围添加到现有时间戳中[参见http://orgmode.org/manual/Filtering_002flimiting-agenda-items.html ]，下面的函数应该可以完成这项工作。 注意 org-mode 版本 7 使用全部小写的 org-element-property 属性抽屉，而 org-mode 版本 8 使用全部大写 - 例如，(org-element-property :EFFORT (org-element-at-point))

---

org-schedule-effort 使用以下示例任务在 org-mode 版本 8.2.5.c 中进行了测试 -- not 使用 h 或 m 用于 effort。 Emacs 将00 01 02 03 04 05 06 07 08 09 舍入到0 1 2 3 4 5 6 7 8 9 并且时间戳格式需要前者——因此，如果小于 10，我们需要将0 连接到开头。

* TODO Sample todo
  SCHEDULED: <2014-04-18 Fr 10:00>
  :PROPERTIES:
  :Effort:  1:15
  :END:

---

(defun org-schedule-effort ()
(interactive)
  (save-excursion
    (org-back-to-heading t)
    (let* (
        (element (org-element-at-point))
        (effort (org-element-property :EFFORT element))
        (scheduled (org-element-property :scheduled element))
        (ts-year-start (org-element-property :year-start scheduled))
        (ts-month-start (org-element-property :month-start scheduled))
        (ts-day-start (org-element-property :day-start scheduled))
        (ts-hour-start (org-element-property :hour-start scheduled))
        (ts-minute-start (org-element-property :minute-start scheduled)) )
      (org-schedule nil (concat
        (format "%s" ts-year-start)
        "-"
        (if (< ts-month-start 10)
          (concat "0" (format "%s" ts-month-start))
          (format "%s" ts-month-start))
        "-"
        (if (< ts-day-start 10)
          (concat "0" (format "%s" ts-day-start))
          (format "%s" ts-day-start))
        " "
        (if (< ts-hour-start 10)
          (concat "0" (format "%s" ts-hour-start))
          (format "%s" ts-hour-start))
        ":"
        (if (< ts-minute-start 10)
          (concat "0" (format "%s" ts-minute-start))
          (format "%s" ts-minute-start))
        "+"
        effort)) )))