colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add comment explaining appointments.

Browse Source
This commit is contained in:
Ivan Malison 2015-01-30 15:37:16 -08:00
parent c07d5e5955
commit d0f03bec22
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dotfiles/emacs.d/init.el
View File

@ -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)) ("C-c C-S-t" . org-todo-force-notes))
:config :config
(progn (progn
;; Enable appointment notifications.
(defadvice org-agenda-to-appt (before wickedcool activate) (defadvice org-agenda-to-appt (before wickedcool activate)
"Clear the appt-time-msg-list." "Clear the appt-time-msg-list."
(setq appt-time-msg-list nil)) (setq appt-time-msg-list nil))
(appt-activate) (appt-activate)
(run-at-time "00:00" 60 'org-agenda-to-appt) (run-at-time "00:00" 60 'org-agenda-to-appt)
(defun org-archive-if (condition-function) (defun org-archive-if (condition-function)
(if (funcall condition-function) (if (funcall condition-function)
(org-archive-subtree))) (org-archive-subtree)))