make emails deadline be default one day after

This commit is contained in:
ndwarshuis 2018-10-04 14:13:49 -04:00
parent 7ba9d9dd27
commit 0f361ca231
1 changed files with 6 additions and 1 deletions

View File

@ -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")