ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
conf.org
View File

@ -789,6 +789,11 @@ Add some useful properties:
#+END_SRC #+END_SRC
*** capture *** capture
#+BEGIN_SRC emacs-lisp #+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")) (let ((capfile "~/Org/capture.org"))
(setq org-capture-templates (setq org-capture-templates
`(("t" "todo" entry (file ,capfile) `(("t" "todo" entry (file ,capfile)
@ -807,7 +812,7 @@ Add some useful properties:
"* TODO %?\nDEADLINE: %^t\ndeliverable:\n%U\n") "* TODO %?\nDEADLINE: %^t\ndeliverable:\n%U\n")
("e" "email" entry (file ,capfile) ("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) ("m" "meeting" entry (file ,capfile)
"* meeting with%? :\\%note:\n%U\n") "* meeting with%? :\\%note:\n%U\n")