From 0f361ca2318118589b23d45c61bbf12b4a208d99 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Thu, 4 Oct 2018 14:13:49 -0400 Subject: [PATCH] make emails deadline be default one day after --- conf.org | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/conf.org b/conf.org index 9e141fa..b3a4d23 100644 --- a/conf.org +++ b/conf.org @@ -789,6 +789,11 @@ Add some useful properties: #+END_SRC *** capture #+BEGIN_SRC emacs-lisp +(defun nd/org-timestamp-future (days) + "Inserts an active org timestamp DAYS after the current time." + (format-time-string (org-time-stamp-format nil) + (time-add (current-time) (days-to-time 1)))) + (let ((capfile "~/Org/capture.org")) (setq org-capture-templates `(("t" "todo" entry (file ,capfile) @@ -807,7 +812,7 @@ Add some useful properties: "* TODO %?\nDEADLINE: %^t\ndeliverable:\n%U\n") ("e" "email" entry (file ,capfile) - "* TODO Respond to %:fromname; Re: %:subject\n%U\n%a\n") + "* TODO Respond to %:fromname; Re: %:subject\nDEADLINE: %(nd/org-timestamp-future 1)\n%U\n%a\n") ("m" "meeting" entry (file ,capfile) "* meeting with%? :\\%note:\n%U\n")