Org-mode 任务添加提醒

org-mode中的约会日程有提醒功能，这样设置就行：

;; ;;; 提醒
;; (require ‘appt)
;; (appt-activate t);启用约会提醒
;; (setq appt-display-format ‘window);提醒出现的方式
;; (setq appt-message-warning-time ‘5);在到期前5分钟提醒
;; (setq appt-display-duration ‘30);提醒持续时间（秒）
;; (setq appt-audible t)  ;声音提醒 -->没有响声!!？？？？？
;; (setq appt-display-mode-line t);在状态栏显示时间（分钟）

但是任务TODO却没有提醒功能。搜索很久发现这些：

第一种方法：
(require ‘appt)
(setq org-agenda-include-diary t)
(setq appt-time-msg-list nil)
(org-agenda-to-appt)

(defadvice  org-agenda-redo (after org-agenda-redo-add-appts)
  "Pressing `r‘ on the agenda will also add appointments."
  (progn
    (setq appt-time-msg-list nil)
    (org-agenda-to-appt)))

(ad-activate ‘org-agenda-redo)

(progn
  (appt-activate 1)
  (setq appt-display-format ‘window)
  (setq appt-disp-window-function (function my-appt-disp-window))
  (defun my-appt-disp-window (min-to-app new-time msg)
    (call-process "～/bin/popup.py" nil 0 nil min-to-app msg new-time)))
这种方法可以调用外部程序，更灵活些。要注意的是，添加完日期和时间后，记得要在org agenda的视图（C-c a a）中按 r（刷新日程，把刚添加的时间包含进来。）。

第二种方法：
(defun wl-org-agenda-to-appt ()
  ;; Dangerous!!!  This might remove entries added by `appt-add‘ manually.
  (org-agenda-to-appt t "TODO"))

(wl-org-agenda-to-appt)
(defadvice  org-agenda-redo (after org-agenda-redo-add-appts)
  "Pressing `r‘ on the agenda will also add appointments."
  (progn
    (let ((config (current-window-configuration)))
      (appt-check t)
      (set-window-configuration config))
    (wl-org-agenda-to-appt)))

(ad-activate ‘org-agenda-redo)
这种方法只是在emacs中的buffer上显示一个frame，在里面显示提示信息。

注意TODO的时间格式应该是这样：

** TODO just a test
 <2015-05-16 六 21:32>

可以按C-c . 选择日期和时间。

一定记得在Org Agenda里按 r

--End--