From 250de4e55e2f349d11777df0c858c0f33b76b1d9 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Sat, 13 Dec 2014 22:00:14 -0800 Subject: [PATCH] Finish org-todo-at-date --- init.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index bdd7f056..f5b42878 100644 --- a/init.el +++ b/init.el @@ -657,7 +657,8 @@ The current directory is assumed to be the project's root otherwise." (defun org-todo-at-date (date) (interactive (list (org-time-string-to-time (org-read-date)))) - (flet ((org-current-effective-time (&rest r) date)) + (flet ((org-current-effective-time (&rest r) date) + (org-today (&rest r) (time-to-days date))) (org-todo))) (add-to-list 'org-capture-templates (org-projectile:project-todo-entry "p"))