diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el index 10512aa7..cdb7561a 100644 --- a/dotfiles/emacs.d/init.el +++ b/dotfiles/emacs.d/init.el @@ -617,11 +617,13 @@ The current directory is assumed to be the project's root otherwise." ("C-c C-S-t" . org-todo-force-notes)) :config (progn + ;; Enable appointment notifications. (defadvice org-agenda-to-appt (before wickedcool activate) "Clear the appt-time-msg-list." (setq appt-time-msg-list nil)) (appt-activate) (run-at-time "00:00" 60 'org-agenda-to-appt) + (defun org-archive-if (condition-function) (if (funcall condition-function) (org-archive-subtree)))