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

Question

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

创建时间戳时是否可以根据现有工作量估计属性生成时间范围？这意味着，当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 作为范围添加到现有时间戳，请使用标准 effort 格式(例如，“0 0:10 0:30 1:00 2:00 3:00 4:00") [参见 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 使用以下示例任务进行了测试 - 未使用h 或 m 表示努力。 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)) )))