From mboxrd@z Thu Jan  1 00:00:00 1970
From: Richard G Riley <rileyrgdev@googlemail.com>
Subject: appointments
Date: Tue, 15 Apr 2008 19:54:26 +0200
Message-ID: <r6k5izt359.fsf@richardriley.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1JlpMh-0006ct-At
	for emacs-orgmode@gnu.org; Tue, 15 Apr 2008 13:54:43 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1JlpMg-0006b3-9V
	for emacs-orgmode@gnu.org; Tue, 15 Apr 2008 13:54:42 -0400
Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1JlpMg-0006al-5Z
	for emacs-orgmode@gnu.org; Tue, 15 Apr 2008 13:54:42 -0400
Received: from fk-out-0910.google.com ([209.85.128.186])
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <rileyrgdev@googlemail.com>) id 1JlpMf-0000ER-HY
	for emacs-orgmode@gnu.org; Tue, 15 Apr 2008 13:54:41 -0400
Received: by fk-out-0910.google.com with SMTP id 26so2325587fkx.10
	for <emacs-orgmode@gnu.org>; Tue, 15 Apr 2008 10:54:30 -0700 (PDT)
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: org-mode <emacs-orgmode@gnu.org>


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