;; ;;; 提醒

;; (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);在状态栏显示时间（分钟）

第一种方法：

(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 )

  (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  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 just a test

 <-- 六 :>