add automatic reminders for appointments

diff --git a/emacs_el/configuration/org-mode-configuration.el b/emacs_el/configuration/org-mode-configuration.el
index 8e434d1f7b4173f657e24cd1d88b7ddf51be7c93..bd1d036a8910929c5e44e9f3cba7301f991df209 100644 (file)
--- a/emacs_el/configuration/org-mode-configuration.el
+++ b/emacs_el/configuration/org-mode-configuration.el
@@ -122,6 +122,13 @@
 (setq org-global-properties '(("Effort_ALL 0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00")))
 (setq org-columns-default-format "%40ITEM(Task) %6Effort{:} %CLOCKSUM %PRIORITY %TODO %13SCHEDULED %13DEADLINE %TAGS")
 
 (setq org-global-properties '(("Effort_ALL 0 0:10 0:30 1:00 2:00 3:00 4:00 5:00 6:00 7:00")))
 (setq org-columns-default-format "%40ITEM(Task) %6Effort{:} %CLOCKSUM %PRIORITY %TODO %13SCHEDULED %13DEADLINE %TAGS")
 

+;; add automatic reminders for appointments
+(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)))
+

 (setq org-default-notes-file "~/projects/org-notes/notes.org")
 (setq org-id-link-to-org-use-id t)
 (setq org-capture-templates  ;; mail-specific note template, identified by "m"
 (setq org-default-notes-file "~/projects/org-notes/notes.org")
 (setq org-id-link-to-org-use-id t)
 (setq org-capture-templates  ;; mail-specific note template, identified by "m"