(defvar bzg-org-clock-in-appt-delay 100
"Number of minutes for setting an appointment by clocking-in")
This function let's you add an appointment for the current entry.
This can be useful when you need a reminder.
(defun bzg-org-clock-in-add-appt (&optional n)
"Add an appointment for the Org entry at point in N minutes."
(interactive)
(save-excursion
(org-back-to-heading t)
(looking-at org-complex-heading-regexp)
(let* ((msg (match-string-no-properties 4))
(ct-time (decode-time))
(appt-min (+ (cadr ct-time)
(or n bzg-org-clock-in-appt-delay)))
(appt-time (progn (setf (cadr ct-time) appt-min) ct-time)))
(appt-add (format-time-string
"%H:%M" (apply 'encode-time appt-time)) msg)
(if (interactive-p) (message "New appointment for %s" msg)))))
You can advise org-clock-in so that C-c C-x C-i will automatically
add an appointment:
(defadvice org-clock-in (after org-clock-in-add-appt activate)
"Add an appointment when clocking a task in."
(bzg-org-clock-in-add-appt))
You may also want to delete the associated appointment when clocking
out. This function does this:
(defun bzg-org-clock-out-delete-appt nil
"When clocking out, delete any associated appointment."
(interactive)
(save-excursion
(org-back-to-heading t)
(looking-at org-complex-heading-regexp)
(let* ((msg (match-string-no-properties 4)))
(setq appt-time-msg-list
(delete nil
(mapcar
(lambda (appt)
(if (not (string-match (regexp-quote msg)
(cadr appt))) appt))
appt-time-msg-list)))
(appt-check))))
And here is the advice for org-clock-out (C-c C-x C-o)
(defadvice org-clock-out (before org-clock-out-delete-appt activate)
"Delete an appointment when clocking a task out."
(bzg-org-clock-out-delete-appt))
IMPORTANT: You can add appointment by clocking in in both an
org-mode and an org-agenda-mode buffer. But clocking out from
agenda buffer with the advice above will bring an error.
