emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Orgmode] appointments


From: Carsten Dominik
Subject: Re: [Orgmode] appointments
Date: Wed, 16 Apr 2008 10:53:47 +0200

maybe you need to set the variable

org-agenda-skip-timestamp-if-done

Maybe we need to set it in the appt function by default? I guess that even if you
want DONE items show up in the agenda, to is relatively safe to assume
that you don't want to have reminders for them?  Bastien?

- Carsten

On Apr 15, 2008, at 7:54 PM, Richard G Riley wrote:


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





_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode





reply via email to

[Prev in Thread] Current Thread [Next in Thread]