appointments

[Richard G Riley <rileyrgdev@googlemail.com>]

Hi,

I think this is probably a bug for default. Or is this because
"cancelled" isnt really a "finished" todo state? Using 6.0pre1 cancelled
appts are still being prompted. Here is the relative section from my
diary file (org file) and the code I use :

org file:

,----
| * Diary Entries
| ** CANCELED <2008-04-15 Tue 19:50> do this
|    CLOSED: [2008-04-15 Tue 19:46]
|    - State "CANCELED"   [2008-04-15 Tue 19:47]
|    - State "DONE"       [2008-04-15 Tue 19:46]
|    - State "WAIT"       [2008-04-15 Tue 19:46]
`----

code:

,----
| ;; Get appointments for today
| (defun my-org-agenda-to-appt ()
|   (interactive)
|   (setq appt-time-msg-list nil)
|   (let ((org-deadline-warning-days 0)) ;; will be automatic in org 5.23
|     (org-agenda-to-appt)))
| 
| ;; Run once, activate and schedule refresh
| (appt-activate t)
| 
| (my-org-agenda-to-appt)
| (appt-activate t)
| (run-at-time "24:01" nil 'my-org-agenda-to-appt)
| 
| 					; 5 minute warnings
| (setq appt-message-warning-time '15)
| (setq appt-display-interval '5)
| 
| 					; Update appt each time agenda opened.
| (add-hook 'org-finalize-agenda-hook 'my-org-agenda-to-appt)
| 
| 					; Setup zenify, we tell appt to use window, and replace default function
| (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)                      
|   (save-window-excursion (shell-command (concat 
| 					 "/usr/bin/zenity --info --title='Appointment' --text='" 
| 					 msg
| 					 "' &"
| 					 ) nil nil)
| 			 ))
`----